2 svar · 287 visningar · startad av znyder
Hej :D
Med tanke på rubriken så har jag Stoora problem med detta...
Jag använder denna kod:
objRegExp.Pattern = "\[CITAT=(.*?)](.*?)\[/CITAT\]"
str = objRegExp.Replace(str, "<BR><FONT COLOR=""" & color9 & """>Citat av <A HREF=""profil.asp?anv_namn=$1"">$1</A><BR>$2</FONT>")
Om jag citerar någon så blirre megabra.
Men om jag citerar någon som redan har citerat någon, ex kod:
Jag det är nästan som om detta citat är bättre lämpat.
JAG E MYCKET BÄTTRE
Och då blir det helt f****d up...
Någon som har någon juste kod? För jag har INGEN aning om hur man ska göra...
Såhär ser det ut om jag kör ett "dubbel citat".
Citat
[citat2]hej, jag är bäst och jag är verkligen Znyder men måste testa ett script som jag skrev.
HAHA![/citat]
DUBBEL HAHA
Nu fick jag lägga till en 2 i citat eftersom WF använder samma kod...
Löste det själv, kanske inte världens bästa kod...
Function link(mess,antalet)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
For i = 1 To antalet
objRegExp.Pattern = "\[citat\](.*|\s)\[\/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)\[\/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>")
Next
link = mess
End Function
Sen räknade jag ut hur många CITAT det var i svaret...
AJA ;D