webForumDet fria alternativet

Problem med RegExp!

4 svar · 267 visningar · startad av Mika3l

Mika3lMedlem sedan nov. 20018 492 inlägg
#1

Hejsan!
Jag får det här felmeddelandetmeddelandet:

Error Type:
Microsoft VBScript runtime (0x800A139A)
Unexpected quantifier

När jag använder den här koden(sparad som function.inc och inkluderas sedan på ett flertal sidor):

<%
Function fixa(str)
str = "" & str
str = Replace(str,  vbCrlf, "<br>" & vbCrlf)
str = Replace(str,"[1]","<font size=1>")
str = Replace(str,"[/1]","</font>")
str = Replace(str,"[2]","<font size=2>")
str = Replace(str,"[/2]","</font>")
str = Replace(str,"[3]","<font size=3>")
str = Replace(str,"[/3]","</font>")
str = Replace(str,"[4]","<font size=4>")
str = Replace(str,"[/4]","</font>")
str = Replace(str,"[5]","<font size=5>")
str = Replace(str,"[/5]","</font>")
str = Replace(str,"[6]","<font size=6>")
str = Replace(str,"[/6]","</font>")
str = Replace(str,"[fet]","<b>")
str = Replace(str,"[/fet]","</b>")
str = Replace(str,"[u]","<u>")
str = Replace(str,"[/u]","</u>")
str = Replace(str,"[k]","<i>")
str = Replace(str,"[/k]","</i>")
str = Replace(str,"[verdana]","<font face=Verdana>")
str = Replace(str,"[/verdana]","</font>")
str = Replace(str,"[arial]","<font face=Arial>")
str = Replace(str,"[/arial]","</font>")
str = Replace(str,"[seriff]","<font face=MS Sans Seriff>")
str = Replace(str,"[/seriff]","</font>")
str = Replace(str,"[helvetica]","<font face=Helvetica>")
str = Replace(str,"[/helvetica]","</font>")
str = Replace(str,"[bild]","<img src=")
str = Replace(str,"[/bild]",">")
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[lank url=(""?)(.*?)\1\](.*?)\[\/lank\]" 
[blue]str = objRegExp.Replace(str,"<a href=""$2"" target=""_blank"">$3</a>")[/blue]
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[farg=(""?)(.*?)\1\](.*?)\[\/farg\]" 
fixa = objRegExp.Replace(str,"<font color=""$2"">$3</font>") 
End Function
%>

Raden det är fel på är blå.
Koden har fungerat finfint förut men nu har den helt plötsligt slutat att fungera. :o

Snälla hjälp!

/Mika3l

@ndersMedlem sedan juni 200032 969 inlägg
#2

Har det fungerat förut på den maskin du kör det nu?

Det luktar som att din scriptmotor äf för gammal.

Mika3lMedlem sedan nov. 20018 492 inlägg
#3

Sidan fungerar lokalt på min dator men när jag har sidan upplagd på hemsida.net så fungerar det inte.
Detta är mycket konstigt för det fungerade där förut under IIS4 men inte nu under IIS5.

Vart kan man ladda hem en scriptmotor?

@ndersMedlem sedan juni 200032 969 inlägg
#4

Det spelar inte så stor roll om du kör det på IIS4 eller IIS5, det fungerar inte om inte Script engine uppdateras.

http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/733/msdncompositedoc.xml

Mvh,

Mika3lMedlem sedan nov. 20018 492 inlägg
#5

Jag får väl ta och skicka dom ett mail!

Tack @! :)

134 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)