以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于帮助文档的JSON解析实例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134885)
--  作者：有点甜
--  发布时间：2019/5/12 22:29:00
--  

处理的时候，倒序处理

 

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=yuantong&nu=800851552555646645")
hc.Headers.Add("Authorization","APPCODE " & "278b315cabac4df9a39478de0a8321ad")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("showapi_res_body")("data") IsNot Nothing Then
    Dim objs = jo("showapi_res_body")("data")
    For i As Integer = objs.count-1 To 0 Step -1
        Dim jt = objs(i)
        Output.Show(jt("time").ToString & " | " & jt("context").ToString)
    Next
End If