---
title: "Regexp, länk med komma?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92382-regexp-länk-med-komma"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2003-12-10T22:56:22.000Z"
updated: "2003-12-10T22:56:22.000Z"
replies: 0
views: 163
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/92382-regexp-länk-med-komma"
---

# Regexp, länk med komma?

## #1 — Jesper T, 2003-12-10T22:56Z

Jag har observetat att denna funktion funkar sisådär om man tex skriver (www.webforum.nu, är en nyttig site).
Alltså, avslutar adressen med ett komma, finns den någon sätt att smita förbi det?

```
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 = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
	strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"" target=""_blank"">$2" & mDelimit & "$3</a>")

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

	GetUrl=strText
End Function
```

Som ni ser så blir det likadant på WF.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/92382-regexp-länk-med-komma