Concloo LotusScript Essentials Beispiele

Dim Adresse As String, Maps As String, Wo As String
Dim Zeilen As Variant

Wo = |Empire State Building, New York|

Adresse = |http://maps.googleapis.com/maps/api/geocode/json?address=| + Wo + |&sensor=false&language=de|
Maps = CNCL_URLopenFile(CNCL_URLEncode(Adresse))
Zeilen = Split(Maps, Chr(10))

ForAll zeile In Zeilen
	Print zeile
End ForAll

{
   "results" : [
      {
         "address_components" : [
            {
               "long_name" : "Empire State Building",
               "short_name" : "Empire State Building",
               "types" : [ "point_of_interest", "establishment" ]
            },
            {
               "long_name" : "350",
               "short_name" : "350",
               "types" : [ "street_number" ]
            },
            {
               "long_name" : "Fifth Avenue",
               "short_name" : "Fifth Avenue",
               "types" : [ "route" ]
            },
            {
               "long_name" : "Midtown",
               "short_name" : "Midtown",
               "types" : [ "neighborhood", "political" ]
            },
            {
               "long_name" : "Manhattan",
               "short_name" : "Manhattan",
               "types" : [ "sublocality", "political" ]
            },
            {
               "long_name" : "New York City",
               "short_name" : "New York City",
               "types" : [ "locality", "political" ]
            },
            {
               "long_name" : "New York",
               "short_name" : "New York",
               "types" : [ "administrative_area_level_2", "political" ]
            },
            {
               "long_name" : "New York",
               "short_name" : "NY",
               "types" : [ "administrative_area_level_1", "political" ]
            },
            {
               "long_name" : "USA",
               "short_name" : "US",
               "types" : [ "country", "political" ]
            },
            {
               "long_name" : "10118",
               "short_name" : "10118",
               "types" : [ "postal_code" ]
            }
         ],
         "formatted_address" : "Empire State Building, 350 Fifth Avenue, New York City, New York 10118, USA",
         "geometry" : {
            "location" : {
               "lat" : 40.7484438,
               "lng" : -73.985658
            },
            "location_type" : "APPROXIMATE",
            "viewport" : {
               "northeast" : {
                  "lat" : 40.7497927802915,
                  "lng" : -73.98430901970849
               },
               "southwest" : {
                  "lat" : 40.7470948197085,
                  "lng" : -73.9870069802915
               }
            }
         },
         "types" : [ "point_of_interest", "establishment" ]
      }
   ],
   "status" : "OK"
}