老师,我学习帮助中的http://www.foxtable.com/mobilehelp/topics/0252.htm 这里面再结合杰哥分析JSON,我改编杰哥的代码后在命令窗口运行出错,能帮我分析下吗?谢谢

Dim str As String =CompressJson(Jobject.Parse(ClipBoard.GetText))

output.show(str)

Dim ja As jarray = jarray.parse(str) \'将字符串解析为数组对象

Dim sb As new StringBuilder

For Each jt As JToken In ja \'对数组遍历时,每个数组元素的基类是JToken

    \'根据JToken类型进行判断

    \'1如果是对象

    If jt.Type.ToString() = "Object" Then

        sb.AppendLine("Object类型:")

        For Each jp As JProperty In jt

            sb.Append("    " & jp.Name.ToString & ":")

            sb.AppendLine(jp.Value.ToString )

        Next

    \'2如果是对象

    Else If jt.Type.ToString() = "Array" Then

        sb.AppendLine("Array类型:")

        For Each jv As JValue In jt

            sb.AppendLine("    " & jv.ToString )

        Next

    Else

        \'3如果是原生值

        sb.Append(jt.Type.ToString() & "类型:" )

        sb.AppendLine(jt.ToString())

    End If

Next

Output.Show(sb.ToString)

此主题相关图片如下：微信截图_16303159452846.png

{"showapi_res_code":0,"showapi_res_error":"","showapi_res_body":{"mailNo":"929601675231","update":1488784549365,"updateStr":"2017-03-06 15:15:49","ret_code":0,"flag":true,"status":4,"tel":"95338","expSpellName":"shunfeng","data":[{"time":"2017-03-03 08:42:59","context":"已签收,感谢使用顺丰,期待再次为您服务"},{"time":"2017-03-03 07:40:22","context":"正在派送途中,请您准备签收(派件人:李正国,电话:18907153726)"},{"time":"2017-03-03 06:08:45","context":"快件到达 【武汉硚口区复兴村营业点】"},{"time":"2017-03-03 04:48:26","context":"快件在【武汉吴家山集散中心】已装车，准备发往 【武汉硚口区复兴村营业点】"},{"time":"2017-03-03 00:07:27","context":"快件到达 【武汉吴家山集散中心】"},{"time":"2017-03-02 22:54:14","context":"快件在【武汉总集散中心】已装车，准备发往 【武汉吴家山集散中心】"},{"time":"2017-03-02 22:54:02","context":"快件到达 【武汉总集散中心】"},{"time":"2017-03-02 15:00:33","context":"快件在【深圳总集散中心】已装车，准备发往 【武汉总集散中心】"},{"time":"2017-03-02 14:47:39","context":"快件到达 【深圳总集散中心】"},{"time":"2017-03-02 10:24:37","context":"快件在【江门江海集散中心】已装车，准备发往下一站"},{"time":"2017-03-02 05:41:54","context":"快件到达 【江门江海集散中心】"},{"time":"2017-03-01 22:31:24","context":"快件在【湛江麻章集散中心】已装车，准备发往 【江门江海集散中心】"},{"time":"2017-03-01 22:24:37","context":"快件到达 【湛江麻章集散中心】"},{"time":"2017-03-01 20:02:01","context":"快件在【湛江市赤坎文保北村营业点】已装车，准备发往 【湛江麻章集散中心】"},{"time":"2017-03-01 19:49:28","context":"顺丰速运 已收取快件"}],"expTextName":"顺丰速运"}}