Hämta info!!

3 svar · 244 visningar · startad av asp 15 aug. 2003

aspMedlem sedan aug. 2002733 inlägg

Frågan15 aug. 2003 15:42#1

Hej!

Hur gör jag om jag vill hämta alla källkod från en sida samt skriva ut en bestämd rad?

Säg att jag vill hämta allt från https://www.webforum.nu och skriva ut allt mellan <b> och </b> på rad 44. Hur gör jag då?

Här försökta jag lite:

<% 

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET","http://www.webforum.se", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<b>.*</b>"
Set hittade = objRegExp.Execute(strHTML)

For each item in hittade

Response.Write(item.value)

Next
%>

Engine^Medlem sedan dec. 20003 887 inlägg

15 aug. 2003 15:52#2

Hämta först en Matches Collection som du plockar ut med mönstret "/f|/r". Sedan stoppar du in Item(44) i en sträng och gör ett nytt RegExp för den strängen med mönstret "<b>(.*)</b>". Och gör en RegExp.Replace(strängen, "$1").

Jag orkade inte skriva någon kod, men det kanske räcker med denna förklaring...

aspMedlem sedan aug. 2002733 inlägg

15 aug. 2003 18:49#3

Förstod tyvärr inte, någon annan som orkar skriva kod?

SebbeMedlem sedan jan. 20032 285 inlägg

15 aug. 2003 18:57#4

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webforum.se", False

objHTTP.Send
strHTML = objHTTP.responseText
Set objHTTP = Nothing

arrHTML = Split(strHTML, vbCrLf)

For i = 0 To UBound(arrHTML)
  If (i + 1) = 44 Then ' Raden du vill hämta från. 
    Set objRegExp = New regexp
    objRegExp.Global = false
    objRegExp.IgnoreCase = true
    objRegExp.Pattern = "<b>.*</b>"
    Set hittade = objRegExp.Execute(arrHTML(i))

    For each item in hittade
      Response.Write(item.value)
    Next
  End If
Next