Jag håller på med att utveckla ett forum och det är så att forumet ska ha en citeringsfunktion, och den jag har nu vill inte riktigt fungera i alla lägen. Regular Expressions-koden ser ut så här:

<code>Function FCode(str)

str = Replace(str,"<","&lt;")
str = Replace(str,VbCrLf,"<br />")

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[citat\]"
str = objRegExp.Replace(str,"<blockquote><span class=""cit"">Citat:</span><hr /><span class=""citat"">")

objRegExp.Pattern = "\[citat=(.*)\](.*|\s)\]"
str = objRegExp.Replace(str,"<blockquote>$1 skrev:<hr /><span class=""citat2"">$2]")

objRegExp.Pattern = "\[/citat\]"
str = objRegExp.Replace(str,"</span><hr /></blockquote>")


objRegExp.Pattern = "\[kod\]"
str = objRegExp.Replace(str,"<blockquote><span class=""kod"">Kod:<hr />")

objRegExp.Pattern = "\[/kod\]"
str = objRegExp.Replace(str,"<hr /></span></blockquote>")

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

Set objRegExp = Nothing

Fcode = str
End Function</code>
1. Om man enbart har två eller fler {citat}text{/citat} i texten fungerar det

2. Om man enbart har en {citat=namn}text{/citat} i texten fungerar det

3. Fungerar ej om det är blandat med {citat}text{/citat} och {citat=namn}text{/citat}, eller flera {citat=namn}text{/citat}

Så här blir det ifall om jag har två eller fler {citat=namn}text{/citat} i strängen som skrivs ut:

<code>{kod}Magnus}Jag heter Magnus
<hr />
<br />
<br />

{citat=Martin skrev:
<hr />
Jag heter Martin
<hr />{/kod}</code>

Och själva texten som skrivs in ser ut så här:
{citat=Magnus}Jag heter Magnus{/citat}
{citat=Martin}Jag heter Martin{/citat}

OBS!! Byt ut { och } mot [ och ] i koden!!!

Mycket tacksam för hjälp, jag har sökt i forumet så mycket som möjligt men inte hittat svar på mitt problem.

Citeringsproblemet är löst! Här följer koden:

<code><%
Function FCode(str)

str = Replace(str,"<","&lt;")
str = Replace(str,VbCrLf,"<br />")

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[citat=(\w*[åäö]*)\](\w\s)*"
str = objRegExp.Replace(str,"<blockquote>$1 skrev:<hr /><span class=""citat"">$2")

objRegExp.Pattern = "\[citat\](\w\s)*"
str = objRegExp.Replace(str,"<blockquote><span class=""cit"">Citat:</span><hr /><span class=""citat"">$1")

'Och tillbaka med...
objRegExp.Pattern = "\[/citat\]"
str = objRegExp.Replace(str,"</span><hr /></blockquote>")


objRegExp.Pattern = "\[kod\]"
str = objRegExp.Replace(str,"<blockquote><span class=""kod"">Kod:<hr />")

objRegExp.Pattern = "\[/kod\]"
str = objRegExp.Replace(str,"<hr /></span></blockquote>")

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

Set objRegExp = Nothing

Fcode = str
End Function
%></code>