Dim objHTTP,strHTML,objRegExp,hittade,item
url = "http://blabla"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", url , False
objHTTP.setRequestHeader "Content-type","text/html"
objHTTP.Send
strHTML=BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing
Set RegExp = New regexp
RegExp.Global = true
RegExp.IgnoreCase = true
RegExp.Pattern = "<FONT class=""rubrik3"">(.*)</FONT>"
' Här vill jag även söka redan på raden
' RegExp.Pattern = "<FONT class=""rubrik2"">(.*)</FONT>"
Set hittade = RegExp.Execute(strHTML)
For each item in hittade
Response.Write ""& item.value &"<br>"
Next
Jag vill plocka ut flera värden ur källkoden samtidigt, helst skulle jag vilja plocka ut allt mellan <table></table> men (.*?) fungerar ej.
set re = new regexp
re.pattern = "<table[^>]*>((.|\n)*)</table>"
set m = re.execute(strHTML)
if m.count > 0 then
response.write replace(m(0).submatches(0), "<", "<")
end if
set re = nothing
Förekommer fler tabeller i strHTML blir ovanstående mindre bra, eftersom uttrycket kommer att ta med allt från den första tabellens <table> till den sista tabellens </table>.
Eftersom inte lazy quantifiers verkar stödjas kan det bli svårt att hämta ut allt mellan varje par av <table> och </table> med regex. I slutändan kanske det blir till att skriva en egen funktion som klarar biffen.
Red./ I och för sig är det ju alltid möjligt att explicit ange vilka element som får förekomma mellan tabelltaggarna.
set re = new regexp
re.global = true
re.pattern = "<table[^>]*>((\s*(<(tr|td|font)[^>]*>)\s*)*(\w|\s)*(</(tr|td|font)>\s*)*)"
set m = re.execute(strHTML)
for each item in m
response.write replace(item.submatches(0), "<", "<") & "<br>"
end if
set re = nothing
Kan andra element än 'tr', 'td' och 'font' förekomma är det bara att lägga till dem enligt mönstret ovan.
