String Manipulation Help Please - find X and separate 1

[gwrman]

I have a small snippet that captures the html of an external url, and stores it in "xmlhttp.responseText"

I want to be able to pick out a section based on one other variable, "known", which is a url that would be in href="" attribute of the <A> tag.

Basically, I want to say:

if the url "known" exists in the html anywhere then

move forward in the code until the anchor text is found, and capture that, and store as a variable.

else

send error

end if

I think I can use inStr() to find if the url exists,but not sure wehre i can go from there.

I hope this is clear. Thnak in advance for any help.

 

[baltman]

This example finds the 1st link after the Google video link on google.com

Brian

set http = createobject("microsoft.xmlhttp") 
Http.open "GET"," [URL unfurl="true"]http://www.google.com/",[/URL] false 
Http.send 
cText = Http.responsetext
nLen = Len(cText)
cStartIdTxt = "<a href="
cEndIdTxt = "class"
cKnownText = "[URL unfurl="true"]http://video.google.com/?hl=en&tab=wv"[/URL]
nKnownTextStart = InStr(1, cText, cKnownText)
cTextRight = Right(cText, nLen-nKnownTextStart-Len(cKnownText))
nTextTargetStart = InStr(1, cTextRight, cStartIdTxt)
nTextTargetEnd = len(cKnownText) + inStr(1, cTextRight, cEndIdTxt)
cTextTarget = Mid(cTextRight, nTextTargetStart+Len(cStartIdTxt), nTextTargetEnd+Len(cEndIdTxt))

Wscript.Echo cTextTarget