---
title: "RegExp prob...."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11820-regexp-prob"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mr.andersson"
published: "2001-09-27T16:37:00.000Z"
updated: "2001-09-27T20:18:00.000Z"
replies: 3
views: 174
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/11820-regexp-prob"
---

# RegExp prob....

## #1 — mr.andersson, 2001-09-27T16:37Z

Hej! ä helt ny här! Men jag lyckades hitta en funktion för att göra om länkar som man skriver utan \<A HREF\> till "riktiga länkar". Men det funkar inte med \<BR\> =( Nån som vet felet? 

Function GetUrl(ByVal strInlagg)
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\]+)"
strInlagg = re.Replace(strInlagg, "\<a href=""mailto" & mDelimit & ":$1""\>$1\</a\>")

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

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

re.Pattern = Replace(f_strText,vbcrlf,"\<BR\>" & vbcrlf)

GetUrl=strInlagg

End Function

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

## #2 — Pace, 2001-09-27T18:41Z

**Welcome mr.andesrson!!**

re.Pattern = Replace(f_strText,vbcrlf,"\<BR\>" & vbcrlf)

borde kunna skrivas till

strInlagg = Replace(strInlagg, vbcrlf, "\<BR\>" & vbcrlf)

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

## #3 — mr.andersson, 2001-09-27T20:10Z

Tackar Tackar!
Nu funkar de ju!
Haru lust o hjälpa mig med en sak till?
Nämligen att få \<B\> och \</B\> att göra fet text? Äre svårt???

jaja tack för att du fick de o funka iallafal!

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

## #4 — jorgen, 2001-09-27T20:18Z

**Hej och välkommen till wF!**

Sneglar lite försiktigt ner på emissions underverk:
 <http://script.webforum.nu/wf/Forum1/HTML/000093.html> 

mvh Jörgen :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11820-regexp-prob