Varför fungera inte RegExp koden?

Byt ut (.*?) mot (\S+) istället ... det borde fungera.

Jag kör i mitt eget forum följande kod:

	Function urlTag(strIn, strType)

		Dim re, strOut
		Set re = New RegExp

		If strType = "tohtml" Then
			re.Pattern = "\[url\](\S+)\[/url\]"
			re.IgnoreCase = True
			re.Global = True

			strOut = re.Replace(strIn, "<a target=" & Chr(34) & "_blank" & Chr(34) & " href=" & Chr(34) & "$1" & Chr(34) & ">$1</a>")
		Else
			re.Pattern = "<a target=" & Chr(34) & "_blank" & Chr(34) & " href=" & Chr(34) & "(\S+)" & Chr(34) & "(\S+)</a>"
			re.IgnoreCase = True
			re.Global = True

			strOut = re.Replace(strIn, "[url]$1[/url]")
		End If

		Set re = Nothing

		urlTag = strOut
	End Function

--
Andreas Selstam, dvdforum.nu

nope.. fungerade inte ...

Varför har du kod inom paranteser?
Ta bort dessa och anropa $1 istället.

har gjort det nu :) men det hjälper inte för det :)

Har du uppdaterat till senaste versionen av VBScript? 5.5 är den senaste (har jag för mig) och just regexp i tidigare versioner var otroligt buggigt.

Vilken version du kör kollar du lätt genom:

<%=ScriptEngine%><BR>
<%=ScriptEngineMajorVersion%><BR>
<%=ScriptEngineMinorVersion%><BR>

fick:
VBScript
5
6

Helt OT, men måste bara passa på att välkomna Andreas Selstam till WF. :)

(fr en gammal dvdforumräv)

ingen som kan kanske veta???

Tja, koden som jag skrev vet jag fungerar (den används ofta) ... :)

Det jag funderar på är om det finns några andra inställningsmöjligheter som kan vara påverkande, men det tror jag inte.

<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\[email=(&quot;)?(.*?)@(.*?)\1\](.*?)\[\/email\]"
mess = objRegExp.Replace(mess,"<a href=mailto:$2@$3 target=""_blank"">$4</a>")

objRegExp.Pattern = "\[email\](.*?)@(.*?)\[\/email\]"
mess = objRegExp.Replace(mess,"<a href=mailto:$1@$2 target=""_blank"">$1@$2</a>")

objRegExp.Pattern = "\[url=(&quot;)?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
mess = objRegExp.Replace(mess,"<a href=http://$3 target=""_blank"">$4</a>")

objRegExp.Pattern = "\[url\]([url]http://[/url])?(.*?)\1\[\/url\]"
mess = objRegExp.Replace(mess,"<a href=http://$2 target=""_blank"">$2</a>")

objRegExp.Pattern = "\[kod\](\S+)\[/kod\]"
mess = objRegExp.Replace(mess,"<blockquote><font style=""font-size: 9px"">Kod:</font><hr class=""mess4"" size=""1""><font class=""time"">$1</font></font><hr class=""mess4"" size=""1""></blockquote>")

objRegExp.Pattern = "\[color=(.*?)\](.*?)\[/color\]"
mess = objRegExp.Replace(mess,"<font color=$1>$2</font>")

objRegExp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
mess = objRegExp.Replace(mess,"<$1>")

objRegExp.Pattern = vbTab
mess = objRegExp.Replace(mess,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")

objRegExp.Pattern = vbCrLf
mess = objRegExp.Replace(mess,"<br>" & vbcrlf)

objRegExp.Pattern = "\[citat\](.*?)\1\[\/citat\]"
mess = objRegExp.Replace(mess,"<blockquote><B style=""font-size: 9px"">Citat: </b><hr class=""mess4"" size=""1""><I>$1</I><hr class=""mess4"" size=""1""></blockquote>")

objRegExp.Pattern = "\[citat=(\S+)\](\S+)\[\/citat\]"
mess = objRegExp.Replace(mess,"<blockquote><B style=""font-size: 9px"">$1</b> <font style=""font-size: 9px"">skrev: </font><hr class=""mess4"" size=""1""><I>$2</I><hr class=""mess4"" size=""1""></blockquote>")

objRegExp.Pattern = "\[list\](.*?)\[\/list\]"
mess = objRegExp.Replace(mess,"<ul>$1</ul>")

objRegExp.Pattern = "\[list(=1|=a)\](.*?)\[\/list\]"
mess = objRegExp.Replace(mess,"<ol type$1>$2</ol>")

objRegExp.Pattern = "&quot;(\S+)&quot;"
mess = objRegExp.Replace(mess,"&#8220;$2&#8221;")

objRegExp.Pattern = "\[\*\](.*?)"
mess = objRegExp.Replace(mess,"<li>$1</LI>")

objRegExp.Pattern = vbCrLf & vbCRLf
mess = objRegExp.Replace(mess,"<br>"& vbCrLf)

mess = Replace(mess, "'", "''") 

	encode = mess
End Function

%>

om du vill kolla lite extra på alla mina koder?

du.. jag ändrade till:

(.|\n)+?

nu fattar den att

[.kod]
test
[./kod]
finns... men den skriver inte ut $1 då, som om $1 aldrig finns.. :(

det borde ju fungera.. eller hur?

fixat det:

((.|\n)+?)
så fungera allt..