{"status":"0","msg":"ok","result":{"number":"504759958290","type":"sfexpress","list":[{"time":"2016-12-11 02:42:10","status":"在官网\"运单资料&签收图\",可查看签收人信息"},{"time":"2016-12-10 08:39:23","status":"已签收(蔡钰怡 ),感谢使用顺丰,期待再次为您服务"},{"time":"2016-12-10 07:39:42","status":"正在派送途中,请您准备签收(派件人:黄国城,电话:18826042729)"},{"time":"2016-12-10 06:49:18","status":"快件到达 【中山东凤民乐村营业部】"},{"time":"2016-12-10 03:16:07","status":"快件在【中山三角集散中心】已装车，准备发往 【中山东凤民乐村营业部】"},{"time":"2016-12-10 00:33:45","status":"快件到达 【中山三角集散中心】"},{"time":"2016-12-09 22:20:52","status":"快件在【深圳黄田集散中心】已装车，准备发往 【中山三角集散中心】"},{"time":"2016-12-09 22:20:52","status":"快件到达 【深圳黄田集散中心】"},{"time":"2016-12-09 19:41:45","status":"快件在【深圳南山登良营业部】已装车，准备发往下一站"},{"time":"2016-12-09 18:47:42","status":"顺丰速运 已收取快件"}],"deliverystatus":"3","issign":"1"}}
Dim msc As Object, data1 As Object
Dim js_Code As String
js_Code = "function js(json) {eval(""var o=""+json);return o;}"
msc = CreateObject("MSScriptControl.ScriptControl")
With msc
.Language = "Javascript"
.Timeout = -1
.AddCode(js_code)
data1 = .Run("js",json)
End With
output.show(data1.msg)
output.show(data1.result.number)
output.show(data1.result.type)
output.show(data1.result.deliverystatus)
For Each obj As object In data1.result.list
output.Show(obj.time)
Next
list 部分要怎么取值,谢谢! 搞定了!~
[此贴子已经被作者于2016/12/12 19:45:58编辑过]
加好友 
发短信
Post By：2016/12/12 19:41:00 [只看该作者]
