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"]] 

我如何提取“华盛顿”，“纽约”，“洛杉矶”和“达拉斯”字符串？

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/>