Hej, håller på med ett test, som går ut på att gå till en hemsida och plocka ut länkar.
För att få ut html källkoden använder jag denna koden:
Set objekt = Server.CreateObject("Microsoft.XMLHTTP")
objekt.Open "GET","http://sidan", False
objekt.Send
strSite = objekt.responseText
Set objekt = Nothing
då får jag ut hela källkoden i strängen "strSite"
vad jag nu vill göra är att leta upp de olika länkarna, t.ex. om det står "<a href='http:/sida'>sidan</a>"
så ska den plocka ut http:/sidan och sidan och lägga dem i vars en array.
problemet som jag har är att jag lyckas bara få ut den första länken, inte alla, så kan man på nått sätt få ut alla länkarna?
Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "GET","http://sidan", False
objXmlHttp.Send
strSite = objXmlHttp.responseText
Set objXmlHttp = Nothing
dim strAdress
Set objRegExp = New RegExp
objRegExp.global = true
objRegExp.IgnoreCase = true
objRegExp.pattern = "(<a href=)(\S+)(></a>)"
Set matches = objRegExp.Execute(strSite)
for each match in matches
strAdress = match.Value
strAdress = left(strAdress,len(strAdress)-6)
strAdress = right(strAdress,len(strAdress)-8)
Response.Write strAdress &"<br>"
Next
/Chrille
253 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
