Imports System

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

​

        Dim strSource As String = _

            "callback12({" + _

              """searchResult"": {" + _

                """data"": [" + _

                  "{" + _

                    """CURRENCY"": ""人民币""," + _

                    """DATE"": ""2016-03-25""," + _

                    """NAME"": ""仲尧文""" + _

                  "}," + _

                  "{" + _

                    """CURRENCY_TYPE"": ""人民币""," + _

                    """DATE"": ""2016-03-24""," + _

                    """NAME"": ""王新华""" + _

                  "}" + _

                "]" + _

              "}" + _

            "})"

​

        Dim i As Integer = strSource.IndexOf("(")

        Dim j As Integer = strSource.LastIndexOf(")")

        Dim objTempResults As JObject = JObject.Parse(strSource.Substring(i + 1, j - i - 1))

        Dim objResults = objTempResults("searchResult")("data").Children()

        For Each obj As JObject In objResults

            For Each objProp As JProperty In obj.Properties()

                Console.WriteLine(objProp.Name & ": " & objProp.Value.ToString())

            Next

            Console.WriteLine()

        Next

​

    End Sub

End Module