35 lines
1.2 KiB
Plaintext
35 lines
1.2 KiB
Plaintext
|
# Importing an address book, e.g. from Google, into Secondo, and
|
||
|
|
# assigning spatial locations (points) to contacts.
|
||
|
|
#
|
||
|
|
# First, export Google contacts into a file google.csv.
|
||
|
|
# Move this file into the secondo/bin directory.
|
||
|
|
#
|
||
|
|
# In the first let command, attributes can be given other names or more attributes
|
||
|
|
# provided in google.csv may be selected.
|
||
|
|
#
|
||
|
|
# The TrajectoryAnnotationAlgebra, which provides operator geocode, must be activated.
|
||
|
|
# Operator csvimport2 is from the ImExAlgebra.
|
||
|
|
|
||
|
|
let Kontakte = csvimport2('google.csv', 1, "", "", TRUE, TRUE) projectextend[
|
||
|
|
; Name: .A_Name,
|
||
|
|
Vorname: .Given_Name,
|
||
|
|
Nachname: .Family_Name,
|
||
|
|
Geburtstag: str2date(tostring(.Birthday)),
|
||
|
|
Strasse: tostring(.Address_1_Street),
|
||
|
|
PLZ: str2int(.Address_1_Postal_Code),
|
||
|
|
Ort: tostring(.Address_1_City),
|
||
|
|
Tel1: .Phone_1_Value,
|
||
|
|
Tel2: .Phone_2_Value,
|
||
|
|
Email1: .E_mail_1_Value,
|
||
|
|
Email2: .E_mail_2_Value]
|
||
|
|
consume
|
||
|
|
|
||
|
|
let Kontakte2 = Kontakte feed
|
||
|
|
extendstream[Pos: find(.Strasse, " ") transformstream tail[1] transformstream]
|
||
|
|
extend[Length: length(.Strasse)]
|
||
|
|
extend[Strassenname: substr(.Strasse, 1, .Pos),
|
||
|
|
Nr: substr(.Strasse, .Pos + 1, .Length)]
|
||
|
|
remove[Pos, Length]
|
||
|
|
extend[Position: geocode(.Strassenname, .Nr, .PLZ, .Ort)]
|
||
|
|
consume
|