Imports System

Imports System.Linq

Imports System.Collections

Imports System.Collections.Generic

Imports System.Data

Imports System.IO

Imports System.Globalization

Imports System.Reflection

Imports System.ComponentModel.DataAnnotations

Imports System.Xml.Linq

Imports System.Xml

Imports Microsoft.VisualBasic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Imports NUnit.Framework

​

    ' https://stackoverflow.com/questions/59456259/how-to-parse-through-following-zoho-people-json-string-using-vb-net

​

    Public Class RootObject

        <JsonProperty("result")>

        Public Property Result As List(Of Dictionary(Of String, List(Of Result)))

​

        <JsonProperty("message")>

        Public Property Message As String

​

        <JsonProperty("uri")>

        Public Property Uri As String

​

        <JsonProperty("status")>

        Public Property Status As Integer

    End Class

​

    Public Class Result

        <JsonProperty("CreatedTime")>

        Public Property CreatedTime As String

​

        <JsonProperty("ZP_Leave_File_Upload")>

        Public Property ZPLeaveFileUpload As String

​

        <JsonProperty("Employee_ID")>

        Public Property EmployeeID As String

​

        <JsonProperty("AddedTime")>

        Public Property AddedTime As String

​

        <JsonProperty("Leavetype.ID")>

        Public Property LeavetypeID As String

​

        <JsonProperty("From")>

        Public Property From As String

​

        <JsonProperty("Unit")>

        Public Property Unit As String

​

        <JsonProperty("ModifiedBy")>

        Public Property ModifiedBy As String

​

        <JsonProperty("ApprovalStatus")>

        Public Property ApprovalStatus As String

​

        <JsonProperty("Daystaken")>

        Public Property Daystaken As String

​

        <JsonProperty("Reasonforleave")>

        Public Property Reasonforleave As String

​

        <JsonProperty("ModifiedBy.ID")>

        Public Property ModifiedByID As String

​

        <JsonProperty("TeamEmailID")>

        Public Property TeamEmailID As String

​

        <JsonProperty("Leavetype")>

        Public Property Leavetype As String

​

        <JsonProperty("ModifiedTime")>

        Public Property ModifiedTime As String

​

        <JsonProperty("ApprovalTime")>

        Public Property ApprovalTime As String

​

        <JsonProperty("Zoho_ID")>

        Public Property ZohoID As Long

​

        <JsonProperty("AddedBy.ID")>

        Public Property AddedByID As String

​

        <JsonProperty("To")>

        Public Property [To] As String

​

        <JsonProperty("AddedBy")>

        Public Property AddedBy As String

​

        <JsonProperty("Employee_ID.ID")>

        Public Property EmployeeIDID As String

​

        <JsonProperty("DateOfRequest")>

        Public Property DateOfRequest As String

​

        <JsonProperty("ZP_Leave_File_Upload_downloadUrl")>

        Public Property ZPLeaveFileUploadDownloadUrl As String

    End Class

​

    Public Module TestClass 

​

        Friend Sub Test()

            Dim json as String = GetJson()

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

​

            Dim newJson as String = JsonConvert.SerializeObject(root, Newtonsoft.Json.Formatting.Indented)

​

            Console.WriteLine("Re-serialized {0}", root)

            Console.WriteLine(newJson)

        End Sub 

​

        Function GetJson() as String

            Dim Jstring As String = <![CDATA[{

  "result": [

    {

      "507258000002665141": [

        {

          "CreatedTime": "1574925427929",

          "ZP_Leave_File_Upload": "",

          "Employee_ID": "2042",

          "AddedTime": "28-Nov-2019 11:17:07",

          "Leavetype.ID": "507258000000169001",

          "From": "27-Nov-2019",

          "Unit": "Hour",

          "ModifiedBy": "7151",

          "ApprovalStatus": "Approved",

          "Daystaken": "16.0",

          "Reasonforleave": "",

          "ModifiedBy.ID": "507258000000145005",

          "TeamEmailID": "",

          "Leavetype": "Annual Leave",

          "ModifiedTime": "1574925427930",

          "ApprovalTime": "28-Nov-2019 11:17 AM",

          "Zoho_ID": 507258000002665141,

          "AddedBy.ID": "507258000000145005",

          "To": "23-Dec-2019",

          "AddedBy": "7151",

          "Employee_ID.ID": "507258000000148879",

          "DateOfRequest": "28-Nov-2019",

          "ZP_Leave_File_Upload_downloadUrl": ""

        }

      ]

    },

    {

      "507258000002652283": [

        {

          "CreatedTime": "1574922096199",

        }

      ]

    }

    ],

  "message": "Data fetched successfully",

  "uri": "/api/forms/P_ApplyLeave/getRecords",

  "status": 0

}

]]>.Value       

            Return Jstring      

        End Function

    End Module

​

    Public Module Module1   

        Public Sub Main()

            Console.WriteLine("Environment version: " & Environment.Version.ToString())

            Console.WriteLine("Json.NET version: " & GetType(JsonSerializer).Assembly.FullName)

            Console.WriteLine("")

​

            Try

​

                TestClass.Test()

​

            Catch ex as Exception

​

                Console.WriteLine("Unhandled exception: ")

                Console.WriteLine(ex)

                Throw

​

            End Try

        End Sub 

    End Module

​

​