国产片侵犯亲女视频播放_亚洲精品二区_在线免费国产视频_欧美精品一区二区三区在线_少妇久久久_在线观看av不卡

服務(wù)器之家:專注于服務(wù)器技術(shù)及軟件下載分享
分類導(dǎo)航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術(shù)|正則表達(dá)式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務(wù)器之家 - 編程語言 - 易語言 - 易語言用正則采集百度知道的代碼

易語言用正則采集百度知道的代碼

2022-02-24 16:00易語言源碼教程 易語言

今天小編就為大家分享一篇關(guān)于易語言用正則采集百度知道的代碼,小編覺得內(nèi)容挺不錯(cuò)的,現(xiàn)在分享給大家,具有很好的參考價(jià)值,需要的朋友一起跟隨小編來看看吧

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

?
1
2
3
4
5
6
7
8
.版本 2
.常量 標(biāo)題, "<文本長(zhǎng)度: 25>", , "ti"((\r\n|\s*).*>.*)</a>
.常量 標(biāo)題需替換的內(nèi)容, "<文本長(zhǎng)度: 17>", , target="_blank">
.常量 提問時(shí)間, "<文本長(zhǎng)度: 36>", , "mr-8">(\d{4,}-\d{1,}-\d{1,})</span>
.常量 帖子鏈接與回答數(shù)量, "<文本長(zhǎng)度: 93>", , <a href="(http:.*)" rel="external nofollow" target="_blank" class="f-light nod" data-   log="pos:ans,si:\d{1,}">(.*)</a>
.常量 回答內(nèi)容, "<文本長(zhǎng)度: 40>", , <i class="i-answer-text">答:</i>.*</dd>
.常量 回答內(nèi)容需替換的, "<文本長(zhǎng)度: 25>", , <i class="i-answer-text">
.常量 回答者, "<文本長(zhǎng)度: 27>", , 回答者:<a href=.*>(.*)</a>

百度知道采集器

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
.版本 2
.支持庫 iext
.程序集 窗口程序集1
.程序集變量 搜索的內(nèi)容, 文本型
.程序集變量 網(wǎng)頁源碼, 文本型
.程序集變量 頁碼變量, 整數(shù)型
.程序集變量 網(wǎng)址, 文本型
.子程序 _按鈕_搜索_被單擊
.局部變量 i, 整數(shù)型
.局部變量 i2, 整數(shù)型
.局部變量 i3, 整數(shù)型
.如果 (編輯框_搜索內(nèi)容.內(nèi)容 ≠ “”)
  超級(jí)列表框1.全部刪除 ()
  .判斷循環(huán)首 (頁碼變量 < 21)
    搜索內(nèi)容 ()
    正則 ()
    頁碼變量 = 頁碼變量 + 10
  .判斷循環(huán)尾 ()
  .計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i2)
    超級(jí)列表框1.置標(biāo)題 (i2 - 1, 0, 到文本 (i2))
  .計(jì)次循環(huán)尾 ()
  頁碼變量 = 0
