---
title: "Tillåt inte < i RegExp för mailto."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/143752-tillåt-inte-i-regexp-för-mailto"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Oputres"
published: "2006-03-10T22:09:44.000Z"
updated: "2006-03-19T19:49:46.000Z"
replies: 2
views: 300
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/143752-tillåt-inte-i-regexp-för-mailto"
---

# Tillåt inte < i RegExp för mailto.

## #1 — Oputres, 2006-03-10T22:09Z

Allå!

Jag har följande kod för att skapa en klickbar mailto-länk när jag med RegExp hittar en epostadress i en text:

```
objRE.Pattern = "([^\s]+@([^\s]+\.)+\w{2,6})"
s = objRE.replace(s, "<a href=""mailto:$1"">$1</a>")
Set objRE = Nothing
```

Men då jag använder en Rich Text Editor för formatering i formulären går RegExp igenom ren html-kod vilket gör att det vid t.ex. radbyte hamnar en \<br\>-tagg direkt efter epostadressen. RegExp skall alltså läsa av **info@doman.se\<br\>**... Hur får jag RegExp att stoppa om den stöter på ett **\<**\-tecken? Skriver jag en punkt direkt efter se (**info@doman.se.**) känner den av att det är en punkt för mycket och bryter där så jag får en korrekt klickbar länk.

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

## #2 — Oputres, 2006-03-10T22:33Z

Detsamma gäller även min funktion nedan för att skapa klickbara länkar såg jag nu, alltså, hur får jag min RegExp att stanna när den stöter på **\<**\-taggen?

```
dim objRE, m, o
On error resume next
Set objRE = new RegExp 
objRE.IgnoreCase = True : objRE.Global = True 
objRE.Pattern = "(http:\/\/|www\.)(\w|\&|\:|\;|\.|\/|\?|\~|\=|-)+"
Set m = objRE.Execute(s) 
For Each o In m 
If Right(o.Value, 1)="." Or Right(o.Value, 1)="!" Or Right(o.Value, 1)="?" Or Right(o.Value, 1)="," Then 
If Left(o.Value, 3) = "www" Then s = Replace(s, o.Value, "<A HREF=""http://" & Left(o.Value, Len(o.Value)-1) & """ target=""_blank"">" & Left(o.Value, Len(o.Value)-1) & "</A>" & Right(o.Value, 1)) Else s = Replace(s, o.Value, "<A HREF=""" & Left(o.Value, Len(o.Value)-1) & """>" & Left(o.Value, Len(o.Value)-1) & "</A>" & Right(o.Value, 1)) 
Else 
If Left(o.Value, 3) = "www" Then s = Replace(s, o.Value, "<A HREF=""http://" & o.Value & """ target=""_blank"">" & o.Value & "</A>") Else s = Replace(s, o.Value, "<A HREF=""" & o.Value & """ target=""_blank"">" & o.Value & "</A>") 
End If 
Next
```

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

## #3 — Oputres, 2006-03-19T19:49Z

Ingen som kan   :(

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/143752-tillåt-inte-i-regexp-för-mailto