快捷導(dǎo)航

易語言自動識別快遞公司查件免驗(yàn)證碼的代碼

更新時(shí)間：2018年12月03日 15:13:44 作者：易語言源碼教程

今天小編就為大家分享一篇關(guān)于易語言自動識別快遞公司查件免驗(yàn)證碼的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧

常量數(shù)據(jù)表

.版本 2
.常量 快遞單號前, "<文本長度: 13>", , [{"comCode":"
.常量 快遞單號后, "<文本長度: 9>", , ","id":""

快遞查詢自動識別快遞公司無驗(yàn)證碼

此功能需要加載精易模塊5.6

.版本 2
.程序集 窗口程序集_啟動窗口
.子程序 __啟動窗口_創(chuàng)建完畢
.子程序 _查詢按鈕_被單擊
.局部變量 提交網(wǎng)址, 文本型
.局部變量 返回?cái)?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)容
返回?cái)?shù)據(jù) ＝ 編碼_utf8到gb2312 (網(wǎng)頁_訪問S (提交網(wǎng)址, , ))
快遞單號 ＝ 文本_取出中間文本 (返回?cái)?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”, )
  .計(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é)果：