Imports System

Imports System.Collections

Imports System.Collections.Generic

Imports System.Linq

Imports System.Text

Imports System.Runtime.Serialization.Formatters

Imports System.IO

Imports System.Data

Imports System.ComponentModel.DataAnnotations

Imports System.Globalization

Imports System.Reflection

Imports System.Collections.ObjectModel

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

Imports NUnit.Framework

Imports Microsoft.VisualBasic

​

' Throws NUnit.Framework.AssertionException

'https://stackoverflow.com/questions/66953477/how-to-configure-class-definition-to-consume-unicode-marked-json

Public Module Module1

​

    Public Sub Main()

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

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

        Console.WriteLine("-" & TestClass.GetJsonOrder & "-")

        Try

            Console.WriteLine()

            TestClass.Test()

            Console.WriteLine()

            TestClass.TestMemo()

            Console.WriteLine()

            TestClass.ShowIssue()

        Catch ex As Exception

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

            Console.WriteLine(ex)

            Throw

        End Try

​

    End Sub

​

    Public Function GetNetCoreVersion() As String

        'https://techblog.dorogin.com/how-to-detect-net-core-version-in-runtime-ecd65ad695be

        '

        Dim assembly = GetType(System.Runtime.GCSettings).GetTypeInfo.Assembly

        Dim assemblyPath = assembly.Location.Split(vbCrLf)

        Microsoft.VisualBasic.ChrW(47)

        Microsoft.VisualBasic.ChrW(92)

        Dim netCoreAppIndex As Integer = Array.IndexOf(assemblyPath, "Microsoft.NETCore.App")

        If ((netCoreAppIndex > 0) _

                    AndAlso (netCoreAppIndex _

                    < (assemblyPath.Length - 2))) Then

            Return assemblyPath((netCoreAppIndex + 1))

        End If

​

        Return Nothing

    End Function

End Module

​

​

Public Class TestClass

​

    Public Shared Sub Test()

        Dim jsonString = TestClass.GetJsonOrder

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

        Console.WriteLine("Prove jsonString, Deserialized token: ")

        Console.WriteLine(token)

        Console.WriteLine()

​

    End Sub

    Public Shared Sub TestMemo()

        Dim jsonString = TestClass.GetJsonOrder

        Console.Write("State of deserializedOjbect (NDOrder_order_test), ")

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

        Console.WriteLine("Worked")

        Console.WriteLine("Show first braums: {0}", token.memo(0))

        Console.Write("Prove printing_data, ")

        Dim printing_data = JsonConvert.DeserializeObject(Of NDOrder_memo)(token.memo(0))

        Console.WriteLine("worked ({0})", printing_data.braums.printing_data.customerFirstName)

        Console.WriteLine("Show second braums: {0}", token.memo(1))

        Console.Write("Prove cancellation_reason, ")

        Dim cancellation_reason = JsonConvert.DeserializeObject(Of NDOrder_memo)(token.memo(1))

        Console.WriteLine("worked ({0})", cancellation_reason.braums.cancellation_reasons.who)

    End Sub

​

    Public Shared Sub ShowIssue()

        Dim jsonString = TestClass.GetJsonOrder

        Console.Write("State of deserializedOjbect (NDOrder_order), ")

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

        Console.WriteLine("Worked")

​

    End Sub

    Public Shared Function GetJsonOrder() As String

        Return "{" &

                   """x"":""testx""," &

                   """y"":""testy""," &

                   GetJsonMemo() & "," &

                   """z"":""testz""" &

             "}"

​

​

    End Function

    Public Shared Function GetJsonMemo() As String

        Return "" &

                """memo"":[" &

                   """{'braums': {'printing_data': {'customerFirstName': 'xxxxxx', 'orderNumber': 4495, 'customerLastName': 'xxxxxx'}}}""," &

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

                "]" &

              ""

    End Function

End Class

​

Public Class NDOrder_order_test

​

    Public x As String

    Public y As String

    Public memo() As String ' NDOrder_memo()

    Public z As String

End Class

Public Class NDOrder_order

    Public x As String

    Public y As String

    Public memo As List(Of NDOrder_memo)

    Public z As String

End Class

​

Public Class NDOrder_memo

    Public braums As NDOrder_memo_braums

End Class

Public Class NDOrder_memo_braums

    Public printing_data As NDOrder_memo_braums_printing_data

    Public cancellation_reasons As NDOrder_memo_braums_cancellation_reasons

    Public customer_signature As String

End Class

Public Class NDOrder_memo_braums_cancellation_reasons

    Public who As String

    Public [when] As String

    Public why As String

End Class

Public Class NDOrder_memo_braums_printing_data

    Public customerFirstName As String

    Public orderNumber As Double

    Public customerLastName As String

    Public num_refrigerated_labels As Double

    Public num_dry_labels As Double

    Public packedBy As String

    Public pickupTime As String

    Public num_frozen_labels As Double

End Class

​

​

​

​