Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        Dim json As String =

            "{" +

            "  ""data"": [" +

            "    {" +

            "      ""ID"": 43545325253," +

            "      ""name"": ""FY1955: PAT""," +

            "      ""objCode"": ""PROJ""," +

            "      ""parameterValues"": {" +

            "        ""DE:"": ""PS12""," +

            "        ""DE:Please Enter Requested"": ""/rss55.edu""," +

            "        ""DE:URL Allocation 1"": ""Society Scholarship""," +

            "        ""DE:Is this being created for other purposes?"": ""no""," +

            "        ""DE:Request Submitted by"": ""urser55""," +

            "        ""DE:Project Owner"": ""Admin User""," +

            "        ""DE:App Code"": ""YDAR""," +

            "        ""DE:App Completion Date"": ""2018-12-14""," +

            "        ""DE:App Alloc 1 Code"": ""SBDRC""" +

            "      }" +

            "    }" +

            "  ]" +

            "}"

​

        Dim root As RootObject = JsonConvert.DeserializeObject(Of RootObject)(json)

        For Each item In root.Data

            Console.WriteLine("ID: " & item.ID)

            Console.WriteLine("Name: " & item.Name)

            Console.WriteLine("ObjCode: " & item.ObjCode)

            Console.WriteLine()

            Console.WriteLine(String.Format("{0,-45} {1}", "Parameter Name", "Parameter Value"))

            Console.WriteLine(New String("-", 45) & " " & New String("-", 20))

            For Each kvp In item.ParameterValues

                Console.WriteLine(String.Format("{0,-45} {1}", kvp.Key, kvp.Value))

            Next

        Next

​

    End Sub

​

    Class RootObject

        Public Property Data As List(Of Item)

    End Class

​

    Class Item

        Public Property ID As String

        Public Property Name As String

        Public Property ObjCode As String

        Public Property ParameterValues As Dictionary(Of String, String)

    End Class

​

End Module