---
title: "Hämta info!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/84313-hämta-info"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "asp"
published: "2003-08-15T15:42:54.000Z"
updated: "2003-08-15T18:57:06.000Z"
replies: 3
views: 263
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/84313-hämta-info"
---

# Hämta info!!

## #1 — asp, 2003-08-15T15:42Z

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

Permalänk: https://www.webforum.nu/p/84313

## #2 — Engine^, 2003-08-15T15:52Z

Hämta först en [Matches Collection](http://www.devguru.com/Technologies/vbscript/quickref/matches_collection.html) 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...

Permalänk: https://www.webforum.nu/p/1138906

## #3 — asp, 2003-08-15T18:49Z

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

Permalänk: https://www.webforum.nu/p/1138978

## #4 — Sebbe, 2003-08-15T18:57Z

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

Permalänk: https://www.webforum.nu/p/1138980

---

Tråden på webben: https://www.webforum.nu/amne/asp/84313-hämta-info