JSON.net 通过数据解析答案

【问题标题】：JSON.net Parsing through dataJSON.net 通过数据解析
【发布时间】：2013-08-26 19:50:13
【问题描述】：

大家好，我正在尝试使用以下内容循环 json 响应：

Dim url As String = "https://www.[site here].com/api/v1/messages.json?access_token=" & yAPI.userToken
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
Dim o As JObject = JObject.Parse(reader.ReadToEnd)

reader.Close()
response.Close()

Dim mtemp As String = DirectCast(o("messages")(0)("body")("rich").ToString(), String)

对于 mtemp，我可以很好地获取数据，但它只获取第一个集合，而不是循环遍历所有其余的 json 响应。

响应示例如下：

{
   json data here...
},
"threaded_extended": {},
  "messages": [
    {
      "network_id": [edited here],
      "chat_client_sequence": null,
      "privacy": "public",
      "body": {
        "urls": [
          "[edited here]"
        ],
        "rich": "[edited here]",
        "plain": "[edited here]",
        "parsed": "[edited here]"
      },
      "sender_id": [edited here],
      "content_excerpt": "[edited here]",
      "client_url": "[edited here]",
      "client_type": "Web",
      "web_url": "[edited here]",
      "created_at": "2013/08/26 19:31:50 +0000",
      "language": null,
      etc etc...................
    },
    {
      "network_id": [edited here],
      "chat_client_sequence": null,
      "privacy": "public",
      "body": {
        "rich": "[edited here]",
        "plain": "[edited here]",
        "parsed": "[edited here]"
      },
      "sender_id": [edited here],
      "content_excerpt": "[edited here]",
      "client_url": "[edited here]",
      "web_url": "[edited here]",
      "client_type": "Web",
      "created_at": "2013/08/26 19:25:00 +0000",
      "language": null,
      etc etc....
    },

我怎样才能继续循环，直到它到达我正在寻找的最后一刻？

【问题讨论】：

标签： json vb.net json.net

【解决方案1】：

o("messages") 是一个JArray，所以你可以枚举它。在您的代码中，您只要求第一项。如果你想循环，你需要一个循环结构。

For Each msg As JObject In o("messages")
    ' Do something with each msg
    Debug.WriteLine(msg("body")("rich").ToString())
Next

【讨论】：