READ json file

[luca90]

How to read alla node in this json string:

{
"results" :
[
{
"address_components" :
[
{
"long_name" : "7",
"short_name" : "7",
"types" :
[
"street_number"
]
},
{
"long_name" : "Via Toledo",
"short_name" : "Via Toledo",
"types" :
[
"route"
]
},
{
"long_name" : "Napoli",
"short_name" : "Napoli",
"types" :
[
"locality",
"political"
]
},
{
"long_name" : "Napoli",
"short_name" : "Napoli",
"types" :
[
"administrative_area_level_3",
"political"
]
},
{
"long_name" : "Città Metropolitana di Napoli",
"short_name" : "NA",
"types" :
[
"administrative_area_level_2",
"political"
]
},
{
"long_name" : "Campania",
"short_name" : "Campania",
"types" :
[
"administrative_area_level_1",
"political"
]
},
{
"long_name" : "Italia",
"short_name" : "IT",
"types" :
[
"country",
"political"
]
},
{
"long_name" : "80134",
"short_name" : "80134",
"types" :
[
"postal_code"
]
}
],
"formatted_address" : "Via Toledo, 7, 80134 Napoli NA, Italia",
"geometry" :
{
"location" :
{
"lat" : 40.84798,
"lng" : 14.2496255
},
"location_type" : "ROOFTOP",
"viewport" :
{
"northeast" :
{
"lat" : 40.8493328802915,
"lng" : 14.2509291302915
},
"southwest" :
{
"lat" : 40.8466349197085,
"lng" : 14.2482311697085
}
}
},
"navigation_points" :
[
{
"location" :
{
"latitude" : 40.8479807,
"longitude" : 14.2496175
}
}
],
"place_id" : "ChIJeZ7gn1wIOxMR6fvfZkrDK4E",
"types" :
[
"street_address",
"subpremise"
]
}
],
"status" : "OK"
}

[georgekar]

This is the formated text from the script bellow. (using 0 parameter we get the json without white space/newlines)

{    
    "results" : [        
        {            
            "address_components" : [                
                {                    
                    "long_name" : "7",
                    "short_name" : "7",
                    "types" : [                        
                        "street_number"
                    ]
                },
                {                    
                    "long_name" : "Via Toledo",
                    "short_name" : "Via Toledo",
                    "types" : [                        
                        "route"
                    ]
                },
                {                    
                    "long_name" : "Napoli",
                    "short_name" : "Napoli",
                    "types" : [                        
                        "locality",
                        "political"
                    ]
                },
                {                    
                    "long_name" : "Napoli",
                    "short_name" : "Napoli",
                    "types" : [                        
                        "administrative_area_level_3",
                        "political"
                    ]
                },
                {                    
                    "long_name" : "Città Metropolitana di Napoli",
                    "short_name" : "NA",
                    "types" : [                        
                        "administrative_area_level_2",
                        "political"
                    ]
                },
                {                    
                    "long_name" : "Campania",
                    "short_name" : "Campania",
                    "types" : [                        
                        "administrative_area_level_1",
                        "political"
                    ]
                },
                {                    
                    "long_name" : "Italia",
                    "short_name" : "IT",
                    "types" : [                        
                        "country",
                        "political"
                    ]
                },
                {                    
                    "long_name" : "80134",
                    "short_name" : "80134",
                    "types" : [                        
                        "postal_code"
                    ]
                }
            ],
            "formatted_address" : "Via Toledo, 7, 80134 Napoli NA, Italia",
            "geometry" : {                
                "location" : {                    
                    "lat" : 40.84798,
                    "lng" : 14.2496255
                },
                "location_type" : "ROOFTOP",
                "viewport" : {                    
                    "northeast" : {                        
                        "lat" : 40.8493328802915,
                        "lng" : 14.2509291302915
                    },
                    "southwest" : {                        
                        "lat" : 40.8466349197085,
                        "lng" : 14.2482311697085
                    }
                }
            },
            "navigation_points" : [                
                {                    
                    "location" : {                        
                        "latitude" : 40.8479807,
                        "longitude" : 14.2496175
                    }
                }
            ],
            "place_id" : "ChIJeZ7gn1wIOxMR6fvfZkrDK4E",
            "types" : [                
                "street_address",
                "subpremise"
            ]
        }
    ],
    "status" : "OK"
}

I use my interpreter which read the file, then expand to UTF16LE then declare a JsonObject (from JsonObject.cls), and then I do some magic: We can get a JsonArray from then ItemPath. This Array has 8 items, but item 0 has the length of array (.?|.?), We can use itempath from that object and read anything.
So you need two classes
https://github.com/M2000Interpreter/...JsonObject.cls
and
https://github.com/M2000Interpreter/.../JsonArray.cls

And follow the methods/functions from the script.
The idea is: Use the ItemPath.

A=buffer("json1.txt")
Locale 1033
Document a$=chr$(A[0, Len(A)])
//clipboard a$
declare Json JsonObject
Json=Json=>parser(a$)^
clipboard Json=>Json(4)
M=Json=>ItemPath("results.0.address_components")^
Print Val(M=>ItemPath("0.long_name"))' 7  = M=>count-1
For i=1 to  M=>count-1
Print i," Long name ";M=>ItemPath(i+".long_name")
Print "","Short name "; M=>ItemPath(i+".short_name")
next
Print Json=>ItemPath("status")'"OK"