VB.NET 如何獲取網(wǎng)頁(yè)中的數(shù)據(jù)

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

成都網(wǎng)絡(luò)公司-成都網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司十余年經(jīng)驗(yàn)成就非凡，專業(yè)從事網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站，成都網(wǎng)頁(yè)設(shè)計(jì)，成都網(wǎng)頁(yè)制作，軟文平臺(tái)，1元廣告等。十余年來(lái)已成功提供全面的成都網(wǎng)站建設(shè)方案，打造行業(yè)特色的成都網(wǎng)站建設(shè)案例，建站熱線：18982081108，我們期待您的來(lái)電！

'啟動(dòng)一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)

On Error Resume Next

Dim Str_WebContent As String = "請(qǐng)輸入查找網(wǎng)站地址."

Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例

If mWebsiteUrl.IndexOf("://") 0 Then

'//獲取或設(shè)置用于對(duì)向 Internet 資源的請(qǐng)求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。（可有可無(wú)）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。（加@是因?yàn)榫W(wǎng)址中間有"/"符號(hào)）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉(zhuǎn)換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來(lái)新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '

End Function

求VB.NET讀取網(wǎng)頁(yè)內(nèi)容寫(xiě)法

Imports System.Net

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為你上面的網(wǎng)頁(yè)地址。

Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)

Label1.Text = Regex.Match(sr.ReadToEnd, "回答采納率").ToString

'sr。readtoend讀取網(wǎng)頁(yè)流到末尾，即使用正則表達(dá)式從網(wǎng)頁(yè)流中提取“回答采納率”，賦值給Label1.Text ‘沒(méi)有則為空

sr.Dispose() '關(guān)閉流

End Sub'要提取什么東西用正則表達(dá)式最好

End Class

VB.net窗體設(shè)計(jì)中，如何讀取.txt文件中的數(shù)據(jù)？

1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程，只有一個(gè)Form，F(xiàn)orm上有兩個(gè)按鈕：Command1和Command2。

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學(xué)生成績(jī).txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8開(kāi)始單步調(diào)試代碼，點(diǎn)擊Command1，進(jìn)入單步調(diào)試功能，

4、多次按下F8或直接按下F5運(yùn)行完成，就完成了讀取文本文件內(nèi)容并輸出到立即窗口。

如何 使用vb.net獲取網(wǎng)頁(yè)表單中的數(shù)據(jù)

接受頁(yè)面： 用Request.QueryString["canshu"].toString（）； 這樣就接受到textbox里的值了。 然后根據(jù)這個(gè)值到數(shù)據(jù)庫(kù)里查詢就行了。

使用VB.NET讀取數(shù)據(jù)

孩子，如果你從你單擊事件上下手，就好辦了，先弄明白，點(diǎn)擊了什么，datagridview點(diǎn)擊，可以獲取單擊的值，好辦，用SQL語(yǔ)句去查詢單擊的這個(gè)值，把查到的結(jié)果再交給你要處理的地方，我常這么干。我從來(lái)不曉得什么表與表之間的關(guān)聯(lián)，或者關(guān)系表什么鬼東西，但是我也可以操作很多張表，把它們的結(jié)果集一起顯示出來(lái)。

Dim 表1 As New DataSet

Dim 對(duì)象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 數(shù)據(jù)源)

對(duì)象1.Fill(表1, " 表名")

DataGridView2.DataSource = 表1.Tables(" 表名")

表1 = Nothing

對(duì)象1 = Nothing

如果寫(xiě)成這樣，還嫌不夠，一定要按你的意思去寫(xiě)，那我真的要瘋了。

這個(gè)例子，就是把表格1點(diǎn)擊的值查一個(gè)結(jié)果集，在表格2上顯示，不知有沒(méi)有你想要的表達(dá)式？

如何使用vb.net來(lái)解析網(wǎng)頁(yè)源代碼,最終獲取所需數(shù)據(jù)

使用webbrowser控件來(lái)加載網(wǎng)頁(yè)，然后再 Private Sub WebBrowser1_DocumentCompleted下通過(guò)使用WebBrowser1.Document.Body.InnerHtml 來(lái)獲取網(wǎng)頁(yè)的源代碼，或使用 WebBrowser1.Document.Body.InnerText來(lái)獲取網(wǎng)頁(yè)中的文本。之后可以通過(guò)字符串控制指令或者正則表達(dá)式來(lái)精確獲取到你所需的數(shù)據(jù)。

分享文章：vb.net讀取網(wǎng)絡(luò)數(shù)據(jù),vbnet網(wǎng)絡(luò)傳輸
標(biāo)題來(lái)源：http://chinadenli.net/article3/dsggcos.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、企業(yè)建站、、外貿(mào)網(wǎng)站建設(shè)、定制網(wǎng)站、網(wǎng)站改版

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)