---
title: "RegExp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10414-regexp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DavidB"
published: "2001-07-03T18:50:00.000Z"
updated: "2001-07-05T06:06:00.000Z"
replies: 9
views: 302
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/10414-regexp"
---

# RegExp

## #1 — DavidB, 2001-07-03T18:50Z

jag sitter och testar att göra lite grejer till mitt forum och där tänkte jag att jag skulle lägga in något liknande den forumkod som finns här på webForum.

Hittils har jag lyckats bra det är bara ett problem och det är att den hittar bara den första länken och om man har fler än 1 länk så blir det en länk som är emellan det första [och den sista](http://www.server.com).

Jag använder RegExp så jag undrar om det finns något sätt som man kan Loopa igenom en variabel med hjälp av RegExp så att varje [en sida](http://www.server.com) blir en länk istället för att all text emellan första och sista länken blir en länk.

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

## #2 — DavidB, 2001-07-03T19:10Z

det blev lite fel i föregående inlägg eftersom jag skrev samma kod som finns här på wF.

Har testat lite till och får dte att bli samma fel om jag skriver såhär.

lite text \[asd\]dakshgdhs\[/asd\] lite text \[asd\]jkhasffva\[/asd\] lite mer text

blir allt det som är fetstil utbytt istället för att det blir 2 olika

lite text **\[asd\]dakshgdhs\[/asd\] lite text \[asd\]jkhasffva\[/asd\]** lite mer text

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

## #3 — Janspeed, 2001-07-04T07:08Z

Här är ett ganska fiffigt script för färgkoder jag knåpat ihop. Det kanske kan ge dig några ledtrådar? :)

```

strText = "Text [green]innehållandes[/green] koder som ska ersättas.
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[(blue)\]"
strText = objRegExp.Replace(strText,"<font color=""#0000ff"">")

objRegExp.Pattern = "\[(red)\]"
strText = objRegExp.Replace(strText,"<font color=""#ff0000"">")

objRegExp.Pattern = "\[(white)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffffff"">")

objRegExp.Pattern = "\[(yellow)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffff00"">")

objRegExp.Pattern = "\[(green)\]"
strText = objRegExp.Replace(strText,"<font color=""#008000"">")

objRegExp.Pattern = "(\[/blue\]&#0124;\[/red\]&#0124;\[/green\]&#0124;\[/white\]&#0124;\[/yellow\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText
```

/JANspeed

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

## #4 — Janspeed, 2001-07-04T07:17Z

Vill du ha fetstil så gör typ så här kanske:

```
strText = "Text [asd]innehållandes[/asd] koder som ska ersättas.
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[(asd)\]"
strText = objRegExp.Replace(strText,"<b>")

objRegExp.Pattern = "\[/(asd)\]"
strText = objRegExp.Replace(strText,"</b>")
```

Det jag skriver är dock bara teoretiskt. Har inte hunnit att testa. :)

/JANspeed

\[Redigerat av Janspeed den 04 jul 2001\]

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

## #5 — Brimba, 2001-07-04T08:12Z

Jag föreslår:

```
Function cStrim(cTxt)
	Dim objRegExp
	Set objRegExp = New RegExp

	objRegExp.Pattern = "\[asd\](.*?)\[\/asd\]"
	objRegExp.IgnoreCase = True
	objRegExp.Global = True

	cStrim = objRegExp.Replace(cTxt,"<B>$1</B>") 
	
	Set objRegExp = Nothing
End Function
```

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

## #6 — DavidB, 2001-07-04T08:33Z

såhär ser min kod ut och när jag kör denna så får jag endast en länk som länkar till den text som är fet.

```
<%
myText = "text text [b][ URL=http://www.altavista.com/]altavista[/ URL] här e det massa mer meningslös text [ URL=http://www.webforum.nu/[/b]]webForum[/ URL]."
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[url=(.*)\](.*)\[/url\]"
myString = objRegExp.Replace(myText, "<a href=""$1"">$2</a>")
Response.Write myString
%>
```

samma sak händer om jag vil loopa upp alla länkar, den loopar bara upp en länk

```
For each item in myMatches
  Response.Write "" &item.Value&"<br>"
Next
```

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

## #7 — Brimba, 2001-07-04T08:37Z

Prova detta?

```
Function cStrim(cTxt)
	Dim objRegExp
	Set objRegExp = New RegExp

	objRegExp.Pattern = "\[url=(.*?)\](.*?)\[\/url\]"
	objRegExp.IgnoreCase = True
	objRegExp.Global = True

	cStrim = objRegExp.Replace(cTxt,"<a href=$1>$2</a>") 
	
	Set objRegExp = Nothing
End Function
```

Sedan skriver du

```
response.write cStrim("Hej! [URL =http://www.hej.com]min hemsida[/ URL] är bra...")
```

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

## #8 — DavidB, 2001-07-04T08:48Z

tackar det fungerade utmärkt, kom även på vad det var som var fel i min kod och det är ju bättre att använda sin egen så man kan säga att man har gjort allt ;)

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

## #9 — Janspeed, 2001-07-04T08:58Z

Så i princip så hade du bara glömt frågetecknet DavidB, eller? :)

/JANspeed

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

## #10 — DavidB, 2001-07-05T06:06Z

jag gjorde om mitt till en funktion ch då fungerade det utmärkt

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

---

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