.否則
  信息框 (“請(qǐng)先輸入要搜索的問題”, #信息圖標(biāo), “提示”)
  編輯框_搜索內(nèi)容.獲取焦點(diǎn) ()
.如果結(jié)束
.子程序 搜索內(nèi)容
按鈕_搜索.標(biāo)題 = “正在搜索中...”
搜索的內(nèi)容 = 編輯框_搜索內(nèi)容.內(nèi)容
網(wǎng)址 = “http://zhidao.baidu.com/search?word=” + 編碼_URL編碼 (搜索的內(nèi)容) + “&ie=gbk&site=-1&sites=0&date=0&pn=” + 到文本 (頁碼變量)
網(wǎng)頁源碼 = 網(wǎng)頁_取網(wǎng)頁源碼 (網(wǎng)址)
.子程序 正則
.局部變量 正則標(biāo)題與序號(hào), 正則表達(dá)式類
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 表項(xiàng)索引, 整數(shù)型
.局部變量 正則鏈接與回答數(shù), 正則表達(dá)式類
.局部變量 正則回答, 正則表達(dá)式類
.局部變量 正則回答時(shí)間, 正則表達(dá)式類
.局部變量 正則回答者, 正則表達(dá)式類
正則標(biāo)題與序號(hào).創(chuàng)建 (#標(biāo)題, 網(wǎng)頁源碼)
正則鏈接與回答數(shù).創(chuàng)建 (#帖子鏈接與回答數(shù)量, 網(wǎng)頁源碼)
正則回答.創(chuàng)建 (#回答內(nèi)容, 網(wǎng)頁源碼)
正則回答時(shí)間.創(chuàng)建 (#提問時(shí)間, 網(wǎng)頁源碼)
正則回答者.創(chuàng)建 (#回答者, 網(wǎng)頁源碼)
.計(jì)次循環(huán)首 (正則標(biāo)題與序號(hào).取匹配數(shù)量 (), 局_計(jì)次)
  表項(xiàng)索引 = 超級(jí)列表框1.插入表項(xiàng) (, , , , , )
  超級(jí)列表框1.置標(biāo)題 (表項(xiàng)索引, 1, 文本_替換 (正則標(biāo)題與序號(hào).取子匹配文本 (局_計(jì)次, 1), , , , “>”, “”, “<em>”, “”, “</em>”, “</a>”, “<em”, “”, “</em”, “”)) ' 標(biāo)題
  .如果 (尋找文本 (正則鏈接與回答數(shù).取子匹配文本 (局_計(jì)次, 1), “html”, , 假) = -1)
    超級(jí)列表框1.置標(biāo)題 (表項(xiàng)索引, 4, “”)
  .否則
    超級(jí)列表框1.置標(biāo)題 (表項(xiàng)索引, 4, 正則鏈接與回答數(shù).取子匹配文本 (局_計(jì)次, 1)) ' 鏈接
  .如果結(jié)束
  超級(jí)列表框1.置標(biāo)題 (表項(xiàng)索引, 2, 文本_替換 (正則回答.取匹配文本 (局_計(jì)次, ), , , , #回答內(nèi)容需替換的, “”, “</i>”, “”, “<em>”, “”, “</em>”, “”, “</dd>”, “”)) ' 回答
  超級(jí)列表框1.置標(biāo)題 (表項(xiàng)索引, 3, 正則鏈接與回答數(shù).取子匹配文本 (局_計(jì)次, 2)) ' 回答的數(shù)量
  超級(jí)列表框1.置標(biāo)題 (表項(xiàng)索引, 5, 正則回答時(shí)間.取子匹配文本 (局_計(jì)次, 1)) ' 回答的時(shí)間
.計(jì)次循環(huán)尾 ()
按鈕_搜索.標(biāo)題 = “搜索答案”
.子程序 _超級(jí)列表框1_被雙擊, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
_預(yù)覽此內(nèi)容_被選擇 ()
.子程序 _預(yù)覽此內(nèi)容_被選擇
.如果真 (信息框 (_啟動(dòng)窗口.超級(jí)列表框1.取標(biāo)題 (_啟動(dòng)窗口.超級(jí)列表框1.現(xiàn)行選中項(xiàng), 2) + #換行符 + “-------------------------------” + #換行符 + “是否瀏覽更多回答?”, #是否鈕 + #詢問圖標(biāo), 超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 1)) = #是鈕)
  _打開此鏈接_被選擇 ()
.如果真結(jié)束
.子程序 _超級(jí)列表框1_鼠標(biāo)右鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (超級(jí)列表框1.取表項(xiàng)數(shù) () ≠ 0)
  彈出菜單 (菜單, , )
.如果真結(jié)束
.子程序 _打開此鏈接_被選擇
網(wǎng)頁_打開指定網(wǎng)址 (超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 4))
.子程序 _復(fù)制回答_被選擇
.如果真 (置剪輯板文本 (超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 2)) = 真)
  信息框 (“成功復(fù)制!”, #信息圖標(biāo), “復(fù)制成功”)
.如果真結(jié)束
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
頁碼變量 = 0
編輯框_搜索內(nèi)容.獲取焦點(diǎn) ()
.子程序 _復(fù)制此鏈接_被選擇
.如果真 (置剪輯板文本 (超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 4)) = 真)
  信息框 (“成功復(fù)制!”, #信息圖標(biāo), “復(fù)制成功”)
.如果真結(jié)束
.子程序 _編輯框_搜索內(nèi)容_內(nèi)容被改變
.如果真 (編輯框_搜索內(nèi)容.內(nèi)容 = “”)
  頁碼變量 = 0
.如果真結(jié)束
.子程序 _編輯框_搜索內(nèi)容_按下某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (鍵代碼 = #回車鍵)
  _按鈕_搜索_被單擊 ()
.如果真結(jié)束
.子程序 _獲取更多回答_被選擇
網(wǎng)頁_打開指定網(wǎng)址 (“http://zhidao.baidu.com/search?word=” + 編碼_URL編碼 (搜索的內(nèi)容) + “&ie=gbk&site=-1&sites=0&date=0&pn=0”)
.子程序 _按鈕_關(guān)閉_被單擊
結(jié)束 ()
.子程序 _按鈕_獲取更多回答_被單擊
_獲取更多回答_被選擇 ()

運(yùn)行結(jié)果:

易語言用正則采集百度知道的代碼

總結(jié)

以上就是這篇文章的全部?jī)?nèi)容了,希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,謝謝大家對(duì)服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: 视频1区2区 | 日本视频网 | 日韩电影免费观看 | 91一区二区| 在线观看亚洲精品 | 国产精品亚洲一区二区三区在线 | 成人影院www在线观看 | 国产福利在线 | 伊人久久艹 | 操操网 | 韩日毛片| 国产一区二区三区在线 | 99久久亚洲一区二区三区青草 | 国产精品网站在线观看 | 蜜桃av一区二区三区 | 国产乱码精品一区二区三区av | 天堂v视频 | 成人午夜激情 | 亚洲精品福利 | 午夜视频在线观看网站 | 国产精品免费视频一区 | 日韩欧美在线一区二区 | 国产精品成人在线观看 | 一区二区三区 在线 | 日韩精品99久久久久中文字幕 | 日韩有码在线观看 | 黄网免费看 | 亚洲一区中文字幕 | 免费看一区二区三区 | 久久高清精品 | 一区二区三区精品 | 精品视频久久久久 | 国产精品久久久久久福利一牛影视 | 久久精品中文字幕 | 欧美成人免费在线观看 | 五月婷婷网站 | 欧美精品在线看 | 成人福利| 中文字幕在线免费 | www久久久 | 成人激情视频 |