批量查快递，模块及源码

sj13144844970

接口是post采集的，短时间不能调用太多次、如果查询失败重启一下路由器换了ip就好了~
好了，我要睡觉了、、

sj13144844970

PL_快递100_模块源码、

  

常量名称	常量值	公 开	备 注
PL_快递100_公司及索引	<文本长度: 1538>

.版本 2<br /> <br /> .常量 PL_快递100_公司及索引, "<文本长度: 1538>"

  

数据类型名	公开	备 注
PL_快递_数据类
成员名	类 型	传址	数组	备 注
时间	文本型
动态	文本型

.版本 2<br /> <br /> .数据类型 PL_快递_数据类, 公开<br />     .成员 时间, 文本型<br />     .成员 动态, 文本型

  

窗口程序集名	保 留	保 留	备 注
PL_快递100_类, , 公开, cha询快递、
变量名	类 型	数组	备 注
json	类_json

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
匹配公司	文本型		返回优先度最高的快递公司索引，没找到返回空文本、
参数名	类 型	参考	可空	数组	备 注
快递单号	文本型				快递单号、
_公司索引	文本型				返回公司索引、

变量名	类 型	静态	数组	备 注
网页源码	文本型
匹配数量	整数型
i	整数型
_快递公司_优先	文本型

网页源码 ＝ 网页_访问S (“http://www.kuaidi100.com/autonumber/autoComNum?resultv2=1&text=” ＋ 快递单号, 1, , , , , , , , , , , , , , , , )
json.解析 (网页源码)
匹配数量 ＝ json.成员数 (“auto”)
计次循环首 (匹配数量, i)
如果真 (i ＝ 1)
_快递公司_优先 ＝ json.取通用属性 (“auto[” ＋ 到文本 (i － 1) ＋ “].comCode”, )
重定义数组 (_公司索引, 假, 匹配数量)
_公司索引 [i] ＝ json.取通用属性 (“auto[” ＋ 到文本 (i － 1) ＋ “].comCode”, )
计次循环尾 ()
返回 (_快递公司_优先)

子程序名	返回值类型	公开	备 注
查快递	整数型
参数名	类 型	参考	可空	数组	备 注
快递单号	文本型				快递单号、
公司索引	文本型				公司索引、
快递	PL_快递_数据类

变量名	类 型	静态	数组	备 注
网页源码	文本型
_匹配数量	整数型
i	整数型

网页源码 ＝ 网页_访问S (“http://www.kuaidi100.com/query?type=” ＋ 公司索引 ＋ “&postid=” ＋ 快递单号 ＋ “&temp=0.” ＋ 文本_取随机数字 (16, ), , , , , , , , , , , , , , , , , )
网页源码 ＝ 编码_utf8到gb2312 (网页源码)
json.解析 (网页源码)
_匹配数量 ＝ json.成员数 (“data”)
计次循环首 (_匹配数量, i)
如果真 (i ＝ 1)
重定义数组 (快递, 假, _匹配数量)
快递 [i].时间 ＝ json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].time”, )
快递 [i].动态 ＝ json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].context”, )
计次循环尾 ()
返回 (_匹配数量)

子程序名	返回值类型	公开	备 注
索引_转公司	文本型		快递公司名称
参数名	类 型	参考	可空	数组	备 注
公司索引	文本型

变量名	类 型	静态	数组	备 注
行	文本型		0
i	整数型
_公司名称	文本型

