Hmm, fortf. samma grej.
Koden blir färgad, men efter ett inlägg som innehåller [asp][/asp] skrivs inget mer ut.
http://mickea.dyndns.org/_Asp/forum_v2.00/default.asp?mP=showthread&tId=16&fId=1
Sen blir resultatet jättekonstigt. Inäggen verkar htmlencode'as, för trots str = Replace(str, VbCrLf,"<br>")
blir det inga radbrytningar i inläggen.
Kanske ska ta och struna i det här helt och hållet, eller går det att lösa på nått smidigt sätt?
Kan skicka med det övriga som finns i den här funktionen för forumkod, som jag från början fått av söderlund:
Function FCode(str)
'str = Replace(str,"<","<")
'str = Replace(str,VbCrLf,"<br />")
Set objRE = New regexp
objRE.Global = true
objRE.IgnoreCase = true
'start citering
objRE.Pattern = "\[citat=(.*?)](\w\s)*"
str = objRE.Replace(str,"<br />[citat=$1]")
objRE.Pattern = "\[citat=(.*?)]"
str = objRE.Replace(str,"<blockquote><b>$1</b> säger:<hr /><span class=""citat"">")
objRE.Pattern = "\[citat\](\w[åäö]*\s[åäö]*)*"
str = objRE.Replace(str,"<blockquote><br /><span class=""cit""><font size='1'>Citat:</font></span><hr /><i><span class=""citat"">$1")
objRE.Pattern = "\[/citat\]"
str = objRE.Replace(str,"</span></i><hr /></blockquote>")
'slut citering
objRE.pattern = "\[asp\]((.|\n)*)\[/asp\]"
if objRE.test(str) then
str = objRE.replace(str, "<blockquote><span class=""kod""><font size='1'>Kod:</font><hr /><font face='arial' size='2'>" & _
colorcode(objRE.replace(str, "$1"), "tahoma", "1") & _
"</font><hr /></span></blockquote>")
end if
'dim str2
'objRE.pattern = "\[asp\]((.|\n)*)\[/asp\]"
'colorCode(str, "tahoma", "1")
'str2 = "<blockquote><span class=""kod""><font size='1'>Asp:</font><hr /><font face='arial' size='2'>"
'str2 = str2 & colorcode(objRE.replace(str, "$1"), "tahoma", "1")
'str2 = str2 & "</font><hr /></span></blockquote>"
'str = str2
'start kod
objRE.Pattern = "\[kod\]"
str = objRE.Replace(str,"<blockquote><span class=""kod""><font size='1'>Kod:</font><hr /><font face='arial' size='2'>")
objRE.Pattern = "\[/kod\]"
str = objRE.Replace(str,"</font><hr /></span></blockquote>")
'slut kod
objRE.Pattern = "\[img\](.*)\[/img\]"
str = objRE.Replace(str, "<img src=""$1"" style=""border: 0px;"">")
objRE.Pattern = "\[(b|/b|i|/i|u|/u)\]"
str = objRE.Replace(str,"<$1>")
'fixa länkar och e-postadresser
'objRE.Pattern = "([url]www.[/url][^ ]*[a-z])|([url]http://[/url][^ ]*[a-z])"
'str = objRE.Replace(str,"<a href=""$1$2"" target=""_blank"">$1$2</a>")
'buggfixningar
'str = Replace(str,"""www","""http://www")
'str = Replace(str,"""http://www""","""www""")
'str = Replace(str,"<br""","""")
'str = Replace(str,"<br</a> />","</a><br />")
'str = Replace(str,"</span><hr""","""")
'str = Replace(str,"</span><hr</a> />","</a></span><hr />")
'str = Replace(str,"<blockquote><span""","""")
'str = Replace(str,"<blockquote><span</a>","</a><span")
'str = Replace(str,"</b</a>>","</b>")
'slut
'objRE.Pattern = "([\w~\-\.]+@[\w~\-\.]+[a-z])"
'str = objRE.Replace(str,"<a href=""mailto:$1"">$1</a>")
'slut länkar och e-postadresser
objRE.Pattern = "\[url=(.*)\](.*)\[/url\]"
str = objRE.Replace(str, "<a href=""$1"">$2</a>")
objRE.Pattern = "\[email=(.*)\](.*)\[/email\]"
str = objRE.Replace(str, "<a href=""mailto:$1"">$2</a>")
Set objRE = Nothing
str = Replace(str, VbCrLf,"<br>")
Fcode = str
End Function
'slut
Tack!
