---
title: "Gör om till länk"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45458-gör-om-till-länk"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "andreas_lindh"
published: "2002-06-08T14:03:31.000Z"
updated: "2002-06-09T17:13:42.000Z"
replies: 9
views: 506
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/45458-gör-om-till-länk"
---

# Gör om till länk

## #1 — andreas_lindh, 2002-06-08T14:03Z

Hur ska jag göra för att dom här två ska fungera tillsammans?

Den här gör \[uurl=länk\]länk\[/uurl\] till länkar

```
	objRegExp.Pattern = "\[url=(.*?)\]((.|\s)*?)\[\/url\]"
	strText = objRegExp.Replace(strText,"<A HREF=""$1"" TARGET=""_blank"">$2</A>")
	
	objRegExp.Pattern = "\[mail=(.*?)\]((.|\s)*?)\[\/mail\]"
	strText = objRegExp.Replace(strText,"<A HREF=""mailto:$1"">$2</A>")
```

Den här gör så att altt som börjar på http och www till länkar.

```
	objRegExp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
	strText = objRegExp.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
	
	objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
	strText = objRegExp.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"" target=""_blank"">$2" & mDelimit & "$3</a>")
	
	objRegExp.Pattern = "(www\.(\S)(\S+))"
	strText = objRegExp.Replace(strText, "<a href=""http://$1"" target=""_blank"">$1</a>")
	strText = Replace(strText, mDelimit, "")
```

Använder jag bara en av dom fungerar det men jag skulle vilja använda båda.
Har provat med forumkoden som finns här på wf men den fungerar inte på mitt webhotell

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

## #2 — LAMP, 2002-06-08T15:40Z

Hej, här är en funktion signerad emission som du kan snegla lite på ;)

```
Public Function ParseURLs(TextToParse,LinkTarget) 
dim f_strText 
f_strText=TextToParse 
m_objRxp.Pattern="(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet:///[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""$2$3"" class=""link"">$2$3</a>$4") 
m_objRxp.Pattern="(^|[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""http://$2"" class=""link"">$2</a>$3") 
'objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" 
m_objRxp.Pattern="(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""mailto:$2"" class=""link"">$2</a>") 
ParseURLs=f_strText 
End Function
```

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

## #3 — andreas_lindh, 2002-06-09T08:07Z

Får inte den funktionen att fungera ihop med den andra

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

## #4 — voigtann1, 2002-06-09T11:45Z

<http://www.webforum.nu/showthread.php?s=&threadid=42301>

är det så du vill ha?

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

## #5 — andreas_lindh, 2002-06-09T12:22Z

Den funktionen fungerar inte riktigt. Får felmeddelande

Körningsfel i Microsoft VBScript (0x800A1399)
Syntaxfel i reguljärt uttryck
/tik2003/andreas.asp, line 16

Rad 16 är
text = objRegExp.Replace(text,"\<a href=http://$3 target=""\_blank""\>$4\</a\>")

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

## #6 — @nders, 2002-06-09T12:55Z

Se till att du har den senaste scriptmotorn. Den finns att hämta på <http://msdn.microsoft.com/scripting> .

mvh,

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

## #7 — andreas_lindh, 2002-06-09T13:11Z

Jag laddade ner den senaste men det fungerar fortfarande inte

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

## #8 — voigtann1, 2002-06-09T13:30Z

min kod fungera fel fritt... men jag har inte gjort så att mailto: ftp:// och sånt fungera.. ska kanske fixa det :) men det är inget fel på min kod..

"strText" min heter "text" så där är felet grabben :)

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

## #9 — andreas_lindh, 2002-06-09T13:40Z

Jag har inte gjort några ändringar i din kod. Har använt den precis som den är

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

## #10 — voigtann1, 2002-06-09T17:13Z

men eftersom din kod kör "strText" och min kör "text" så ska din bli:

```
<%
objRegExp.Pattern = "\[url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
strText = objRegExp.Replace(strText,"<a href=http://$3 target=""_blank"">$4</a>")
%>
```

Det är därför du får error.. för du har inget som heter "text" utan din heter "strtext"

förstå du?

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

---

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