行 ＝ 分割文本 ( #PL_快递100_公司及索引, #换行符, )
计次循环首 (取数组成员数 (行), i)
如果真 (公司索引 ＝ 文本_取左边 (行 [i], “=”, , ))
_公司名称 ＝ 文本_取右边 (行 [i], “=”, , )
跳出循环 ()

计次循环尾 ()
返回 (_公司名称)

子程序名	返回值类型	公开	备 注
公司_转索引	文本型
参数名	类 型	参考	可空	数组	备 注
公司名称	文本型

变量名	类 型	静态	数组	备 注
行	文本型		0
i	整数型
_公司索引	文本型

行 ＝ 分割文本 ( #PL_快递100_公司及索引, #换行符, )
计次循环首 (取数组成员数 (行), i)
如果真 (公司名称 ＝ 文本_取右边 (行 [i], “=”, , ))
_公司索引 ＝ 文本_取左边 (行 [i], “=”, , )
跳出循环 ()

计次循环尾 ()
返回 (_公司索引)

.版本 2<br /> <br /> .程序集 PL_快递100_类, , 公开, cha询快递、<br /> .程序集变量 json, 类_json<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 匹配公司, 文本型, 公开, 返回优先度最高的快递公司索引，没找到返回空文本、<br /> .参数 快递单号, 文本型, , 快递单号、<br /> .参数 _公司索引, 文本型, 参考 可空 数组, 返回公司索引、<br /> .局部变量 网页源码, 文本型<br /> .局部变量 匹配数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 _快递公司_优先, 文本型<br /> <br /> 网页源码 ＝ 网页_访问S (“http://www.kuaidi100.com/autonumber/autoComNum?resultv2=1&text=” ＋ 快递单号, 1, , , , , , , , , , , , , , , , )<br /> json.解析 (网页源码)<br /> 匹配数量 ＝ json.成员数 (“auto”)<br /> .计次循环首 (匹配数量, i)<br />     .如果真 (i ＝ 1)<br />         _快递公司_优先 ＝ json.取通用属性 (“auto[” ＋ 到文本 (i － 1) ＋ “].comCode”, )<br />         重定义数组 (_公司索引, 假, 匹配数量)<br />     .如果真结束<br />     _公司索引 <i> ＝ json.取通用属性 (“auto[” ＋ 到文本 (i － 1) ＋ “].comCode”, )<br /> .计次循环尾 ()<br /> 返回 (_快递公司_优先)<br /> <br /> .子程序 查快递, 整数型, 公开<br /> .参数 快递单号, 文本型, , 快递单号、<br /> .参数 公司索引, 文本型, , 公司索引、<br /> .参数 快递, PL_快递_数据类, 参考 数组<br /> .局部变量 网页源码, 文本型<br /> .局部变量 _匹配数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 网页源码 ＝ 网页_访问S (“http://www.kuaidi100.com/query?type=” ＋ 公司索引 ＋ “&postid=” ＋ 快递单号 ＋ “&temp=0.” ＋ 文本_取随机数字 (16, ), , , , , , , , , , , , , , , , , )<br /> 网页源码 ＝ 编码_utf8到gb2312 (网页源码)<br /> json.解析 (网页源码)<br /> _匹配数量 ＝ json.成员数 (“data”)<br /> .计次循环首 (_匹配数量, i)<br />     .如果真 (i ＝ 1)<br />         重定义数组 (快递, 假, _匹配数量)<br />     .如果真结束<br />     快递 <i>.时间 ＝ json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].time”, )<br />     快递 <i>.动态 ＝ json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].context”, )<br /> .计次循环尾 ()<br /> 返回 (_匹配数量)<br /> <br /> .子程序 索引_转公司, 文本型, 公开, 快递公司名称<br /> .参数 公司索引, 文本型<br /> .局部变量 行, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 _公司名称, 文本型<br /> <br /> 行 ＝ 分割文本 (#PL_快递100_公司及索引, #换行符, )<br /> .计次循环首 (取数组成员数 (行), i)<br />     .如果真 (公司索引 ＝ 文本_取左边 (行 <i>, “=”, , ))<br />         _公司名称 ＝ 文本_取右边 (行 <i>, “=”, , )<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (_公司名称)<br /> <br /> .子程序 公司_转索引, 文本型, 公开<br /> .参数 公司名称, 文本型<br /> .局部变量 行, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 _公司索引, 文本型<br /> <br /> 行 ＝ 分割文本 (#PL_快递100_公司及索引, #换行符, )<br /> .计次循环首 (取数组成员数 (行), i)<br />     .如果真 (公司名称 ＝ 文本_取右边 (行 <i>, “=”, , ))<br />         _公司索引 ＝ 文本_取左边 (行 <i>, “=”, , )<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (_公司索引)

醉米奇

66666666666666666

YY尘世

2222222222222222222222222222222222222222222222222222222222222222

py341208

现在这个好像查出来也不是很准确，楼主又没办法？

zhujianhui

非常感谢分享吧

sj13144844970

jiechen 发表于 2018-11-26 21:40
这个厉害，确实不错，其他100快递软件显示没有任何物流信息，换了这个软件直接出物流信息了，   就是没有一 ...

模块已经给你了，这个只是基础的框架。至于实线的效果。你可以自由发挥、

jiechen

这个厉害，确实不错，其他100快递软件显示没有任何物流信息，换了这个软件直接出物流信息了，   就是没有一个直接从桌面导入的选择或者Excel的选择

星辰Stranger

6666666666666

杰克逊

哇塞，cha询的不错55555555555

杰克逊

哇塞，cha询的不错55555555555

车车520

谢谢分享 参考一下