Dim json As String = Filesys.ReadAllText("c:\tmp\123.txt")
Dim jo As JObject = JObject.Parse(json)
For Each jt As JToken In jo("details")
Output.Show(jt("approver")("userid").ToString)
Output.Show(jt("sp_status").ToString)
Output.Show(jt("speech").ToString)
Output.Show(jt("sptime").ToString)
Output.Show(jt("media_id").ToString)
Next
这里有所有的例子：
http://www.foxtable.com/mobilehelp/topics/0140.htm
http://www.foxtable.com/mobilehelp/topics/0252.htm
加好友 
发短信
Post By：2020/5/10 9:23:00 [显示全部帖子]
