易語言編輯框框如何獲取超文字瀏覽框網頁文字的超連結

2021-08-14 10:22:32 字數 2610 閱讀 8105

1樓:匿名使用者

請您先在易語言中新增元件編輯框1、按鈕1和超文字瀏覽框1,再把下面的**複製到**編輯區裡。

.版本 2

.支援庫 htmlview

.支援庫 internet

.程式集 視窗程式集

.子程式 __啟動視窗_建立完畢

超文字瀏覽框1.地址 = “http://www.baidu.com”

.子程式 取指定內容, 文字型

.引數 完整內容, 文字型

.引數 左邊文字, 文字型

.引數 右邊文字, 文字型

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

.區域性變數 內容長度, 整數型

.區域性變數 取出內容, 文字型

內容長度 = 取文字長度 (完整內容)

臨時位置 = 尋找文字 (完整內容, 左邊文字, , 假) + 取文字長度 (左邊文字)

取出內容 = 取文字中間 (完整內容, 臨時位置, 內容長度)

內容長度 = 取文字長度 (取出內容)

臨時位置 = 尋找文字 (取出內容, 右邊文字, , 假) - 1

取出內容 = 取文字中間 (取出內容, 1, 臨時位置)

返回 (取出內容)

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

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

文字 = 取指定內容 (文字, “”)  ' 連線前面有“”,而中間的就是新聞的連線了

.否則文字 = 取指定內容 (文字, “href=” + #引號, #引號 + “>”)  ' 這裡比上面的前後各多了引號

.如果結束

2樓:司馬塵戀

.版本 2

.支援庫 htmlview

.支援庫 regex

.支援庫 internet

.支援庫 iconv

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

.子程式 取網頁連結地址, 文字型

.引數 _網頁地址, 文字型

.引數 _連結文字, 文字型

.區域性變數 網頁檔案, 位元組集

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

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

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

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

網頁檔案 = http讀檔案 (_網頁地址)

網頁文字 = 到文字 (編碼轉換 (網頁檔案, #編碼_utf_8, #編碼_gb2312, ))

.如果真 (網頁文字 = “”)

網頁文字 = 到文字 (編碼轉換 (網頁檔案, #編碼_utf_8, #編碼_gb18030, ))

.如果真結束

.如果真 (網頁文字 = “”)

網頁文字 = 到文字 (編碼轉換 (網頁檔案, #編碼_utf_8, #編碼_gbk, ))

.如果真結束

.如果真 (網頁文字 = “”)

網頁文字 = 到文字 (網頁檔案)

.如果真結束

.如果真 (網頁文字 = “”)

資訊框 (“網頁內容轉碼失敗!”, #警告圖示, “提示”)

返回 (“”)

.如果真結束

正則.建立 (“]*” + _超連結引號 + “>” + _連結文字 + “”, 假)

結果 = 正則.搜尋 (網頁文字, 1, )

.如果真 (結果.是否為空 ())

資訊框 (“找不到!”, #資訊圖示, “提示”)

返回 (“”)

.如果真結束

結果文字 = 結果.取匹配文字 (網頁文字, )

結果文字 = 子文字替換 (結果文字, “結果文字 = 子文字替換 (結果文字, _超連結引號 + “>” + _連結文字 + “”, , , , 真)

返回 (結果文字)

3樓:匿名使用者

先新增資料庫 然後再按下面的

4樓:8羽毛

http讀檔案

然後把讀回來的網頁源**分割

易語言怎麼讓超文字瀏覽框內顯示**

5樓:就愛時尚

控制元件欄拖入一個超文字瀏覽框到窗體上,名字預設

超文字瀏覽框1.跳轉(**)

樓上的,“直接超文字瀏覽框.地址”可能會出錯,我這樣絕對不會

6樓:匿名使用者

超文字瀏覽框1.地址 = “http://zhidao.

易語言中怎麼用超文字瀏覽框開啟連結

7樓:何小東

那樣的話就不要用超級連結框。

用個標籤,標籤單機事件:超文字瀏覽框內1.地址=www.baidu.com

當然了,用超級連結框也容

可以,但是你不要填地址,就把它的被單擊事件寫:超文字瀏覽框1.地址=www.baidu.com

8樓:我的未來

輸入**:

.版本 2

.支援庫 htmlview

.子程式 _超文字瀏覽框1_即將開啟新視窗, 邏輯型超文字瀏覽框1.地址 = 超文字瀏覽框1.狀態條文字

易語言編輯框1文字插入編輯框2文字之後換行還可以插入下一句,怎樣做呢

還可以插入下抄一句?版本 2 子程式 啟動視窗 建立完畢 子程式 按鈕1 被單擊 編輯框1.加入文字 編輯框2.內容 編輯框1.加入文字 換行符 寫到檔案 文字.txt 到位元組集 編輯框1.內容 子程式 啟動視窗 建立完畢 編輯框1.加入文字 編輯框2.內容 編輯框2.加入文字 換行符 子程式 按...

易語言怎麼實現按住按鍵之後在編輯框不停的輸入「1」鬆開之後停止輸入

版本 2 程式集 視窗程式集1 程式集變數 s stop,邏輯型 子程式 按鈕2 滑鼠左鍵被按下,邏輯型.引數 橫向位置,整數型 引數 縱向位置,整數型 引數 功能鍵狀態,整數型 區域性變數 n,整數型 s stop 真 判斷迴圈首 s stop n n 1 編輯框1.內容 編輯框1.內容 取文字右...

易語言如何知道陣列最後有效下標,易語言 如何知道陣列最後一個有效下標

陣列是這樣的,你定義1000陣列,如果給其賦值了,如 陣列 值1 值2 值3 值4 值5 裡邊只有5個值,內用 取陣列成員數 容陣列 就只有5個,而不是1000,如果你是用 加入成員 陣列,值1 加入成員 陣列,值2 加入成員 陣列,值3 加入成員 陣列,值4 加入成員 陣列,值5 這樣,取陣列成員...