Code: Select all
{
"results" : [
{
"address_components" : [
{
"long_name" : "102",
"short_name" : "102",
"types" : [ "subpremise" ]
},
{
"long_name" : "2001",
"short_name" : "2001",
"types" : [ "street_number" ]
},
{
"long_name" : "Butterfield Road",
"short_name" : "Butterfield Rd",
"types" : [ "route" ]
},
{
"long_name" : "Downers Grove",
"short_name" : "Downers Grove",
"types" : [ "locality", "political" ]
},
{
"long_name" : "York Township",
"short_name" : "York Township",
"types" : [ "administrative_area_level_3", "political" ]
},
{
"long_name" : "DuPage County",
"short_name" : "Dupage County",
"types" : [ "administrative_area_level_2", "political" ]
},
{
"long_name" : "Illinois",
"short_name" : "IL",
"types" : [ "administrative_area_level_1", "political" ]
},
{
"long_name" : "United States",
"short_name" : "US",
"types" : [ "country", "political" ]
},
{
"long_name" : "60515",
"short_name" : "60515",
"types" : [ "postal_code" ]
}
],
"formatted_address" : "2001 Butterfield Rd #102, Downers Grove, IL 60515, USA",
"geometry" : {
"location" : {
"lat" : 41.8296848,
"lng" : -88.0326829
},
"location_type" : "ROOFTOP",
"viewport" : {
"northeast" : {
"lat" : 41.8310337802915,
"lng" : -88.03133391970849
},
"southwest" : {
"lat" : 41.8283358197085,
"lng" : -88.03403188029151
}
}
},
"place_id" : "EjYxMDIsIDIwMDEgQnV0dGVyZmllbGQgUmQsIERvd25lcnMgR3JvdmUsIElMIDYwNTE1LCBVU0EiHxodChYKFAoSCVkkY18iUg6IEfeMNcMHCrIpEgMxMDI",
"types" : [ "subpremise" ]
}
],
"status" : "OK"
}
Code: Select all
#JsonReader.BeginObjectWithName( "results/1/address_components" )
For Each(#Object) In(#JsonReader.ReadObjectAtIndex( 1 ))
#L_Text := #Object.ItemAt<1>.AsString.AsNativeString
If Cond(#Object.ItemAt<3>.isArray)
#L_ArrayString := #Object.ItemAt<3>.AsString
#JsonReader2.SetSourceString String(#L_ArrayString)
For Each(#Object2) In(#JsonReader2.ReadObjectAtIndex( 1 ))
If Cond(#Object2.ItemAt<1>.AsString.AsNativeString.UpperCase = 'ADMINISTRATIVE_AREA_LEVEL_2')
#L_CountyFound := True
Leave
Else
Continue
Endif
Endfor
#JsonReader2.EndObject
Leave If(#L_CountyFound)
Endif
Endfor
#JsonReader.EndObject