易語言如何獲取網頁原始碼的並展示出來

2021-07-05 06:19:24 字數 1270 閱讀 6169

1樓:湖洋狼

.版本 2

.支援庫 regex

.支援庫 internet

.支援庫 iext

.子程式 _按鈕1_被單擊

.區域性變數 網頁文字, 文字型

.區域性變數 表示式, 正規表示式

.區域性變數 搜尋結果, 搜尋結果, , "0"

.區域性變數 計次變數, 整數型

.區域性變數 文字, 文字型

網頁文字 = 到文字 (http讀檔案 (編輯框1.內容))

網頁文字 = 子文字替換 (網頁文字, #引號, 「'」, 0, , 真)

網頁文字 = 到小寫 (網頁文字)

透明標籤1.標題 = 取中間文 (網頁文字, 「」, 「」)

表示式.建立 (「meta (.*?)>」, 假)

搜尋結果 = 表示式.搜尋全部 (網頁文字)

.計次迴圈首 (取陣列成員數 (搜尋結果), 計次變數)

文字 = 搜尋結果 [計次變數].取子匹配文字 (網頁文字, 1, )

.判斷開始 (尋找文字 (文字, 「name='keywords'」, 1, 假) > 0)

透明標籤2.標題 = 取中間文 (文字, 「content='」, 「'」)

.判斷 (尋找文字 (文字, 「name='description'」, 1, 假) > 0)

透明標籤3.標題 = 取中間文 (文字, 「content='」, 「'」)

.預設.判斷結束

.計次迴圈尾 ()

.子程式 取中間文, 文字型

.引數 全文, 文字型

.引數 左文, 文字型

.引數 右文, 文字型

.區域性變數 位置, 整數型

.區域性變數 總長度, 整數型

.區域性變數 文字, 文字型

總長度 = 取文字長度 (全文)

位置 = 尋找文字 (全文, 左文, , 假)

.如果真 (位置 < 0)

返回 (「」)

.如果真結束

位置 = 位置 + 取文字長度 (左文)

文字 = 取文字中間 (全文, 位置, 總長度)

總長度 = 取文字長度 (文字)

位置 = 尋找文字 (文字, 右文, , 假) - 1

.如果真 (位置 < 0)

返回 (「」)

.如果真結束

文字 = 取文字中間 (文字, 1, 位置)

返回 (文字)

2樓:伍慕雁

可以做到啊!用超文字框

易語言怎樣提取網頁元素,易語言怎樣提取網頁元素?

版本 2 子程式 取元素橫座標,整數型 引數 元素物件,物件 區域性變數 元素座標,整數型 區域性變數 元素父物件,物件 元素座標 元素物件.讀數值屬性 offsetleft 元素父物件 元素物件.讀物件型屬性 offsetparent 如果真 元素父物件.是否為空 假 元素座標 元素座標 取元素橫...

易語言中如何判斷數字是不是,易語言中 如何判斷第一個數字是不是

請在界bai面上放置控制元件 一個 duzhi 編輯框dao 和一個 按鈕 來測內試這段 版本 2 如果容 取文字左邊 編輯框1.內容,1 0 資訊框 第一個數字是 0 0,否則資訊框 第一個數字不是 0 0,判斷 取文字左邊 文字串,1 1 是否成立.易語言怎樣判斷編輯框裡是否為數字 是否全是數字...

易語言怎麼顯示倒計時,如何用易語言編輯倒計時和計時

建一個變數 djs 一個時鐘 時鐘週期為999 首先設djs 3600 再在時鐘事件下寫 djs djs 1 編輯框 內容 djs 版本 2.程式集 視窗程式集1 程式集變數 分,整數型 程式集變數 秒,整數型 程式集變數 時,整數型.子程式 啟動視窗 建立完畢時鐘1.時鐘週期 1000 分 59 ...