以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这样的格式怎么解析？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141169)
--  作者：zto001
--  发布时间：2019/9/23 12:38:00
--  [求助]这样的格式怎么解析？
{
"code":
int0
"msg":
string"查询成功"
"data":[
0:{
"no":
string"3339809700595"
"brand":
string"sto"
"status":
string"signed"
"data":[
0:{
"time":
string"2017-10-03 19:11:00"
"context":
string"已签收,签收人是代签"
}
1:{
"time":
string"2017-10-03 08:14:33"
"context":
string"快件已到达 浙江浦江公司"
}
2:{
"time":
string"2017-10-03 01:09:41"
"context":
string"由浙江义乌中转部 发往 浙江浦江公司"
}
]
"order":
string"desc"
}
]
}
这样格式的怎么解析？我需要解析出红色字体区域，括号太多了
--  作者：zto001
--  发布时间：2019/9/23 12:40:00
--  
Dim jo As JObject = JObject.Parse( ret )
For Each jt As JToken In jo("data")
中间就不会了


Next
--  作者：有点蓝
--  发布时间：2019/9/23 13:39:00
--  
Dim jo As JObject = JObject.Parse( ret )
Dim ja As JArray = jo("data")
For i As Integer = 0 To ja.Count - 1
   Output.Show(ja(i)("no").ToString)
Dim ja2 As JArray = ja(i)("data")
For j As Integer = 0 To ja2.Count - 1
   Output.Show(ja2(j)(j)("time").ToString)
Next
Next