Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        Dim json As String = _

                "[" + _

                "  {" + _

                "    ""spec"": ""CPU""," + _

                "    ""value"": ""Intel Core i3-4005U""" + _

                "  }," + _

                "  {" + _

                "    ""spec"": ""Speed""," + _

                "    ""value"": ""1.7 GHz""" + _

                "  }," + _

                "  {" + _

                "    ""spec"": ""Cache""," + _

                "    ""value"": ""3MB""" + _

                "  }," + _

                "  {" + _

                "    ""spec"": ""RAM""," + _

                "    ""value"": ""4GB""" + _

                "  }," + _

                "  {" + _

                "    ""spec"": ""Warranty Period""," + _

                "    ""value"": ""1 Year""" + _

                "  }" + _

                "]"

​

        Dim list As List(Of DATA) = JsonConvert.DeserializeObject(Of List(Of DATA))(json)

​

        For Each item As DATA In list

            Console.WriteLine(item.spec & ": " & item.value)

        Next

    End Sub

​

    Class DATA

        Public Property spec As String

        Public Property value As String

    End Class

​

End Module