您好,登錄后才能下訂單哦!
前幾天有個(gè)喜歡海淘的朋友就問(wèn)我,能不能幫他制作運(yùn)單查詢(xún)軟件,我問(wèn)她想干嘛?她就說(shuō)她經(jīng)常在海外網(wǎng)站買(mǎi)東西,用的一直是微轉(zhuǎn)運(yùn)國(guó)際速遞。所以她每次查詢(xún)運(yùn)單都要一次打開(kāi)瀏覽器又一次關(guān)閉瀏覽器,十分繁瑣。就問(wèn)問(wèn)我這個(gè)老同學(xué)能都幫她制作個(gè)微轉(zhuǎn)運(yùn)國(guó)際速遞運(yùn)單查詢(xún)軟件,唉,看在老同學(xué)的面上我就同意了。之后我開(kāi)始微轉(zhuǎn)運(yùn)國(guó)際速遞運(yùn)單查詢(xún),我是個(gè)剛剛學(xué)習(xí)易語(yǔ)言的菜鳥(niǎo),聽(tīng)說(shuō)易語(yǔ)言是小學(xué)生玩的東西?那我是不是瞬間也成為了小學(xué)生啊。好了,不扯了,開(kāi)始正文,由于本人技術(shù)有限,根據(jù)自己的思路編寫(xiě)的微轉(zhuǎn)運(yùn)國(guó)際轉(zhuǎn)運(yùn)運(yùn)單查詢(xún)。
1、打開(kāi)微轉(zhuǎn)運(yùn)國(guó)際速遞官網(wǎng)
在精易助手里輸入微轉(zhuǎn)運(yùn)網(wǎng)站www.wzhuanyun.com,來(lái)抓取運(yùn)單查詢(xún)時(shí)的post包。
成功抓取微轉(zhuǎn)運(yùn)國(guó)際速遞post包,那我來(lái)分析分析。
提交地址: 提交數(shù)據(jù):truck_no=WZ123456789 (運(yùn)單單號(hào)是錯(cuò)誤的,保護(hù)隱私,這里只做演示)
看來(lái)我已經(jīng)抓取到post了,接下來(lái)就是動(dòng)刀!打開(kāi)易語(yǔ)言程序!
2、用易語(yǔ)言開(kāi)始編寫(xiě)程序
先新建個(gè)程序,一個(gè)編輯框1和編輯框2和按鈕1.
雙擊查詢(xún)開(kāi)始編寫(xiě)代碼。新建個(gè)變量,取名微轉(zhuǎn)運(yùn),文本型。
.版本 2 .子程序 _按鈕1_被單擊 .局部變量 微轉(zhuǎn)運(yùn), 文本型 微轉(zhuǎn)運(yùn) = 到文本 (網(wǎng)絡(luò)_訪(fǎng)問(wèn)網(wǎng)頁(yè)_文本 (“http://www.wzhuanyun.com/shipment_process.htm”, “post”, “truck_no=” + 編輯框1.內(nèi)容)) 編輯框2.內(nèi)容 = 編碼_URL解碼Utf8 (微轉(zhuǎn)運(yùn))
成功獲取頁(yè)面的運(yùn)單網(wǎng)頁(yè)時(shí),那就開(kāi)始截取網(wǎng)頁(yè)上的信息。
.版本 2 .子程序 文本_取中間文本_內(nèi)部, 文本型 .參數(shù) 欲取全文本, 文本型 .參數(shù) 左邊文本, 文本型 .參數(shù) 右邊文本, 文本型 .參數(shù) 跳過(guò)次數(shù), 整數(shù)型, 可空 .參數(shù) 起始位置, 整數(shù)型, 可空 .局部變量 左邊出現(xiàn)的位置, 整數(shù)型 .局部變量 右邊出現(xiàn)的位置, 整數(shù)型 .局部變量 文本長(zhǎng)度, 整數(shù)型 .如果真 (起始位置 > 0) 左邊出現(xiàn)的位置 = 尋找文本 (欲取全文本, 左邊文本, 起始位置, 真) .如果真結(jié)束 .計(jì)次循環(huán)首 (跳過(guò)次數(shù), ) 左邊出現(xiàn)的位置 = 尋找文本 (欲取全文本, 左邊文本, 左邊出現(xiàn)的位置 + 1, 真) .計(jì)次循環(huán)尾 () 左邊出現(xiàn)的位置 = 尋找文本 (欲取全文本, 左邊文本, 左邊出現(xiàn)的位置 + 1, 真) 右邊出現(xiàn)的位置 = 尋找文本 (欲取全文本, 右邊文本, 左邊出現(xiàn)的位置 + 1, 真) .如果真 (左邊出現(xiàn)的位置 = -1) 返回 (“”) .如果真結(jié)束 .如果真 (左邊出現(xiàn)的位置 = -1 或 右邊出現(xiàn)的位置 = -1) 返回 (“”) .如果真結(jié)束 文本長(zhǎng)度 = 取文本長(zhǎng)度 (左邊文本) 返回 (取文本中間 (欲取全文本, 左邊出現(xiàn)的位置 + 文本長(zhǎng)度, 右邊出現(xiàn)的位置 - 左邊出現(xiàn)的位置 - 文本長(zhǎng)度))
這里已經(jīng)截取到網(wǎng)頁(yè)內(nèi)容,
.版本 2 編輯框4.內(nèi)容 = 文本_取中間文本 (編輯框2.內(nèi)容, “收貨人:”, “</div>”, , ) 編輯框3.內(nèi)容 = 文本_取中間文本 (編輯框4.內(nèi)容, “>”, “</font>”, , ) ' 收貨人 編輯框5.內(nèi)容 = 文本_取中間文本 (編輯框2.內(nèi)容, “step-txt liucheng_txt1”, “step-txt liucheng_txt2”, , ) 編輯框7.內(nèi)容 = 文本_取中間文本 (編輯框5.內(nèi)容, “blue_font”, “red_font”, , ) 編輯框8.內(nèi)容 = 文本_取中間文本 (編輯框7.內(nèi)容, “>”, “<”, , ) ' 時(shí)間1 編輯框6.內(nèi)容 = 文本_取中間文本 (編輯框2.內(nèi)容, “red_font”, “</div>”, , ) 編輯框9.內(nèi)容 = 文本_取中間文本 (編輯框6.內(nèi)容, “>”, “</font>”, , ) 編輯框10.內(nèi)容 = 文本_取中間文本 (編輯框5.內(nèi)容, “操作人”, “iv>”, , ) 編輯框11.內(nèi)容 = “已打包” 編輯框12.內(nèi)容 = 文本_取中間文本 (編輯框2.內(nèi)容, “step-txt liucheng_txt2”, “step-txt liucheng_txt3”, , ) 編輯框13.內(nèi)容 = 文本_取中間文本 (編輯框12.內(nèi)容, “blue_font”, “font>”, , ) 編輯框14.內(nèi)容 = 文本_取中間文本 (編輯框13.內(nèi)容, “>”, “<”, , ) ' 時(shí)間2 編輯框15.內(nèi)容 = 文本_取中間文本 (編輯框12.內(nèi)容, “red_font”, “</div>”, , ) 編輯框16.內(nèi)容 = 文本_取中間文本 (編輯框15.內(nèi)容, “>”, “<”, , ) 編輯框17.內(nèi)容 = “已發(fā)貨” 編輯框18.內(nèi)容 = 文本_取中間文本 (編輯框2.內(nèi)容, “step-txt liucheng_txt3”, “step-txt liucheng_txt4”, , ) 編輯框19.內(nèi)容 = 文本_取中間文本 (編輯框18.內(nèi)容, “blue_font”, “font”, , ) 編輯框20.內(nèi)容 = 文本_取中間文本 (編輯框19.內(nèi)容, “>”, “<”, , ) 編輯框21.內(nèi)容 = 文本_取中間文本 (編輯框18.內(nèi)容, “red_font”, “</div>”, , ) 編輯框22.內(nèi)容 = 文本_取中間文本 (編輯框21.內(nèi)容, “>”, “<”, , ) ' 時(shí)間3 編輯框23.內(nèi)容 = 文本_取中間文本 (編輯框2.內(nèi)容, “step-txt liucheng_txt4”, “step-txt liucheng_txt5”, , ) 編輯框24.內(nèi)容 = 文本_取中間文本 (編輯框23.內(nèi)容, “blue_font”, “font>”, , ) 編輯框25.內(nèi)容 = 文本_取中間文本 (編輯框24.內(nèi)容, “>”, “<”, , )
以上是一個(gè)個(gè)截取、不要說(shuō)辛苦
基本效果就是以上效果,但是我并沒(méi)有完成。最終我那位同學(xué)竟然說(shuō)我這個(gè)還不如打開(kāi)網(wǎng)頁(yè)查詢(xún),我就說(shuō)當(dāng)你打開(kāi)網(wǎng)頁(yè)加載頁(yè)面的時(shí)候,我已經(jīng)獲取post的了,好了以上就是沒(méi)事練練手,熟悉一下易語(yǔ)言截取文本的練習(xí)。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。