易語(yǔ)言如何實(shí)現(xiàn)自動(dòng)識(shí)別快遞公司查件免驗(yàn)證碼功能

這篇文章主要介紹了易語(yǔ)言如何實(shí)現(xiàn)自動(dòng)識(shí)別快遞公司查件免驗(yàn)證碼功能，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

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

.版本 2
.常量 快遞單號(hào)前, "<文本長(zhǎng)度: 13>", , [{"comCode":"
.常量 快遞單號(hào)后, "<文本長(zhǎng)度: 9>", , ","id":""

快遞查詢自動(dòng)識(shí)別快遞公司無(wú)驗(yàn)證碼

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

.版本 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)頁(yè)_訪問(wèn)S (提交網(wǎng)址, , ))
快遞單號(hào) ＝ 文本_取出中間文本 (返回?cái)?shù)據(jù), #快遞單號(hào)前, #快遞單號(hào)后)
數(shù)據(jù) ＝ 編碼_utf8到gb2312 (網(wǎng)頁(yè)_訪問(wèn)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)題 ＝ “抱歉，暫無(wú)查詢記錄”
.默認(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é)果：

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“易語(yǔ)言如何實(shí)現(xiàn)自動(dòng)識(shí)別快遞公司查件免驗(yàn)證碼功能”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!