先搞清楚自己的json结构：
http://www.foxtable.com/mobilehelp/topics/0140.htm，了解大括号，中括号分别表示什么意思
9楼的json其实是有多个流程的，一个单位名称一个流程，最外层是中括号，就是一个数组
Dim json As String = jaaa.ToString
Dim ja As JArray = JArray.Parse(json)
For i As Integer = 0 To ja.Count - 1
Output.Show( "danweiname=:" & ja(i)("danweiname").ToString() & "name:" & ja(i)("name").ToString() )
Dim ja2 As JArray =ja(i)("date")
For j As Integer = 0 To ja2.Count - 1
Output.Show( "tiem=:" & ja2(j)("tiem").ToString() & "name:" & ja2(j)("context").ToString() )
Next
Next
加好友 
发短信
Post By：2020/7/21 20:20:00 [只看该作者]
