Printable View
Hi all
can any one help me with this problem. I am searching a string which contains the data from a web page, i search the string using instr for a particular word in this case it is a url. i can then copy this url to another string but what i want to be able to do is retrive the html tag information stored between <b>info in need </b> tags ,the info between these tags varies in size but is allwat the tag befor the url i can alreadt retrive.
any help please.
[email protected]
Use Instr to Find the Tag <b> then from the Value returned do another Instr for the Tag </b>, then you can grab the string using Mid with the 2 Values, eg.
Code:Dim iStart As Integer
Dim iEnd As Integer
Dim sTag As String
iStart = InStr(sHTML, "<b>")
iEnd = InStr(iStart, sHTML, "</b>")
sTag = Mid$(sHTML, iStart + 3, (iEnd - iStart) - 3)
------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]
Hi again
not sure i explained my problem very vell. There are several urls on the page i need to search from one particular url and retrive the data between the <b> tage in front of the url. This means i am unable to use instr to search for the <b> tags as there are many of them.
[email protected]
If you know the URL then use Instr to search for the URL, then backstep through the String checking for <b> and you'll have your Information, eg.
------------------Code:Private Sub Command1_Click()
Dim iStart As Integer
Dim iEnd As Integer
Dim sTag As String
sHTML = "<HTML><BODY><b>Any old thing</b>some other stuff<b>The Info</b><a href=www.vb-world.net>Link</a>"
iStart = InStr(sHTML, "</b><a href=www.vb-world.net")
iEnd = iStart
While Mid$(sHTML, iStart, 3) <> "<b>"
iStart = iStart - 1
Wend
sTag = Mid$(sHTML, iStart + 3, (iEnd - iStart) - 3)
Caption = sTag
End Sub
Aaron Young
Analyst Programmer
[email protected]
[email protected]
Thanks very much that should do it. it was the stepping back bit i was unsure of thenks again