Foxtable(狐表)用户栏目专家坐堂 → 【已解决】[求助]z t o a p i中通api


  共有5800人关注过本帖树形打印复制链接

主题:【已解决】[求助]z t o a p i中通api

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1489 积分:10602 威望:0 精华:0 注册:2018/10/16 11:42:00
【已解决】[求助]z t o a p i中通api  发帖心情 Post By:2018/12/27 23:13:00 [只看该作者]


以下内容是专门发给zto001浏览

[此贴子已经被作者于2020/3/19 23:13:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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/27 23:22:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1489 积分:10602 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2018/12/28 10:20:00 [只看该作者]

问下我想像物流跟踪一样显示物流状态如何解析?

我看了解析的说明,还是不会。没看到嵌套对象
http://www.foxtable.com/mobilehelp/index.htm?page=0140.htm


可以得到解析结果:

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
}

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1489 积分:10602 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2018/12/28 12:02:00 [只看该作者]

好的好的,我看懂了,知道怎么做了

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1489 积分:10602 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/1/11 19:04:00 [只看该作者]

有个小问题,如果单号没有物流记录,就会返回  {"data":[],"msg":"暂无运单信息","status":true}
停止后续的代码操作,我应该怎样才能避免这样的情况出现?
在哪个位置加个判断,怎么写比较好呢?

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/1/11 20:06:00 [只看该作者]

Dim jo As JObject = JObject.Parse(str)
Dim ja As JArray = jo("data")
If ja IsNot Nothing AndAlso ja.Count > 0 Then
    ‘开始解析’
End If

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1489 积分:10602 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/1/12 11:10:00 [只看该作者]

已解决谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1489 积分:10602 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/5/24 10:04:00 [只看该作者]

我在用这个代码的时候出错,这是什么原因?


图片点击可在新窗口打开查看此主题相关图片如下:问题.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1489 积分:10602 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/5/24 10:12:00 [只看该作者]

可以了

 回到顶部
总数 11 1 2 下一页