Imports System

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Environment version: {0}", System.Runtime.InteropServices.RuntimeInformation.FrameworkDescription)

        Console.WriteLine("version: {0}", GetType(JsonSerializer).Assembly.FullName)

        Console.WriteLine()

        Try 

            TestClass.Test

        Catch ex As Exception

            Console.WriteLine("Failed with unhandled exception: ")

            Console.WriteLine(ex)

        End Try

    End Sub

​

End Module

​

​

public Class TestClass

    Public Shared Sub Test()

        Dim jsonString = TestClass.GetJson

        Console.WriteLine("Original JSON:")

        Console.WriteLine(jsonString)

        Console.WriteLine()

        Dim token = JsonConvert.DeserializeObject(Of JObject)(jsonString)

        Console.WriteLine("Deserialized token: ")

        Console.WriteLine(token)

        Console.WriteLine()

        Dim memoItemString As String = token.SelectToken("memo[0]")

        Console.WriteLine("Memo item string: ")

        Console.WriteLine(memoItemString)

        Console.WriteLine()

        Console.WriteLine("Attempting to deserialize the memo item string to a JObject...")

        Dim tokenMemo = JsonConvert.DeserializeObject(Of JObject)(memoItemString)

        Console.WriteLine("Deserialized token: ")

        Console.WriteLine(token)

    End Sub 

​

    Public Shared Function GetJson() As String

        Return "{" & _

                """memo"":[" & _

                   """{u'braums': {u'printing_data': {u'customerFirstName': u'xxxxxx', u'orderNumber': 4495, u'customerLastName': u'xxxxxx', u'num_refrigerated_labels': 1, u'num_dry_labels': 1, u'packedBy': u'xxxxxxx xxxxxxx', u'pickupTime': u'11/18/2020 15:00', u'num_frozen_labels': 0}}}""," & _

                   """{u'braums': {u'cancellation_reasons': {u'who': u'xxxxxxx', u'when': u'11/18/2020 8:02 PM', u'why': u'called to cancel'}}}""" & _

                "]" & _

              "}"

     End Function

End Class

​