与纽顿顿夫妇一起循环通过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的有效对象。我以前成功使用了与此相似的代码，但是我无法弄清楚这里有什么问题。我验证了我的JSON在JSONLINT.com上有效，以为可能我有腐败的JSON。有什么想法吗？

Answer 1

as messages是jarray，您只需要投射它：

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