如何用VB.net采集網(wǎng)頁(yè)信息？

我前兩天剛做過(guò)類似的事情，down了一個(gè)網(wǎng)站的產(chǎn)品庫(kù)到數(shù)據(jù)庫(kù)里。

為渠縣等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及渠縣網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、渠縣網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

第一步：把所有頁(yè)面下載到本地

第二步：分析頁(yè)面結(jié)構(gòu)

第三步：通過(guò)正則表達(dá)式不斷去掉沒(méi)用的內(nèi)容，找到規(guī)律做成2緯數(shù)組

第四步：當(dāng)有二維數(shù)組的時(shí)候，就什么都有了。

vb.net 數(shù)據(jù)采集

已寫(xiě)好，經(jīng)過(guò)測(cè)試，一個(gè)WEBBROWSER控件，一個(gè)LISTBOX控件，我也初學(xué)習(xí)VB.NET，共同進(jìn)步

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

WebBrowser1.Visible = False

WebBrowser1.Navigate(";_fmw.i._0.c=_fmw.i._0.ca=_fmw.i._0.cat=_fmw.i._0.k=%B7%FE%D7%B0_fmw.i._0.t=_fmw.i._0.p=1_fmw.i._0.pa=20_fmw.i._0.u=_fmw.i._0.s=event_submit_do_search_2=true")

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

Dim tmp As String

tmp = WebBrowser1.Document.Body.InnerHtml

Dim a() As String

a = Split(tmp, "群號(hào)：")

For i = 0 To UBound(a)

If Trim(Strings.Mid(a(i), 1, 6)) = "/SPAN" Then

tmp = Strings.Mid(a(i), Strings.InStr(a(i), "('") + 2, 20)

tmp = Strings.Mid(tmp, 1, Strings.InStr(tmp, "',''") - 1)

ListBox1.Items.Add(tmp)

End If

Next

End Sub

End Class

vb.net實(shí)現(xiàn)實(shí)時(shí)數(shù)據(jù)采集曲線，有什么方法，或是書(shū)籍呢？

簡(jiǎn)單說(shuō)下思路吧，具體的代碼可以查資料

首先要會(huì)畫(huà)曲線圖，有三種方法：

1、用mschar控件（vb6的）；2、用水晶報(bào)表；3、用word圖表

x軸為時(shí)間，y軸為數(shù)據(jù)

要實(shí)現(xiàn)實(shí)時(shí)數(shù)據(jù)刷新，只要用 定時(shí)器 定時(shí)刷新曲線圖的數(shù)據(jù)就可以了（x、y的數(shù)據(jù)重寫(xiě)）

基于VS2005下的vb.net的WINCE 5.0開(kāi)發(fā)的,如何將采集到的一些數(shù)據(jù)動(dòng)態(tài)保存到數(shù)據(jù)庫(kù)中?

把你的數(shù)據(jù)對(duì)象分類，抽象后，形成關(guān)系型模型，E-R模型，然后用ADO。NET保存就可以了，既然平臺(tái)是微軟的，開(kāi)發(fā)工具是微軟的，你可以下載個(gè)SQL Server express 版本的用，免費(fèi)的。

VB.NET溫濕度采集有問(wèn)

chart控件，可能需要。net4.0以上，在工具欄的數(shù)據(jù)分組找，找不到就是沒(méi)有。

簡(jiǎn)單的曲線也可以用picture控件

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

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

'啟動(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

分享標(biāo)題：vb.net采集 vb數(shù)據(jù)采集系統(tǒng)源碼
鏈接URL：http://chinadenli.net/article26/hgcpjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、移動(dòng)網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站、企業(yè)建站、定制網(wǎng)站、服務(wù)器托管

廣告

聲明：本網(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)