---
title: "Hämta all text från en sida"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87905-hämta-all-text-från-en-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2003-10-07T15:18:30.000Z"
updated: "2003-10-08T18:22:19.000Z"
replies: 7
views: 314
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/87905-hämta-all-text-från-en-sida"
---

# Hämta all text från en sida

## #1 — Addeladde, 2003-10-07T15:18Z

Hej

Kan man bygga en funktion som hämtar all text från vilken sida som helst och sedan sparar det i en variabel.

Texten behöver inte på något sätt vara snyggt sparad utan det räcker med att få all text från webbsidan utan htmltaggar bilder och annat joxx sparat i en variabel.

Hur går jag i så fall tillväga?

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

## #2 — Sebbe, 2003-10-07T16:14Z

Menar du typ såhär?

```
Function GetPage(strURL)
  On Error Resume Next

  Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objHTTP.Open "GET", strUrl, False
  objHTTP.Send

  If Err.Code <> "" Then
    strReturn = "Sidan fanns inte"
  Else
    strReturn = Replace(Server.HTMLEncode(objHTTP.ResponseText), vbCrLf, "<br>")
  End If

  Set objHTTP = Nothing
  GetPage = strReturn
End Function

strSida = GetPage("http://www.webforum.nu")
```

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

## #3 — Addeladde, 2003-10-07T21:57Z

Det retunerar allt inklusive html-taggar och allt. Jag vill vara ha texten från sidan.

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

## #4 — Addeladde, 2003-10-07T23:28Z

\[kod\]
\<%
Function GetPage(strURL)
  'On Error Resume Next

  Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objHTTP.Open "GET", strUrl, False
  objHTTP.Send

  'If Err.Code \<\> "" Then
    'strReturn = "Sidan fanns inte"
  'Else
    strReturn = objHTTP.ResponseText
  'End If

  Set objHTTP = Nothing
  GetPage = strReturn
End Function

Function RemoveStyle(ByVal sString)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.Pattern = "\<style\[\\s\\S\]\*?\</style\>"
	RemoveStyle = objRegExp.Replace(sString & "", "")
	Set objRegExp = Nothing
End Function

Function RemoveJava(ByVal sString)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.Pattern = "\<script\[\\s\\S\]\*?\</script\>"
	RemoveJava = objRegExp.Replace(sString & "", "")
	Set objRegExp = Nothing
End Function

Function RemoveHTML(ByVal sString)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.Pattern = "\<\[^\>\]\*\>"
	RemoveHTML = objRegExp.Replace(sString & "", "")
	Set objRegExp = Nothing
End Function

strSida = GetPage("http://www.aftonbladet.se")
strSida = RemoveStyle(strSida)
strSida = RemoveJava(strSida)
strSida = RemoveHTML(strSida)

response.write strSida

%\>
\[kod\]

Inte speciellt optimerad kod ännu men pröva den på aftonbladet.se så ser ni att den inte tar bort allt skräp. Någon som vet varför?

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

## #5 — Addeladde, 2003-10-07T23:48Z

Någon som vet varför ovanliga tecken som åäö hämtas och blir frågetecken?

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

## #6 — solbulle, 2003-10-08T06:16Z

Sök en smula på XMLHTTP här på forumet så lär du hitta en o annan tråd som tar upp det...

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

## #7 — Sebbe, 2003-10-08T14:04Z

Såhär då?

**/red** Vill inte funka... Det är väl jag som är trög såhär efter skolan. ;)
**/red2** Nu fick jag i alla fall till det sådär! :)

```
Function GetPage(strURL)
  On Error Resume Next

  Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objHTTP.Open "GET", strUrl, False
  objHTTP.Send

  If Err.Number > 0 Then
    strReturn = "Sidan fanns inte"
  Else
    strReturn = objHTTP.ResponseBody

    For i = 1 To LenB(strReturn)
      strTemp = strTemp & Chr(AscB(MidB(strReturn, i, 1)))
    Next

    strReturn = Replace(strTemp, vbCrLf, "<br>")
  End If

  Set objHTTP = Nothing
  GetPage = strReturn
End Function

Function RemoveStyle(ByVal sString) 
  Dim objRegExp 
  Set objRegExp = New RegExp 
  objRegExp.Global = True 
  objRegExp.Pattern = "<style[\s\S]*?</style>" 
  RemoveStyle = objRegExp.Replace(sString & "", "") 
  Set objRegExp = Nothing 
End Function 

Function RemoveJava(ByVal sString) 
  Dim objRegExp 
  Set objRegExp = New RegExp 
  objRegExp.Global = True 
  objRegExp.Pattern = "<script[\s\S]*?</script>" 
  RemoveJava = objRegExp.Replace(sString & "", "") 
  Set objRegExp = Nothing 
End Function 

Function RemoveHTML(ByVal sString) 
  Dim objRegExp 
  Set objRegExp = New RegExp 
  objRegExp.Global = True 
  objRegExp.Pattern = "<[^>]*>" 
  RemoveHTML = objRegExp.Replace(sString & "", "") 
  Set objRegExp = Nothing 
End Function 

strSida = Replace(Replace(RemoveHTML(RemoveJava(RemoveStyle(GetPage("http://www.webforum.nu")))), vbCrLf, "<br>"), Chr(10), "<br>")
Response.Write(strSida)
```

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

## #8 — Addeladde, 2003-10-08T18:22Z

Finns det några fler taggar som jag inte tänkt på där det står skräp emellan. Alltså \<tagg\>Skräp\</tagg\>?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/87905-hämta-all-text-från-en-sida