Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Dim json As String = "{""Make"":""Dodge"",""Model"":""Charger"",""Lines"": [{""line"":""base"",""engine"": ""v6"",""color"":""red""},{""line"":""R/T"",""engine"":""v8"",""color"":""black""}],""Year"":""2013""}"

        Dim json2 As String = "{""Make"":""Dodge"",""Model"":""Charger"",""Lines"": {""line"":""R/T"",""engine"":""v8"",""color"":""black""},""Year"":""2013""}"

​

        Console.WriteLine("--- Array ---")

        DeserializeAndDump(json)

​

        Console.WriteLine()

        Console.WriteLine("--- Single ---")

        DeserializeAndDump(json2)

    End Sub

    Sub DeserializeAndDump(json As String)

​

        Dim car As jsonCar = JsonConvert.DeserializeObject(Of jsonCar)(json)

​

        Console.WriteLine("Make: " & car.make)

        Console.WriteLine("Model: " & car.model)

        Console.WriteLine("Year: " & car.year)

        Console.WriteLine("Lines: ")

        For Each ln As jsonCarLines In car.lines

            Console.WriteLine("    Name: " & ln.line)

            Console.WriteLine("    Engine: " & ln.engine)

            Console.WriteLine("    Color: " & ln.color)

            Console.WriteLine()

        Next

​

    End Sub

​

    Public Class jsonCar

        Public Property make As String

        Public Property model As String

        <JsonConverter(GetType(SingleOrArrayConverter(Of jsonCarLines)))>

        Public Property lines As List(Of jsonCarLines)

        Public Property year As String

    End Class

​

    Public Class jsonCarLines

        Public Property line As String

        Public Property engine As String

        Public Property color As String

    End Class

    Public Class SingleOrArrayConverter(Of T)

        Inherits JsonConverter

​

        Public Overrides Function CanConvert(objectType As Type) As Boolean

            Return objectType = GetType(List(Of T))

        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)

            If (token.Type = JTokenType.Array) Then

                Return token.ToObject(Of List(Of T))()

            End If

            Return New List(Of T) From {token.ToObject(Of T)()}

        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

​

​