- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 【已解决】[求助]z t o a p i中通api (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129409)
-- 发布时间：2018/12/27 23:13:00
-- 【已解决】[求助]z t o a p i中通api
以下内容是专门发给zto001浏览
-- 发布时间：2018/12/27 23:23:00
--
Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceNewTraces"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "NEW_TRACES")
request.addParam("data", "[""680000000000""]") \'查询两个单号
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)
output.show(jo.Tostring)
msgbox(jo("data")(0)("traces")(0)("desc").tostring)
msgbox(jo("data")(0)("traces")(1)("desc").tostring)
http://www.foxtable.com/mobilehelp/scr/0140.htm
-- 发布时间：2018/12/28 10:20:00
--
问下我想像物流跟踪一样显示物流状态如何解析？
可以得到解析结果：
2017-03-03 08:42:59 | 已签收,感谢使用顺丰,期待再次为您服务
2017-03-03 07:40:22 | 正在派送途中,请您准备签收(派件人:李正国,电话:18907153726)
2017-03-03 06:08:45 | 快件到达 【武汉硚口区复兴村营业点】
2017-03-03 04:48:26 | 快件在【武汉吴家山集散中心】已装车，准备发往 【武汉硚口区复兴村营业点】
2017-03-03 00:07:27 | 快件到达 【武汉吴家山集散中心】
2017-03-02 22:54:14 | 快件在【武汉总集散中心】已装车，准备发往 【武汉吴家山集散中心】
2017-03-02 22:54:02 | 快件到达 【武汉总集散中心】
2017-03-02 15:00:33 | 快件在【深圳总集散中心】已装车，准备发往 【武汉总集散中心】
2017-03-02 14:47:39 | 快件到达 【深圳总集散中心】
2017-03-02 10:24:37 | 快件在【江门江海集散中心】已装车，准备发往下一站
2017-03-02 05:41:54 | 快件到达 【江门江海集散中心】
2017-03-01 22:31:24 | 快件在【湛江麻章集散中心】已装车，准备发往 【江门江海集散中心】
2017-03-01 22:24:37 | 快件到达 【湛江麻章集散中心】
2017-03-01 20:02:01 | 快件在【湛江市赤坎文保北村营业点】已装车，准备发往 【湛江麻章集散中心】
2017-03-01 19:49:28 | 顺丰速运 已收取快件
{
"data": [
{
"traces": [
{
"desc": "[上海市] [上海]的张伟丰已收件 电话:17740809169",
"dispOrRecMan": "张伟丰",
"dispOrRecManCode": "",
"dispOrRecManPhone": "17740809169",
"isCenter": "T",
"preOrNextCity": "",
"preOrNextProv": "",
"preOrNextSite": "",
"preOrNextSiteCode": "",
"preOrNextSitePhone": "",
"remark": "",
"scanCity": "上海市",
"scanDate": "2017-07-26 17:30:14",
"scanProv": "上海",
"scanSite": "上海",
"scanSiteCode": "02100",
"scanSitePhone": "95311",
"scanType": "收件",
"signMan": ""
},
{
"desc": "[金华市] 快件到达 [义乌]",
"dispOrRecMan": "",
"dispOrRecManCode": "",
"dispOrRecManPhone": "",
"isCenter": "F",
"preOrNextCity": "",
"preOrNextProv": "",
"preOrNextSite": "",
"preOrNextSiteCode": "",
"preOrNextSitePhone": "",
"remark": "",
"scanCity": "金华市",
"scanDate": "2017-05-18 16:55:01",
"scanProv": "浙江",
"scanSite": "义乌",
"scanSiteCode": "57950",
"scanSitePhone": "0579-89936000",
"scanType": "到件",
"signMan": ""
},
{
"desc": "[上海市] 快件已到达[上海],业务员张伟丰正在第1次派件 电话:17740809169
请保持电话畅通、耐心等待",
"dispOrRecMan": "张伟丰",
"dispOrRecManCode": "",
"dispOrRecManPhone": "17740809169",
"isCenter": "T",
"preOrNextCity": "",
"preOrNextProv": "",
"preOrNextSite": "",
"preOrNextSiteCode": "",
"preOrNextSitePhone": "",
"remark": "",
"scanCity": "上海市",
"scanDate": "2017-07-26 17:33:27",
"scanProv": "上海",
"scanSite": "上海",
"scanSiteCode": "02100",
"scanSitePhone": "95311",
"scanType": "派件",
"signMan": ""
},
{
"desc": "[上海市] [上海总部财务]的派件已退件签收 感谢使用中通快递,期待再次为您
服务!",
"dispOrRecMan": "",
"dispOrRecManCode": "",
"dispOrRecManPhone": "",
"isCenter": "F",
"preOrNextCity": "",
"preOrNextProv": "",
"preOrNextSite": "",
"preOrNextSiteCode": "",
"preOrNextSitePhone": "",
"remark": "",
"scanCity": "上海市",
"scanDate": "2017-03-03 13:11:23",
"scanProv": "上海",
"scanSite": "上海总部财务",
"scanSiteCode": "00088",
"scanSitePhone": "",
"scanType": "退件签收",
"signMan": "本人"
}
],
"billCode": "680000000000"
}
],
"msg": "",
"status": true
}-- 发布时间：2018/12/28 11:33:00
--
Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceNewTraces"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "NEW_TRACES")
request.addParam("data", "[""680000000000""]") \'查询两个单号
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)
\'output.show(jo.Tostring)
For Each o As object In jo("data")(0)("traces")
output.show(o("scanDate").Tostring & "|" & o("desc").tostring)
Next
-- 发布时间：2018/12/28 12:02:00
--
好的好的，我看懂了，知道怎么做了
-- 发布时间：2019/1/11 19:04:00
--
有个小问题，如果单号没有物流记录，就会返回 {"data":[],"msg":"暂无运单信息","status":true}
-- 发布时间：2019/1/11 20:06:00
--
-- 发布时间：2019/1/12 11:10:00
--
已解决谢谢！
-- 发布时间：2019/5/24 10:04:00
--
我在用这个代码的时候出错，这是什么原因？
此主题相关图片如下：问题.jpg
-- 发布时间：2019/5/24 10:12:00
--
可以了