---
title: "göra om till länk automatiskt"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/62138-göra-om-till-länk-automatiskt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Percy"
published: "2002-12-14T14:54:25.000Z"
updated: "2002-12-14T14:54:25.000Z"
replies: 0
views: 210
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/62138-göra-om-till-länk-automatiskt"
---

# göra om till länk automatiskt

## #1 — Percy, 2002-12-14T14:54Z

Hej!

Har idag följande funktion:

```
Function URLify(strInString,strTarget)
Dim strDelimiter,objRxp
strDelimiter = Chr(0)
Set objRxp = New RegExp
objRxp.Global = True
objRxp.IgnoreCase = true
objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strInString = objRxp.Replace(strInString, "<a href=""mailto" & strDelimiter & ":$1"">$1</a>")
objRxp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
strInString = objRxp.Replace(strInString, "<a target=""" & strTarget & """ href=""$1$2" & strDelimiter & "$3"">$2" & strDelimiter & "$3</a>")
objRxp.Pattern = "(www\.(\S)(\S+))"
strInString = objRxp.Replace(strInString, "<a target=""" & strTarget & """ href=""http://$1"">$1</a>")
URLify = Replace(strInString, strDelimiter, "")
End Function
```

den fungerar toppen med undantag för om jag gör en radbrytning direkt efter länken och fortsätter skriva någon text.
Då hamnar \<br\> taggen i länken och den blir därmed felaktig.
Vad kan man göra för att råda bot på detta?

tack på förhand

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/62138-göra-om-till-länk-automatiskt