感谢蓝版 这个json还是真有点绕 比如我使用下列代码, 我想使用Dim jo22 As JObject = JObject.Parse(jo("apiResultData")("waybillNoInfoList")) 或者 Dim jo22 As JObject = JObject.Parse(jo("apiResultData")("routeLabelInfo"))获取routeLabelInfo和waybillNoInfoList下的信息,但是又进不去,这个又不是子节点的概念了吗?
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim bw As String = FileSys.ReadAllText(dlg.FileName,Encoding.UTF8)
Dim jo As JObject = JObject.Parse(bw)
Dim jo22 As JObject = JObject.Parse(jo("apiResultData"))
For Each it As object In jo22
If typeof(it.value) Is JObject
Dim jo2 As JObject = it.value
For Each it2 As object In jo2
Output.Show(it2.key & "-" & it2.value.tostring)
Next
ElseIf typeof(it.value) Is jarray
For Each it2 As object In it.value
Output.Show(it2.Tostring)
Next
Else
Output.Show(it.key & "-" & it.value.Tostring)
End If
Next
End If