常量數(shù)據(jù)表
|
1
2
3
|
.版本 2.常量 快遞單號(hào)前, "<文本長(zhǎng)度: 13>", , [{"comCode":".常量 快遞單號(hào)后, "<文本長(zhǎng)度: 9>", , ","id":"" |
快遞查詢自動(dòng)識(shí)別快遞公司無驗(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.程序集 窗口程序集_啟動(dòng)窗口.子程序 __啟動(dòng)窗口_創(chuàng)建完畢.子程序 _查詢按鈕_被單擊.局部變量 提交網(wǎng)址, 文本型.局部變量 返回?cái)?shù)據(jù), 文本型.局部變量 快遞單號(hào), 文本型.局部變量 數(shù)據(jù), 文本型.局部變量 i, 整數(shù)型.局部變量 json, 類_json快遞信息編輯框.內(nèi)容 ＝ “”快遞狀態(tài)標(biāo)簽.標(biāo)題 ＝ “”提交網(wǎng)址 ＝ “http://www.kuaidi100.com/autonumber/auto?num=” ＋ 快遞編號(hào)編輯框.內(nèi)容返回?cái)?shù)據(jù) ＝ 編碼_utf8到gb2312 (網(wǎng)頁_訪問S (提交網(wǎng)址, , ))快遞單號(hào) ＝ 文本_取出中間文本 (返回?cái)?shù)據(jù), #快遞單號(hào)前, #快遞單號(hào)后)數(shù)據(jù) ＝ 編碼_utf8到gb2312 (網(wǎng)頁_訪問S (“http://www.kuaidi100.com/query?type=” ＋ 快遞單號(hào) ＋ “&postid=” ＋ 快遞編號(hào)編輯框.內(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”, ) .計(jì)次循環(huán)首 (json.成員數(shù) (“data”), i) 系統(tǒng)_處理事件 () 快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].time”, ) ＋ #換行符) 快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].context”, ) ＋ #換行符) 快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].location”, ) ＋ #換行符) 快遞信息編輯框.加入文本 (“*********************************************” ＋ #換行符) .計(jì)次循環(huán)尾 ().判斷結(jié)束 |
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部?jī)?nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接
