使用 NewtonSoft 循环遍历 JSON

Question

我的 JSON 文件中有超过 6,300 条消息。我的 JSON 格式是这样的......

{ "messages":[
  {
    "id": ...
  }
...
]}

我正在尝试使用 NewtonSoft 使用此代码遍历此 JSON 文件中的每条消息...

Dim jObj As JObject = JObject.Parse(File.ReadAllText(outputJSONpath & "myFileName.json"))
Dim jArr As New JArray(jObj("messages"))
For Each message As JObject In jArr.Children(Of JObject)()
    'Do work
Next

当我执行jArr.Children(Of JObject)().Count 时，我得到 0。我希望看到计数为 6,300。在即时窗口中，我看到 jObj 和 jArr 的有效对象。我以前成功地使用过与此非常相似的代码，但我无法弄清楚这里出了什么问题。我在 jsonlint.com 上验证了我的 JSON 是有效的，我想我可能有损坏的 JSON。有什么想法吗？

Answer 1

messages 是一个 JArray，你只需要将它转换：

Dim jArr As JArray = CType(jObj("messages"), JArray)