vb numerical extraction, which uses Vb to extract data from web pages

a = "n c hundred du q49232 ah ah ah pp"

mid(trim(a), 9, 5) 'From the 9th character from left to right (spaces are also counted), count 5 characters you want.

mid is a word-fetching function.

Generally, httpxml is used. With a webbrowser, some dynamic data is easier to access.

It seems that this is the only control for processing web page files in VB, which is the core of IE and is already very powerful.

I guess the problem you're having is because the web page uses a frame, and you can handle it that way.

Because a framed page is actually made up of two or more separate pages, you can also open one of the pages that make up the framed page separately to browse it, and then you can use it to get the data.

Extract some of the data from the web page with the following ** real chain ridge:

set h = createobject("")"get", the full address of the web page you want to extract information from", falseif = 4 then

s = strconv(, vbunicode)end if

split(split(s, "The time that has been used is shed:"1), Wild liter minutes")(0) 'The time at which it was extracted.

elsemsgbox "Information extraction failed"

end if

Take out the contents first, and then take the values.

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))

The first thing is to split the text first, and divide the character",", split(str,",")

Second, write the split string into the word group, and the text box takes the value from the array.

For tags that do not have an ID specified, it is not possible to directly obtain their values or attributes, you must first obtain all the tags of the same type, and then find the data you need from them one by one

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

for each y in x

Here is the alt attribute value of the tbody, and you can find all of them through the for loop, and you can do it further.

The same goes for next, TD:

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

for each y in x

Here it is and.

Between the characters, you can put all the pinnacles old by looping.

next

Give him an ID; "Wisdom Finger TD class=map id="test"Former Deferred Matching" ABCD

with"test").innerhtml can be accessed from abcd

VB regex solves these problems.

Create a new project. Insert text1, text2, command1

The multiline property of text1 and text2 is set to true

Assign the information you extracted to the page.

The project needs to reference Microsoft VBSict Regular

Click on the Project menu --- reference --- Microsoft VBSict Regular

private sub command1_click()

on error resume next

p = "\d" 'Take the number.

test(p, ,1) +vbcrlf

p = "[l|l][i|i][s|s][t|t][2]\s*[\u4e00-\u9fa5]+" 'Take a name.

s = test(p, ,1)

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

s + vbcrlf

p = "d+(day) [u4e00- u9fa5]." 'Take the data from a few days ago.

test(p, ,1) +vbcrlf

p = "\d(\-/|\.d\1\d\ *012]\d(:)d" 'Take the time.

test(p, ,1) +vbcrlf

p = "[ u4e00- u9fa5] (amount) d+" 'Take the quantity.

test(p, ,1) +vbcrlf

p = "d+ s+(meta)." 'Withdraw the amount.

s = test(p, ,1)

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

s + vbcrlf

p = "\w+(\w+(\w+(=)\w+(\w+(=)\d+" 'Get the submission link.

test(p, ,1)

end sub

private function test(p, s, c)

p is the regular expression, s is the test string, and c indicates whether to take the first value found or the second or c.

If the number of strings is greater than the number of all strings, the last one will be taken, and 0 will be selected for all strings

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

It may not be possible to do data collection programs.