Resolved JSON object as vb classes

[divjoy]

Hi,

Can anyone process this json into vb classes... this is what I have done so far!

{
    "results" : [
        {
            "address_components" : [
                {
                    "long_name" : "1600",
                    "short_name" : "1600",
                    "types" : [ "street_number" ]
                },
                {
                    "long_name" : "Amphitheatre Pkwy",
                    "short_name" : "Amphitheatre Pkwy",
                    "types" : [ "route" ]
                },
                {
                    "long_name" : "Mountain View",
                    "short_name" : "Mountain View",
                    "types" : [ "locality", "political" ]
                },
                {
                    "long_name" : "Santa Clara County",
                    "short_name" : "Santa Clara County",
                    "types" : [ "administrative_area_level_2", "political" ]
                },
                {
                    "long_name" : "California",
                    "short_name" : "CA",
                    "types" : [ "administrative_area_level_1", "political" ]
                },
                {
                    "long_name" : "United States",
                    "short_name" : "US",
                    "types" : [ "country", "political" ]
                },
                {
                    "long_name" : "94043",
                    "short_name" : "94043",
                    "types" : [ "postal_code" ]
                }
            ],
            "formatted_address" : "1600 Amphitheatre Parkway, Mountain View, CA 94043, USA",
            "geometry" : {
                "location" : {
                    "lat" : 37.4224764,
                    "lng" : -122.0842499
                },
                "location_type" : "ROOFTOP",
                "viewport" : {
                    "northeast" : {
                        "lat" : 37.4238253802915,
                        "lng" : -122.0829009197085
                    },
                    "southwest" : {
                        "lat" : 37.4211274197085,
                        "lng" : -122.0855988802915
                    }
                }
            },
            "place_id" : "ChIJ2eUgeAK6j4ARbn5u_wAGqWA",
            "plus_code": {
                "compound_code": "CWC8+W5 Mountain View, California, United States",
                "global_code": "849VCWC8+W5"
            },
            "types" : [ "street_address" ]
        }
    ],
        "status" : "OK"
}

VB Classes

Class ValuePair
    Public Property value As Integer
    Public Property text As String
End Class

Class Element
    Public Property status As String
    Public Property duration As ValuePair
    Public Property distance As ValuePair
End Class

Class Row
    Public Property elements As Element()  'Array
End Class

Class Response
    Public Property status As String
    Public Property results As String() ' Array
    Public Property rows As Row() 'Array
End Class

Maybe there a tool to do it....as I wish to obtain the full address...

 

[JohnH]

Add a new class file, clear it, then Edit > Paste Special > Paste JSON as Classes

How To Paste JSON As Classes Or XML As Classes in Visual Studio

In this article, I will explain you how to paste JSON or XML as classes in Visual Studio.

www.c-sharpcorner.com

 

[divjoy]

Hi , I found a website that does it...

JSON Utils: Generate C#, VB.Net, SQL TAble and Java from JSON

JSON Utils is a site for generating C#, VB.Net, Javascript and Java classes from JSON. It will also clean up your JSON and show a data viewer to assist you while you are developing

jsonutils.com

But I also used the class object and then access the elements using an array like structure as follows... Not sure if its more efficient or than using classes other than the usual OOP advantages!

Dim response = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(content)
                    Me.tbResult.Text = response("status")
                    Me.tbAddress2.Text = response("results")(0)("formatted_address")   
                    Me.tbAddress3.Text = response("results")(0)("geometry")("location")("lat").ToString
                    Me.tbAddress4.Text = response("results")(0)("geometry")("location")("lng").ToString

 

[JohnH]

Was there a problem with the VS conversion?