---
title: "Skumt fel med regexp."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87322-skumt-fel-med-regexp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredde Mannen"
published: "2003-09-30T19:33:56.000Z"
updated: "2003-10-01T09:57:13.000Z"
replies: 5
views: 290
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/87322-skumt-fel-med-regexp"
---

# Skumt fel med regexp.

## #1 — Fredde Mannen, 2003-09-30T19:33Z

Denna kod

```
<%
Function Smileys(sText)
sText = Server.HtmlEncode(sText)
sText = Replace(sText," :e","&nbsp;<img src=""forum_images/smileys/flin.gif"" />")
sText = Replace(sText," &gt;:|","&nbsp;<img src=""forum_images/smileys/arg.gif"" />")
sText = Replace(sText," ;)","&nbsp;<img src=""forum_images/smileys/flirt.gif"" />")
sText = Replace(sText," :|","&nbsp;<img src=""forum_images/smileys/fundersam.gif"" />")
sText = Replace(sText," :)","&nbsp;<img src=""forum_images/smileys/glad.gif"" />")
sText = Replace(sText," :(","&nbsp;<img src=""forum_images/smileys/ledsen.gif"" />")
sText = Replace(sText," :k","&nbsp;<img src=""forum_images/smileys/puss.gif"" />")
sText = Replace(sText," :00","&nbsp;<img src=""forum_images/smileys/soka.gif"" />")
sText = Replace(sText," :p","&nbsp;<img src=""forum_images/smileys/tunga.gif"" />")
sText = Replace(sText," :o","&nbsp;<img src=""forum_images/smileys/wow.gif"" />")
sText = Replace(sText," :upp","&nbsp;<img src=""forum_images/smileys/oui.gif"" />")
sText = Replace(sText," :ner","&nbsp;<img src=""forum_images/smileys/non.gif"" />")
sText = Replace(sText,vbCrlf,"<br />")

Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True

' mönster för fet text. 
objRegExp.Pattern = "\[b\](.*?)\[/b\]"
sText = objRegExp.Replace(sText,"<b>$1</b>")

objRegExp.Pattern = "\[u\](.*?)\[/u\]"
sText = objRegExp.Replace(sText,"<span style=""text-decoration: underline;"">$1</span>")

objRegExp.Pattern = "\[i\](.*?)\[/i\]"
sText = objRegExp.Replace(sText,"<i>$1</i>")

' mönster och ersättning för ett citat!
objRegExp.Pattern = "\[citat\](.*?)\[/citat\]"
sText = objRegExp.Replace(sText,"<table cellspacing=""0"" cellpadding=""1"" align=""center"" width=""480""><tr><td bgcolor=""#000000""><table width=""100%"" cellspacing=""0"" cellpadding=""4""><tr><td class=""citat"" valign=""top"">$1</td></tr></table></td></tr></table>")

' mönster och ersättning för ett citat med namn!
objRegExp.Pattern = "\[citat=(.*?)\](.*?)\[/citat\]"
sText = objRegExp.Replace(sText,"<table align=""center""><tr><td valign=""top"">citerar <strong>$1</strong>:<table cellspacing=""0"" cellpadding=""1"" align=""center"" width=""480""><tr><td bgcolor=""#000000""><table width=""100%"" cellspacing=""0"" cellpadding=""4""><tr><td class=""citat"" valign=""top"">$2</td></tr></table></td></tr></table></td></tr></table>")

' mönster för textstorlek 1.
objRegExp.Pattern = "\[1\](.*?)\[/1\]"
sText = objRegExp.Replace(sText,"<span class=minstatexten>$1</span>")

' mönster och ersättning för centrering
objRegExp.Pattern = "\[center\](.*?)\[/center\]"
sText = objRegExp.Replace(sText,"<center>$1</center>")

' mönster för ersättning för url med text.
objRegExp.Pattern = "\[url=(.*?)\](.*?)\[/url\]"
sText = objRegExp.Replace(sText,"<a href=""$1"" target=""_blankt"">$2</a>")

' mönster för ersättning för url utan text.
objRegExp.Pattern = "\[url\](.*?)\[/url\]"
sText = objRegExp.Replace(sText,"<a href=""$1"" target=""_blankt"">$1</a>")

' mönster för ersättning för en bild.
objRegExp.Pattern = "\[bild=(.*?)\]"
sText = objRegExp.Replace(sText,"<img src=""$1"" border=""1"" />")

Smileys = sText
End Function

%>
```

har funkat hur fint som helst... men idag så gav servern ifrån sig detta: 

> Feltyp:
> Körningsfel i Microsoft VBScript (0x800A139A)
> Oväntad kvantifierare
> /library/forum-funktioner.asp, line 25

?? :q

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

## #2 — Sebbe, 2003-09-30T19:54Z

Och rad 25 är? :)

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

## #3 — Fredde Mannen, 2003-09-30T20:07Z

denna bör det bli... 

```
sText = objRegExp.Replace(sText,"<b>$1</b>")
```

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

## #4 — @nders, 2003-10-01T04:37Z

Har du bytt server?

Felmeddelandet tyder på att scriptmotorversionen på servern är lägre än 5.5. Uppgradera scriptmotorn om du har möjlighet, annars, säg till administratören att göra det.

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

## #5 — Fredde Mannen, 2003-10-01T09:53Z

> **@nders skrev:**
>
> Har du bytt server?
> 
> Felmeddelandet tyder på att scriptmotorversionen på servern är lägre än 5.5. Uppgradera scriptmotorn om du har möjlighet, annars, säg till administratören att göra det.

Ahh.. ante mig att det var något sådant... 

japp då får det se till att fixas... :e tack!

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

## #6 — Palle, 2003-10-01T09:57Z

Fredde Mannen: Här är en liten kodsnutt för att kolla scriptmotorversionen: :) 

```
[red]<%= ScriptEngine &" - v"& ScriptEngineMajorVersion &"."& ScriptEngineMinorVersion %>[/red]
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/87322-skumt-fel-med-regexp