Imports System

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

​

            Dim json As String =

                "{" +

                "  ""result"": {" +

                "    ""a326f402f18ab1cd2c4489b07cc3e8f4"": {" +

                "      ""id"": ""a326f402f18ab1cd2c4489b07cc3e8f4""," +

                "      ""client_id"": 30," +

                "      ""broker"": [" +

                "        {" +

                "          ""broker_id"": 30," +

                "          ""name"": ""Andrew""," +

                "          ""emailaddress"": ""andrew@homes.com""" +

                "        }" +

                "      ]," +

                "      ""photos"": [" +

                "        {" +

                "          ""small"": ""https://www.example.com/30/photos/small/66.1427790195-976.jpg""," +

                "          ""middle"": ""https://www.example.com/30/photos/middle/66.1427790195-976.jpg""" +

                "        }," +

                "        {" +

                "          ""small"": ""https://www.example.com/30/photos/small/31382.1508417843-454.JPG""," +

                "          ""middle"": ""https://www.example.com/30/photos/middle/31382.1508417843-454.JPG""" +

                "        }" +

                "      ]" +

                "    }," +

                "    ""18aec266ec0c01d126e9715bc17124e2"": {" +

                "      ""id"": ""18aec266ec0c01d126e9715bc17124e2""," +

                "      ""client_id"": 30," +

                "      ""broker"": [" +

                "        {" +

                "          ""broker_id"": 30," +

                "          ""name"": ""Andrew""," +

                "          ""emailaddress"": ""andrew@homes.com""" +

                "        }" +

                "      ]," +

                "      ""photos"": [" +

                "        {" +

                "          ""small"": ""https://www.example.com/30/photos/small/10.1298385655.jpg""," +

                "          ""middle"": ""https://www.example.com/30/photos/middle/10.1298385655.jpg""" +

                "        }," +

                "        {" +

                "          ""small"": ""https://www.example.com/30/photos/small/10.1298385646.jpg""," +

                "          ""middle"": ""https://www.example.com/30/photos/middle/10.1298385646.jpg""" +

                "        }" +

                "      ]" +

                "    }" +

                "  }" +

                "}"

            Dim obj As JObject = JObject.Parse(json)

            Dim result As JObject = DirectCast(obj("result"), JObject)

            For Each prop As JProperty In result.Properties()

                Dim item As JObject = DirectCast(prop.Value, JObject)

                Dim id As String = item("id").Value(Of String)

                Dim clientId As Integer = item("client_id").Value(Of Integer)

                Console.WriteLine("id: " & id)

                Console.WriteLine("client id: " & clientId.ToString())

                Dim brokers As JArray = DirectCast(item("broker"), JArray)

                For i As Integer = 0 To brokers.Count - 1

                    Dim broker As JObject = DirectCast(brokers(i), JObject)

                    Dim brokerId As Integer = broker("broker_id").Value(Of Integer)

                    Dim name As String = broker("name").Value(Of String)

                    Dim email As String = broker("emailaddress").Value(Of String)

                    Console.WriteLine("broker " & i.ToString() & " id: " & brokerId)

                    Console.WriteLine("broker " & i.ToString() & " name: " & name)

                    Console.WriteLine("broker " & i.ToString() & " email: " & email)

                Next

                Dim photos As JArray = DirectCast(item("photos"), JArray)

                For i As Integer = 0 To photos.Count - 1

                    Dim photo As JObject = DirectCast(photos(i), JObject)

                    Dim small As String = photo("small").Value(Of String)

                    Dim middle As String = photo("middle").Value(Of String)

                    Console.WriteLine("photo " & i.ToString() & " small: " & small)

                    Console.WriteLine("photo " & i.ToString() & " middle: " & middle)

                Next

​

                Console.WriteLine()

            Next

​

    End Sub

End Module