VB 數值提取，使用 Vb 從網頁中提取資料

a = "n c 百度 q49232 啊啊啊啊"

mid(trim(a), 9, 5) '從左到右的第 9 個字元（空格也計算在內），數 5 個您想要的字元。

mid 是乙個單詞獲取函式。

通常，使用 httpxml。 使用 Web 瀏覽器，某些動態資料更易於訪問。

看來這是VB中處理網頁檔案的唯一控制項，VB是IE的核心，已經非常強大了。

我想你遇到的問題是因為網頁使用了框架，你可以這樣處理它。

由於裝裱頁面實際上由兩個或多個單獨的頁面組成，因此您還可以單獨開啟構成裝裱頁面的其中乙個頁面進行瀏覽，然後可以使用它來獲取資料。

從網頁中提取一些資料，具有以下**真實鏈脊：

set h = createobject("")"get"，則要從中提取資訊的網頁的完整位址", falseif = 4 then

s = strconv(, vbunicode)end if

split(split(s, "已使用的時間已減少："1）、百搭公升分鐘")(0) '提取它的時間。

elsemsgbox "資訊提取失敗"

end if

先取出內容，然後取值。

aa = text5

aa = mid(aa, instr(aa, "[") +1)bb = split(aa, ",")

text1 = val(mid(bb(0), 2))text2 = val(mid(bb(1), 2))text3 = val(mid(bb(2), 2))text4 = val(mid(bb(3), 2))

第一件事是先拆分文字，再拆分字元","， split（str，",")

其次，將拆分字串寫入單詞組，文字框從陣列中獲取值。

對於沒有指定ID的標籤，無法直接獲取其值或屬性，必須先獲取所有同型別的標籤，然後從中逐一找到需要的資料

dim x as object, y as objectset x = "tbody")

for each y in x

這裡是 tbody 的 alt 屬性值，你可以通過 for 迴圈找到它們，你可以進一步做。

接下來，TD也是如此：

dim x as object, y as objectset x = "td")

for each y in x

這裡是和。

在角色之間，您可以通過迴圈將所有尖峰都變舊。

next

給他乙個身份證; “智慧手指 TD 類=地圖 id="test"前延遲匹配“ ABCD

跟"test").InnerHTML 可以從 ABCD 訪問

VB 正規表示式解決了這些問題。

建立乙個新專案。 插入 text1、text2、command1

text1 和 text2 的多行屬性設定為 true

將提取的資訊分配給頁面。

專案需要引用 Microsoft VBSict Regular

單擊“專案”選單---參考--- Microsoft VBSict Regular

private sub command1_click()

on error resume next

p = "\d" '拿數字。

test(p, ,1) +vbcrlf

p = "[l|l][i|i][s|s][t|t][2]\s*[\u4e00-\u9fa5]+" '取乙個名字。

s = test(p, ,1)

s = test("[\u4e00-\u9fa5]+", s, 1)

s + vbcrlf

p = "d+（日） [u4e00- u9fa5]." '以幾天前的資料為例。

test(p, ,1) +vbcrlf

p = "\d(\-/|\.d\1\d\ *012]\d(:)d" '慢慢來。

test(p, ,1) +vbcrlf

p = "[ U4E00- U9FA5] （金額） D+" '取數量。

test(p, ,1) +vbcrlf

p = "d+ s+（元）。" '提取金額。

s = test(p, ,1)

s = test("\d+", s, 1) +"元"

s + vbcrlf

p = "\w+(\w+(\w+(=)\w+(\w+(=)\d+" '獲取提交鏈結。

test(p, ,1)

end sub

private function test(p, s, c)

p 是正規表示式，s 是測試字串，c 表示是取找到的第乙個值還是第二個值或 c。

如果字串數大於所有字串的數目，則取最後乙個字串，所有字串選為 0

dim x as regexp

dim n as integer

n = 0set x = new regexp

p= true

trueset a =

if c = 0 then

for each b in a

test = test & vbcrlf

nextelse

for each b in a

test =

n = n + 1

if n = c then exit for

nextend if

end function

可能無法進行資料收集程式。