常量數(shù)據(jù)表
|
1
2
3
|
.版本 2.常量 快遞單號前, "<文本長度: 13>", , [{"comCode":".常量 快遞單號后, "<文本長度: 9>", , ","id":"" |
快遞查詢自動識別快遞公司無驗(yàn)證碼
此功能需要加載精易模塊5.6
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
.版本 2.程序集 窗口程序集_啟動窗口.子程序 __啟動窗口_創(chuàng)建完畢.子程序 _查詢按鈕_被單擊.局部變量 提交網(wǎng)址, 文本型.局部變量 返回數(shù)據(jù), 文本型.局部變量 快遞單號, 文本型.局部變量 數(shù)據(jù), 文本型.局部變量 i, 整數(shù)型.局部變量 json, 類_json快遞信息編輯框.內(nèi)容 ＝ “”快遞狀態(tài)標(biāo)簽.標(biāo)題 ＝ “”提交網(wǎng)址 ＝ “http://www.kuaidi100.com/autonumber/auto?num=” ＋ 快遞編號編輯框.內(nèi)容返回數(shù)據(jù) ＝ 編碼_utf8到gb2312 (網(wǎng)頁_訪問S (提交網(wǎng)址, , ))快遞單號 ＝ 文本_取出中間文本 (返回數(shù)據(jù), #快遞單號前, #快遞單號后)數(shù)據(jù) ＝ 編碼_utf8到gb2312 (網(wǎng)頁_訪問S (“http://www.kuaidi100.com/query?type=” ＋ 快遞單號 ＋ “&postid=” ＋ 快遞編號編輯框.內(nèi)容))json.解析 (數(shù)據(jù)).判斷開始 (json.成員數(shù) (“data”) ＝ 0) 快遞狀態(tài)標(biāo)簽.標(biāo)題 ＝ “抱歉，暫無查詢記錄”.默認(rèn) 快遞狀態(tài)標(biāo)簽.標(biāo)題 ＝ json.取通用屬性 (“data[0].context”, ) .計次循環(huán)首 (json.成員數(shù) (“data”), i) 系統(tǒng)_處理事件 () 快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].time”, ) ＋ #換行符) 快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].context”, ) ＋ #換行符) 快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].location”, ) ＋ #換行符) 快遞信息編輯框.加入文本 (“*********************************************” ＋ #換行符) .計次循環(huán)尾 ().判斷結(jié)束 |
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，謝謝大家對服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接
