http://stackoverflow.com/questions/37054003/deserialize-json-with-can-have-different-objects-under-same-property-name | C# Online Compiler

http://stackoverflow.com/questions/37054003/deserialize-json-with-can-have-different-objects-under-same-property-name by Brian Rogers

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

​x
 
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

View IL Code