---
title: "Konvertera [URL] till länkar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/99153-konvertera-url-till-länkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2004-03-10T13:25:04.000Z"
updated: "2004-03-10T15:17:50.000Z"
replies: 3
views: 229
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/99153-konvertera-url-till-länkar"
---
# Konvertera [URL] till länkar
## #1 — Ivar, 2004-03-10T13:25Z
```
Hej,
Använder Andreas funktion men funkar inte vad gör jag för fel?
Skickar hela koden.
<%
function nyrad(textstrang)
textstrang = Replace(textstrang, vbCrLf, " ")
nyrad = textstrang
end function
%>
<%
'**************************************
'KOD GJORD AV: Andreas Voigt
'Hemsida: [url]http://voigt.voigtan.cjb.net[/url]
'**************************************
Function Free(text)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
text = Server.HTMLEncode(text)
objRegExp.Pattern = "\[url=(")?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
text = objRegExp.Replace(text,"$4")
free = text
end function
%>
<% sub showheader(pagename) %>
<% end sub %>
<% sub showitem(item,description,price,phone,_
email,stad,dateCreated,fileName) %>
<%=item%>
Beskrivning:
<%=nyrad(free(description))%>
Pris:
<%=price%> Kr
Tel nr:
<%=phone%>
Stad:
<%=stad%>
Postad:
<%=dateCreated%>
<% end sub %>
```
Permalänk: https://www.webforum.nu/p/99153
## #2 — Web-Tor, 2004-03-10T13:35Z
Berätta gärna vad det är som inte funkar.
Permalänk: https://www.webforum.nu/p/1295247
## #3 — Ivar, 2004-03-10T13:38Z
Ok det blir inga länkar och ingen felmeddelande.
Permalänk: https://www.webforum.nu/p/1295250
## #4 — Ivar, 2004-03-10T15:17Z
Fixat med den här koden:
```
Function convertLink(ByVal strText)
Dim mDelimit
Dim re
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "$1")
re.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
strText = re.Replace(strText, "$2" & mDelimit & "$3")
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "$1")
strText = Replace(strText, mDelimit, "")
convertLink=strText
End Function
Anropas med <%= convertLink(……..)%>
```
Permalänk: https://www.webforum.nu/p/1295300
---
Tråden på webben: https://www.webforum.nu/amne/asp/99153-konvertera-url-till-länkar
