---
title: "RegExp-fråga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9457-regexp-fråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Prometheus"
published: "2001-05-12T18:46:00.000Z"
updated: "2001-05-13T21:09:00.000Z"
replies: 4
views: 161
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/9457-regexp-fråga"
---

# RegExp-fråga

## #1 — Prometheus, 2001-05-12T18:46Z

Håller på att bygga ett forum och tänkte fixa så att länkarna formateras.
Har tittat på Vides lektion och byggt nedanstående, tycker ni det ser OK ut eller ska jag rätta till någe? (Har inte testat än...Answer("MessBody") är inlägget som ni kanske förstår...)

```
Dim theString
theString = Answer("MessBody")
Set objRegExp = New regexp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "(http://[a-zA-Z_0-9]+\.\S{2,})|(www\.\[a-zA-Z_0-9]{2,}\.\S+)|([a-zA-Z_0-9]+@[a-zA-Z_0-9]\.\S+)"
Set theMatches = objRegExp.Execute(theString)
theString = objRegExp.Replace(theString,"<a href='$1' class='5'>$1</a><a href='http://$2' class='5'>$2</a><a href='mailto:$3' class='5'>$3</a>")
Response.Write(theString)
```

/Mattias

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

## #2 — Prometheus, 2001-05-12T20:55Z

Hade visst glömt att deklarera nån variabel... :r
men det var ju inte det som var det viktiga...

/Mattias

\[Redigerat av Prometheus den 12 maj 2001\]

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

## #3 — Prometheus, 2001-05-13T12:05Z

Okej....
hela funktionen jag använder för att formatera inlägg i mitt forum ser nu ut så som nedan. Problemet...bara länkar som börjar med "http://" blir formaterade. Nån som ser en lösning?

```
	Function FormateraInlagg(strTxt)
		strTxt = Replace(Trim(strTxt), "<", "")
		strTxt = Replace(strTxt, ">", "")
		strTxt = Replace((strTxt), "[fet]", "<b>")
		strTxt = Replace((strTxt), "[/fet]", "</b>")
		strTxt = Replace((strTxt), "[kursiv]", "<i>")
		strTxt = Replace((strTxt), "[/kursiv]", "</i>")
		strTxt = Replace((strTxt), "[citat]", "<br><font color='#ff6600'>")
		strTxt = Replace((strTxt), "[/citat]", "</font><br>") 
		strTxt = Replace((strTxt), ":)", "<img src='forum/smiley1.gif' width='15' height='15'>")
		strTxt = Replace((strTxt), ":(", "<img src='forum/smiley2.gif' width='15' height='15'>")
		strTxt = Replace((strTxt), ":p", "<img src='forum/smiley3.gif' width='15' height='15'>")
		strTxt = Replace((strTxt), ":D", "<img src='forum/smiley4.gif' width='15' height='15'>")
		strTxt = Replace((strTxt), "Z:(", "<img src='forum/smiley5.gif' width='15' height='15'>")
		strTxt = Replace((strTxt), ":o", "<img src='forum/smiley6.gif' width='15' height='15'>")
		strTxt = Replace((strTxt), ":\", "<img src='forum/smiley7.gif' width='15' height='15'>")
		strTxt = Replace((strTxt), ";) ", "<img src='forum/smiley8.gif' width='15' height='15'>")
		Dim objRegExp, theMatches
		Set objRegExp = New regexp
		objRegExp.Global = True
		objRegExp.IgnoreCase = True
		objRegExp.Pattern = "(http://[a-zA-Z_0-9]+\.\S{2,})&#0124;(www\.\[a-zA-Z_0-9]{2,}\.\S+)&#0124;([a-zA-Z_0-9]+@[a-zA-Z_0-9]\.\S+)"
		Set theMatches = objRegExp.Execute(strTxt)
		strTxt = objRegExp.Replace(strTxt,"<a href='$1' class='5'>$1</a><a href='http://$2' class='5'>$2</a><a href='mailto:$3' class='5'>$3</a>")
		FormateraInlagg = strTxt
	End Function
```

/Mattias

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

## #4 — Prometheus, 2001-05-13T12:08Z

Oops, jag använder tydligen samma kommando som i wF för citat, därför ser det lite knasigt ut ovan....

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

## #5 — Prometheus, 2001-05-13T21:09Z

Problemet löst...behövde bara ändra ett par småsaker i mönstret. :)

/Mattias

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9457-regexp-fråga