我前兩天剛做過類似的事情,down了一個網站的產品庫到數(shù)據庫里。
為渠縣等地區(qū)用戶提供了全套網頁設計制作服務,及渠縣網站建設行業(yè)解決方案。主營業(yè)務為成都做網站、成都網站設計、渠縣網站設計,以傳統(tǒng)方式定制建設網站,并提供域名空間備案等一條龍服務,秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求,就會得到認可,從而選擇與我們長期合作。這樣,我們也可以走得更遠!
第一步:把所有頁面下載到本地
第二步:分析頁面結構
第三步:通過正則表達式不斷去掉沒用的內容,找到規(guī)律做成2緯數(shù)組
第四步:當有二維數(shù)組的時候,就什么都有了。
已寫好,經過測試,一個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
簡單說下思路吧,具體的代碼可以查資料
首先要會畫曲線圖,有三種方法:
1、用mschar控件(vb6的);2、用水晶報表;3、用word圖表
x軸為時間,y軸為數(shù)據
要實現(xiàn)實時數(shù)據刷新,只要用 定時器 定時刷新曲線圖的數(shù)據就可以了(x、y的數(shù)據重寫)
把你的數(shù)據對象分類,抽象后,形成關系型模型,E-R模型,然后用ADO。NET保存就可以了,既然平臺是微軟的,開發(fā)工具是微軟的,你可以下載個SQL Server express 版本的用,免費的。
chart控件,可能需要。net4.0以上,在工具欄的數(shù)據分組找,找不到就是沒有。
簡單的曲線也可以用picture控件
Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
'啟動一次具體的數(shù)據采集工作,返回采集到的HTML內容:要求必須輸入帶://的全地址數(shù)據
On Error Resume Next
Dim Str_WebContent As String = "請輸入查找網站地址."
Dim wb As WebClient = New WebClient() '//創(chuàng)建一個WebClient實例
If mWebsiteUrl.IndexOf("://") 0 Then
'//獲取或設置用于對向 Internet 資源的請求進行身份驗證的網絡憑據。(可有可無)
wb.Credentials = CredentialCache.DefaultCredentials
'//從資源下載數(shù)據并返回字節(jié)數(shù)組。(加@是因為網址中間有"/"符號)
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數(shù)據采集系統(tǒng)源碼
鏈接URL:http://muchs.cn/article26/hgcpjg.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供面包屑導航、移動網站建設、靜態(tài)網站、企業(yè)建站、定制網站、服務器托管
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)