Hämta info!!

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
%>

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...

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

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