---
title: "Rensa från länk, regex eller replace eller något."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38890-rensa-från-länk-regex-eller-replace-eller-något"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "solbulle"
published: "2002-03-03T14:31:32.000Z"
updated: "2002-03-03T21:54:48.000Z"
replies: 4
views: 302
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/38890-rensa-från-länk-regex-eller-replace-eller-något"
---

# Rensa från länk, regex eller replace eller något.

## #1 — solbulle, 2002-03-03T14:31Z

Svaret finns säkert här men jag har letat och letat.

Har en sträng med htmlkod som jag vill rensa från alla länkar.
Alltså allt mellan \<a href....\> samt \</a\> ska bort och inget behöver skrivas i stället.
Hur fixar jag det?

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

## #2 — LarsG, 2002-03-03T17:33Z

```
str = "hejsan nu <a href=a.asp> dum </a> vill jag bara <a href=b.asp> dummare </a> ha kvar"
set r = new regexp
r.ignorecase = true
r.global = true
r.pattern = "(\<a.*?\<\/a\>)"
response.write r.replace(str,"")
```

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

## #3 — solbulle, 2002-03-03T18:55Z

Det där funkade ju iofs kalas, men (varför är livet fullt av en massa "men"?) jag klarar dock inte av att kombinera det med ett annat script.
Någon som är villig att göra ett försök?

```
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.solbulle.com/", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set RegEx = New RegExp
RegEx.Global = True

RegEx.Pattern = "end ad"
strHTML= RegEx.Replace(strHTML,( chr(253) ))
RegEx.Pattern = "palmpilot"
strHTML= RegEx.Replace(strHTML,( chr(254) ))
RegEx.Pattern = chr(253) & "[^" & chr(254) & "]*" & chr(254)
Set strOut = RegEx.execute(strHTML)

strHtml = strOut.Item(0)
Set RegEx = Nothing

strHtml = Replace(strHtml,chr(253)," ")
strHtml = Replace(strHtml,chr(254)," ")

Response.Write strHtml 

'osså det nya scriptet

str = "hejsan nu <a href=a.asp> dum </a> vill jag bara <a href=b.asp> dummare </a> ha kvar"
set r = new regexp
r.ignorecase = true
r.global = true
r.pattern = "(\<a.*?\<\/a\> )"
response.write r.replace(str,"")
%>
```

Att bara sätta str = strHtml gick ju inte och jag har prövat lite andra varianter.
Antar att det är replacen i den första funktionen som ställer till det, eller?

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

## #4 — solbulle, 2002-03-03T21:38Z

Ok, problemet verkar uppstå när det är radbrytningar i den inkommande strängen.

Hur rensar jag en sträng (eg. htmlkod) från radbrytningar?

Har sökt men hittar inget som jag får att fungera.

```
Function Radbryt(rfix) 
rfix = Replace(rfix,vbCrLf," ")
Radbryt = rfix   
End Function
```

Fungerar om jag klistrar in samma text i ett formulär men inte om jag försöker köra den direkt???

Någon som har en ide?

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

## #5 — solbulle, 2002-03-03T21:54Z

Pust &amp; flämt.

```
Set RegEx = New RegExp
RegEx.Global = True

RegEx.pattern = "(\n)"
strHtml = RegEx.replace(strHtml, " ")
```

Pust!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38890-rensa-från-länk-regex-eller-replace-eller-något