---
title: "Kan någon kolla om min RegExp kod ser ok ut?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14035-kan-någon-kolla-om-min-regexp-kod-ser-ok-ut"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "KoTTeN"
published: "2002-01-27T11:09:00.000Z"
updated: "2002-01-27T16:20:00.000Z"
replies: 6
views: 205
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/14035-kan-någon-kolla-om-min-regexp-kod-ser-ok-ut"
---

# Kan någon kolla om min RegExp kod ser ok ut?

## #1 — KoTTeN, 2002-01-27T11:09Z

Hallå! Jag har testat lite med regexp. Denna kod har jag fått fram:

```
Function Regular(strText)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[list\]((.|\s)*?)\[/list\]"
strText = objRegExp.Replace(strText,"<UL>$1</UL>") 

objRegExp.Pattern = "(\[\*\])"
strText = objRegExp.Replace(strText,"<LI>") 

objRegExp.Pattern = "\[url=(.*?)\]((.&#0124;\s)*?)\[\/url\]"
strText = objRegExp.Replace(strText,"<B><A HREF=""$1"">$2</A></B>") 

objRegExp.Pattern = "\[b\]((.&#0124;\s)*?)\[/b\]"
strText = objRegExp.Replace(strText,"<B>$1</B>")
objRegExp.Pattern = "\[i\]((.&#0124;\s)*?)\[/i\]"
strText = objRegExp.Replace(strText,"<I>$1</I>")

objRegExp.Pattern = "\[table\]((.&#0124;\s)*?)\[/table\]"
strText = objRegExp.Replace(strText,"<TABLE WIDTH=""100%"" BORDER=""2"" CELLSPACING=""0"" CELLPADDING=""0"">$1</TABLE>") 
objRegExp.Pattern = "\[tr\]((.&#0124;\s)*?)\[/tr\]"
strText = objRegExp.Replace(strText,"<TR>$1</TR>") 
objRegExp.Pattern = "\[td(.*?)\]((.&#0124;\s)*?)\[/td\]"
strText = objRegExp.Replace(strText,"<TD$1><FONT CLASS=""s"">$2</FONT></TD>") 

objRegExp.Pattern = "\[citat\]((.&#0124;\s)*?)\[/citat\]"
strText = objRegExp.Replace(strText,"<BLOCKQUOTE><I>$1</I></BLOCKQUOTE>") 

objRegExp.Pattern = "\[img\]((.&#0124;\s)*?)\[/img\]"
strText = objRegExp.Replace(strText,"<IMG SRC=""$1"">") 

strText = Replace(strText, vbcrlf, "<BR>" & vbcrlf) 

Regular=strText
End Function
```

Detta är det första jag gör i regexp, men konstigt nog kom det inga felmedelanden. Brukar alltid komma upp sjuttielva fel annars. 
Men något skumt fel måste de ju finnas. Kan någon vänlig person som inte har något särskilt för sig kolla igenom om det ser ok ut? Vad som kan göras bättre och vad som ä så innehelvetes fel? Vore toppen i så fal!

Och så en sak till, om jag vill ha denna funktion på ett tio tal sidor, ska jag då lägga in den i en Include fil som jag inkluderar högst upp på varje som jag vill ha den i?

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

## #2 — Vide, 2002-01-27T11:16Z

Är det något som inte funkar?

> Och så en sak till, om jag vill ha denna funktion på ett tio tal sidor, ska jag då lägga in den i en Include fil som jag inkluderar högst upp på varje som jag vill ha den i?

Absolut... du skall inte göra på något annat sätt (om du inte vill hålla på med komponenter eller scriptlets). ;)

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

## #3 — KoTTeN, 2002-01-27T11:29Z

Nej allt funkar! Jag bara har en sån där äcklig känsla av att det är någonting som kan göras bättre...

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

## #4 — Pace, 2002-01-27T12:29Z

Nu jag inte så jättehaj på RegExp, men borde man inte kunna göra en funktion av det (om man dimmar objRegExp & strText globalt):

```
Sub RegExpressa(strPattern, strString)
 &nbsp; &nbsp; objRegExp.Pattern = strPattern
 &nbsp; &nbsp; strText = objRegExp.Replace(strText, strString)
End Sub
```

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

## #5 — KoTTeN, 2002-01-27T15:00Z

Nä jag är inte heller jättehaj på RegExp, så kan du förklara mer? :)

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

## #6 — Vide, 2002-01-27T16:07Z

Det handlar inte om regexp utan om funktioner... :)

Du skapar en funktion för att exekvera ditt pattern så slipper du skriva den koden varje gång, exempel:

```
dim objRegExp 
Function Regular(strText)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

[b]strText = RegExpressa("\[list\]((.&#0124;\s)*?)\[/list\]", "<UL>$1</UL>")[/b]

strText = Replace(strText, vbcrlf, "<BR>" & vbcrlf) 

Regular=strText
End Function

Sub RegExpressa(strPattern, strString)
    objRegExp.Pattern = strPattern
    strText = objRegExp.Replace(strText, strString)
End Sub
```

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

## #7 — KoTTeN, 2002-01-27T16:20Z

aha ok! De testar vi!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14035-kan-någon-kolla-om-min-regexp-kod-ser-ok-ut