---
title: "Emission, din http:// blir URL funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6709-emission-din-http-blir-url-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2000-09-26T14:16:00.000Z"
updated: "2000-09-27T08:55:00.000Z"
replies: 6
views: 239
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/6709-emission-din-http-blir-url-funktion"
---

# Emission, din http:// blir URL funktion

## #1 — PatrikB, 2000-09-26T14:16Z

.... funkar inte tillsammmans med tex en annan funktion som byter ut vbcrlf mot tex radbrytning i HTML eller nytt stycke eller hur man nu fill formatera upp texten på för sätt.

du har ingen lösning på det? för själv e jag ej hemma på detta med RegExp .... än. Kanske en vacker dag =P

Aha, funktionen ser ut så här nu:

```
Function GetUrl(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, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
				
	re.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
		strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")
				
	re.Pattern = "(www\.(\S)(\S+))"
		strText = re.Replace(strText, "<a href=""http://$1"">$1</a>")
		strText = Replace(strText, mDelimit, "")
		
Response.Write strText
		
End Function
```

cya,
PatrikB

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

## #2 — emission, 2000-09-26T18:08Z

Nog finns det en och annan liten bugg, men det ska absolut inte vara något problem att kombinera detta med andra funktioner. Dock har du den inte skriven som en funktion nu, utan som en sub, vilket gör det lite oflexibelt.

```
Function GetUrl(ByVal strText)
Dim mDelimit
Dim re
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true

re.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")

re.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")

re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1"">$1</a>")
strText = Replace(strText, mDelimit, "")

GetUrl=strText

End Function
```

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

## #3 — PatrikB, 2000-09-27T06:06Z

Hello,

jo, jag vet. Provade både som funktion och sub ..... men, får det inte att funka med en funktion som formaterar texten, dvs ersätter vbcrlf med \[br\]

Labbar vidare med den och ser vad man kan få till,

cya,
PatrikB

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

## #4 — emission, 2000-09-27T07:08Z

Det kan vara att du byter till \<br\> innan du kör denna funktion. Länkarna matchas hela vägen från http:// till nästa mellanslag, nyrad el. dyl. Då kan det bli lite konstigt om man tar bort alla vbcrlf. Lätt att fixa, i regexp:en, om man så vill.

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

## #5 — PatrikB, 2000-09-27T07:53Z

Det stämmer för br kommer med i själva länkurlen ....

Hur skulle det kunna fixas till?
Du har inte ngn bra länk på hur RegExp funkar?

Sitter dock och leker med den och en del funkar medans det mesta blir "kajko"

cya,
PatrikB

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

## #6 — Vide, 2000-09-27T07:59Z

Här: <http://www.4guysfromrolla.com/webtech/090199-1.shtml> 

Annars finns det ganska så mycket på MS...

Mvh, Vide

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

## #7 — PatrikB, 2000-09-27T08:55Z

Tackar för tipsen ....

fick ihop lite material att läsa ... och hoppas att jag får till det så att det funkar =)

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/6709-emission-din-http-blir-url-funktion