Imports System.Net
創新互聯是專業的神農架林區網站建設公司,神農架林區接單;提供成都做網站、網站建設,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行神農架林區網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()
'注意urladress為你上面的網頁地址。
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Label1.Text = Regex.Match(sr.ReadToEnd, "回答采納率").ToString
'sr。readtoend讀取網頁流到末尾,即使用正則表達式從網頁流中提取“回答采納率”,賦值給Label1.Text ‘沒有則為空
sr.Dispose() '關閉流
End Sub'要提取什么東西用正則表達式最好
End Class
樓上的說法不對,正則式的作用就是匹配未知的一些東西,可以提取.
代碼如下:
-----------
Imports System.Text.RegularExpressions
dim sHtml as string=網頁內容'自己想辦法獲取,比如Doc.Body.InnerHtml
dim sResult1 as string=""'“聽過哪些草原歌”
sResult1=Regex.Match(sHtml, "\[aA]{1}[ ]{1}class\=t[ ]{1}href.+\(.+)\\/[aA]{1}\").Groups(1).Value
'其余類推...
'保存進文件
大哥把分給我吧.求你了.祝你好運中500萬
首先需要加載需要獲取網頁文的網址,然后根據WebBrowser1.document.body.innertext來獲取文字,可參考下面部分代碼
Private?Sub?cmdcommand1_click()
WebBrowser1.navigate?"具體網頁地址"
End?Sub
Private?Sub?webbrowser1_documentcomplete(ByVal?pDisp?As?Object,?URL?As?Variant)
txtText1?=?WebBrowser1.document.body.innertext
End?Sub
分享名稱:vb點虐
提取網頁文字 vbnet抓取網頁數據
瀏覽地址:http://vcdvsql.cn/article20/ddijgco.html
成都網站建設公司_創新互聯,為您提供ChatGPT、響應式網站、手機網站建設、定制開發、標簽優化、營銷型網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