JSON.net - 使用 VB.NET 无法遍历结果

Question

我正在尝试使用 JSON.NET 处理 this json document。

使用 VB.NET 代码：

        Dim o As JObject = JObject.Parse(json)
        Dim results As List(Of JToken) = o.Children().ToList

        Dim count As Integer = 0
        For Each item As JProperty In results
            Dim snippet As String = String.Empty
            Dim URL As String = String.Empty
            Dim source As String = String.Empty
            item.CreateReader()
            Select Case item.Name
                Case "response"
                    snippet = item.Last.SelectToken("docs").First.Item("snippet").ToString
                    URL = item.Last.SelectToken("docs").First.Item("web_url").ToString
                    source = ControlChars.NewLine & "<font size='2'>" & item.First.SelectToken("docs").First.Item("source").ToString & "</font>" & ControlChars.NewLine
                    tbNews.Text &= "<a href=" & URL & " target='new'>" & snippet & "</a> - " & source
            End Select
        Next

结果我只收到了第一份文件。有人可以建议我如何将第 1 - N 个文档作为完整列表吗？

Answer 1

文档有 2 层深，您只在顶层循环。试试这个...

Dim parsedObject = JObject.Parse(json)
Dim docs = parsedObject("response")("docs")

For Each doc In docs
    Dim snippet As String = doc("snippet")
    Dim URL As String = doc("web_url")
    Dim source As String = doc("source")

    '....

Next