Regular Expressions - citering

Vi håller på med ett enkelt forum just nu, och har stött på ett RegExp-problem. Vi vill så gärna använda oss utav en citeringsfunktion, ungefär som den här på wF. Det går bra att använda citat-taggar utanför varandra, men det går inte lika bra att nästla citat-taggar.

Koden ser just nu ut så här:

.Pattern = "\[citat\]((.|\s)*?)\[/citat\]"
strReturn = .Replace(strReturn, "<br /><br /><span style=""font-size: 10px"">Citat:</span><br /><div class=""code_area"">$1</div><br />")

Hur skall man göra för att både nästlade citat-taggar och fristående citat-taggar att fungera?

r\ Jag har redan sökt efter relaterande trådar, men de jag fick upp hjälpte tyvärr inte.

Löste det med funktionen

Function Citat(str)
  Do Until InStr(str, "[ citat]") = 0 OR InStr(str, "[/citat]") = 0
    intStartPos = InStr(str, "[ citat]")
    intStopPos = InStr(str, "[/citat]")

    str = Replace(str, "[ citat]", "<br /><span style=""font-size: 10px"">Citat:</span><br /><div class=""code_area"">", 1, 1)
    str = Replace(str, "[/citat]", "</div><br />", 1, 1)
  Loop

  Citat = str
End Function

istället. :)

Japp, och vem var det som "kom på" lösningen? ;) :e :bla

Hur använder man den funktionen?

WebbisNet skrev:

Hur använder man den funktionen?

Precis som man använder vilken annan funktion som helst.

Response.Write(Citat("[ citat]hejsan...[/citat]"))

/red Kom på att de två översta raderna i funktionen blev onödiga efter att jag hade gjort om funktionen, så dem kan du ta bort om du vill. ;)

Får det inte att funka i den här textarean.....det ska vara när man svarar på ett PM i mitt community så ska den föregående texten skilja sig från den nya

Jag får

Slut på programsats förväntas.
/mail/reply.asp, line 38, column 34
PrintTextarea "txtMess", "(Citat("[citat] "&reply("message")&" [/citat]"))", standardInputWidth+485,standardInputHeight+200
---------------------------------^

PrintTextarea "txtMess", Citat("[ citat]" & reply("message") & "[/citat]"), standardInputWidth+485,standardInputHeight+200

Tror jag nog ska fungera. :)

Sebbe skrev:

PrintTextarea "txtMess", Citat("[ citat]" & reply("message") & "[/citat]"), standardInputWidth+485,standardInputHeight+200

Tror jag nog ska fungera. :)

funkar bättre.....ska bara försöka få koden att köras och inte visas i textarean :-)