JSON 解析 [ 和 ]

Question

我有来自 URL 的 JSON 数据，我需要拆分值，

"name":"michael",
"number":"0015454545",
"age":"22",
"interest":[
    ["swim","baseball","music","tenis"],
    ["washington","3","27","a"],
    ["New york","2","16","b"],
    ["los angeles","21","11","c"],
    ["dallas","7","22","a"]
]

我的代码：

Dim json As String = MyjsonDataLink
Dim ser As JObject = JObject.Parse(json)
Dim data As List(Of JToken) = ser.Children().ToList

For Each item As JProperty In data
    item.CreateReader()
    If item.Name = "interest" Then
        Response.Write(item.Value.ToString)
        Response.Write("<br><br><br>")
    Next
    End If
Next

但是，文本输出是，

["washington","3","27","a"],
["new york","2","16","b"],
["los angeles","21","11","c"],
["dallas","7","22","a"]]

如何提取“washington”、“new york”、“los angeles”和“dallas”字符串？

Answer 1

LINQ 是为这种情况而构建的。这是一个控制台应用程序说明：

Imports Newtonsoft.Json.Linq
Module Module1
  Sub Main()
    'ignore the <a> tag, it's just a trick for multi-line strings
    Dim json = <a>
{"name":"michael",
"number":"0015454545",
"age":"22",
"interest":[
    ["swim","baseball","music","tenis"],
    ["washington","3","27","a"],
    ["New york","2","16","b"],
    ["los angeles","21","11","c"],
    ["dallas","7","22","a"]
]}</a>.Value
    Dim ser As JObject = JObject.Parse(json)
    'now let LINQ do the work for us
    Dim output = From s In ser("interest").Children Select s.First
    For Each item In output
      Console.Write(item)
      Console.Write("<br/><br/><br/>")
    Next
    Console.ReadLine()
  End Sub
End Module

结果：

swim<br/><br/><br/>washington<br/><br/><br/>New york<br/><br/><br/>los angeles<br/><br/><br/>dallas<br/><br/><br/>