欧美成人精品手机在线观看_69视频国产_动漫精品第一页_日韩中文字幕网 - 日本欧美一区二区

LOGO OA教程 ERP教程 模切知識交流 PMS教程 CRM教程 開發文檔 其他文檔  
 
網站管理員

[VB]如何提取網頁的數據
admin
2014年3月25日 0:16 本文熱度 5421

用XML和HTMLDocument處理的
程序不用引用什么控件或庫，都是動態創建的對象
只需要一個按鈕和多行顯示的文本框就可以實現了

Visual Basic code
 
Private Sub Command1_Click()
Dim XMLObject As Object, HTMLDoc As Object
Dim SendStr As String, HTMLStr As String
Dim DataInfo As String, S As Long, E As Long
Dim Info(66) As String, TempArray() As String
Dim X As Long, Y As Long, I As Long, TempStr As String
Dim TitleMaxByte As Long, TitleByte As Long
'初始化變量
Y = 0
I = 0
TitleMaxByte = 0
TempStr = ""
'通過XML取得網頁數據內容
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
Set HTMLDoc = CreateObject("htmlfile")
XMLObject.open "GET", "http://quotes.money.163.com/corp/1034/code=600221.html", False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.Send SendStr
HTMLStr = StrConv(XMLObject.ResponseBody, vbUnicode)
'通過HTMLDocument對象分析出網頁內包含的文本
HTMLDoc.body.innerHTML = HTMLStr
DataInfo = HTMLDoc.body.innerText '從網頁中取得全部文本信息
'取得相關的資料位置
S = InStr(1, DataInfo, "報表日期")
E = InStr(S, DataInfo, "主編信箱")
'提取資料文本
DataInfo = Mid(DataInfo, S, E - S - 4)
'將文本分割成以行為單位的數組
TempArray = Split(DataInfo, vbCrLf)
'為了讓最后輸出的文本在格式上比較好看，所以就取出信息字段的最大字節數作為格式化標準
For X = 0 To 66
Info(X) = RTrim(TempArray(X)) '將右邊的空格符去掉
TitleByte = LenB(StrConv(Info(X), vbFromUnicode)) '取字段標題字節數
If TitleByte > TitleMaxByte Then TitleMaxByte = TitleByte '紀錄最大字節數
Next X
'將標題內容統一格式化為最大字節數，以空格填充
For X = 0 To 66
'判斷如果是大類標題就不處理
If Right(Info(X), 1) <> "：" Then
TitleByte = LenB(StrConv(Info(X), vbFromUnicode)) '取當前處理的字段標題字節數
Info(X) = Info(X) & String(TitleMaxByte - TitleByte, " ") & vbTab '用空格填充標題內容
End If
Next X
'將數據放入字段行數組中
For X = 67 To UBound(TempArray)
If Y >= 67 Then Y = 0: I = I + 1
'判斷如果是大類標題就不處理
If Right(Info(Y), 1) <> "：" Then
If I = 0 Then
Info(Y) = Info(Y) & TempArray(X)
Else
Info(Y) = Info(Y) & "," & TempArray(X)
End If
End If
Y = Y + 1
Next X
'將處理好的行文本集合到一個文本變量中
For X = 0 To UBound(Info)
If Len(TempStr) = 0 Then
TempStr = Info(X)
Else
TempStr = TempStr & vbCrLf & Info(X)
End If
Next X
'輸出文本
Text1.Text = TempStr
End Sub

其實效率差不多的，只是少了下載圖片和處理顯示網頁的時間，
用WebBrowser的方法我這里測試的是7秒，用這個方法是5秒。
不過這種方法理論上說是要快點。

該文章在 2014/3/25 0:19:13 編輯過
關鍵字查詢
相關文章
正在查詢...
點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。
點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理，結合碼頭的業務特點，圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業的高效ERP管理信息系統。
點晴WMS倉儲管理系統提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統,標簽打印,條形碼,二維碼管理,批號管理軟件。
點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。
Copyright 2010-2025 ClickSun All Rights Reserved