vb.net采集 vb數據采集系統源碼

如何用VB.net采集網頁信息？

我前兩天剛做過類似的事情，down了一個網站的產品庫到數據庫里。

為渠縣等地區用戶提供了全套網頁設計制作服務，及渠縣網站建設行業解決方案。主營業務為成都做網站、成都網站設計、渠縣網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

第一步：把所有頁面下載到本地

第二步：分析頁面結構

第三步：通過正則表達式不斷去掉沒用的內容，找到規律做成2緯數組

第四步：當有二維數組的時候，就什么都有了。

vb.net 數據采集

已寫好，經過測試，一個WEBBROWSER控件，一個LISTBOX控件，我也初學習VB.NET，共同進步

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, "群號：")

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實現實時數據采集曲線，有什么方法，或是書籍呢？

簡單說下思路吧，具體的代碼可以查資料

首先要會畫曲線圖，有三種方法：

1、用mschar控件（vb6的）；2、用水晶報表；3、用word圖表

x軸為時間，y軸為數據

要實現實時數據刷新，只要用 定時器 定時刷新曲線圖的數據就可以了（x、y的數據重寫）

基于VS2005下的vb.net的WINCE 5.0開發的,如何將采集到的一些數據動態保存到數據庫中?

把你的數據對象分類，抽象后，形成關系型模型，E-R模型，然后用ADO。NET保存就可以了，既然平臺是微軟的，開發工具是微軟的，你可以下載個SQL Server express 版本的用，免費的。

VB.NET溫濕度采集有問

chart控件，可能需要。net4.0以上，在工具欄的數據分組找，找不到就是沒有。

簡單的曲線也可以用picture控件

VB.NET 如何獲取網頁中的數據

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

'啟動一次具體的數據采集工作,返回采集到的HTML內容:要求必須輸入帶://的全地址數據

On Error Resume Next

Dim Str_WebContent As String = "請輸入查找網站地址."

Dim wb As WebClient = New WebClient() '//創建一個WebClient實例

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

'//獲取或設置用于對向 Internet 資源的請求進行身份驗證的網絡憑據。（可有可無）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數據并返回字節數組。（加@是因為網址中間有"/"符號）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來新聞內容,刪除Body前后的多余內容,同時補充上該 Body標記,形成完整的內容 Str_WebContent '

End Function

分享標題：vb.net采集 vb數據采集系統源碼
鏈接URL：http://m.kartarina.com/article26/hgcpjg.html

成都網站建設公司_創新互聯，為您提供面包屑導航、移動網站建設、靜態網站、企業建站、定制網站、服務器托管

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