Imports System

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Console.WriteLine("---- format #1 ----")

        Dim json As String = _

            "{" + _

            "  ""type"": ""myType""," + _

            "  ""tid"": 4," + _

            "  ""action"": ""myAction""," + _

            "  ""method"": ""myMethod""," + _

            "  ""result"": {" + _

            "    ""success"": true," + _

            "    ""total"": 4," + _

            "    ""records"": [" + _

            "      {" + _

            "        ""id"": 4," + _

            "        ""nome"": ""PRIMEIRO NOME""," + _

            "        ""sigla"": ""PN""" + _

            "      }," + _

            "      {" + _

            "        ""id"": 1974," + _

            "        ""nome"": ""SEGUNDO NOME""," + _

            "        ""sigla"": ""SN""" + _

            "      }," + _

            "      {" + _

            "        ""id"": 2584," + _

            "        ""nome"": ""TERCEIRO NOME""," + _

            "        ""sigla"": ""TN""" + _

            "      }," + _

            "      {" + _

            "        ""id"": 1170," + _

            "        ""nome"": ""QUARTO NOME""," + _

            "        ""sigla"": ""QN""" + _

            "      }" + _

            "    ]" + _

            "  }" + _

            "}"

        DeserializeAndDump(json)

​

        Console.WriteLine("---- format #2 ----")

        json = _

            "{" + _

            "  ""type"": ""myType""," + _

            "  ""tid"": 3," + _

            "  ""action"": ""myAction""," + _

            "  ""method"": ""myMethod""," + _

            "  ""result"": [" + _

            "    {" + _

            "      ""id"": 4," + _

            "      ""nome"": ""PRIMEIRO NOME""," + _

            "      ""sigla"": ""PN""" + _

            "    }," + _

            "    {" + _

            "      ""id"": 1974," + _

            "      ""nome"": ""SEGUNDO NOME""," + _

            "      ""sigla"": ""SN""" + _

            "    }," + _

            "    {" + _

            "      ""id"": 2584," + _

            "      ""nome"": ""TERCEIRO NOME""," + _

            "      ""sigla"": ""TN""" + _

            "    }," + _

            "    {" + _

            "      ""id"": 1170," + _

            "      ""nome"": ""QUARTO NOME""," + _

            "      ""sigla"": ""QN""" + _

            "    }" + _

            "  ]" + _

            "}"

        DeserializeAndDump(json)

    End Sub

    Public Sub DeserializeAndDump(json As String)

        Dim response As Response = JsonConvert.DeserializeObject(Of Response)(json)

        Console.WriteLine("type: " & response.type)

        Console.WriteLine("tid: " & response.tid)

        Console.WriteLine("action: " & response.action)

        Console.WriteLine("method: " & response.method)

        Console.WriteLine("result.success: " & response.result.success)

        Console.WriteLine("result.total: " & response.result.total)

        Console.WriteLine("result.records: ")

        For Each record As Record In response.result.records

            Console.WriteLine("   id: " & record.id)

            Console.WriteLine("   nome: " & record.nome)

            Console.WriteLine("   sigla: " & record.sigla)

            Console.WriteLine()

        Next

    End Sub

    Public Class Record

        Public Property id As Integer

        Public Property nome As String

        Public Property sigla As String

    End Class

​

    Public Class Result

        Public Property success As Boolean

        Public Property total As Integer

        Public Property records As Record()

    End Class

​

    Public Class Response

        Public Property type As String

        Public Property tid As Integer

        Public Property action As String

        Public Property method As String

        <JsonConverter(GetType(ResultConverter))>

        Public Property result As Result

    End Class

​

    Public Class ResultConverter

        Inherits JsonConverter

​

        Public Overrides Function CanConvert(objectType As Type) As Boolean

            Return objectType = GetType(Result)

        End Function

​

        Public Overrides Function ReadJson(reader As JsonReader, objectType As Type, existingValue As Object, serializer As JsonSerializer) As Object

            Dim token As JToken = JToken.Load(reader)

            Dim result As Result = New Result

            If token.Type = JTokenType.Array Then

                result.records = token.ToObject(Of Record())(serializer)

                result.total = result.records.Length

                result.success = True

            Else

                serializer.Populate(token.CreateReader(), result)

            End If

            Return result

        End Function

​

        Public Overrides ReadOnly Property CanWrite As Boolean

            Get

                Return False

            End Get

        End Property

​

        Public Overrides Sub WriteJson(writer As JsonWriter, value As Object, serializer As JsonSerializer)

            Throw New NotImplementedException

        End Sub

    End Class

​

End Module