Replace krånglar!

2 svar · 211 visningar · startad av webbSAJTEN 9 maj 2005

webbSAJTENMedlem sedan jan. 2002992 inlägg

Frågan9 maj 2005 18:31#1

Tjenare!

     <% 
Function byt(strTexten) 
strTexten = Replace(server.HTMLEncode(strTexten),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
		
strTexten = Replace(strTexten,"[b]","<b>")
strTexten = Replace(strTexten,"[/b]","</b>") 
strTexten = Replace(strTexten,"[i]","<i>")
strTexten = Replace(strTexten,"[/i]","</i>") 
strTexten = Replace(strTexten,"[u]","<u>") 
strTexten = Replace(strTexten,"[/u]","</u>") 
strTexten = Replace(strTexten,"[c]","<center>") 
strTexten = Replace(strTexten,"[/]","</center>")
		
byt = strTexten 
End Function 
%>

Denna kod har jag på sidan..
I databasen har jag olika rubriker, bland annat:

[ b ]Teori[ /b ] &[ i ]Teori[ /i ] (utan mellanslag)

Det blir kursivt på den ena, men det blir ingen skillnad på den som ska bli fet.

Vad är felet??

Jesper TMedlem sedan nov. 20017 144 inlägg

9 maj 2005 18:55#2

Du behöver inte blanda in regexp. Du kan byta ut måsvingarna till [] om du vill.

Function byt(strTexten) 
	strTexten = Replace(server.HTMLEncode(strTexten),vbCrlf,"<br>")
	strTexten = Replace(strTexten,"{b}","<b>")
	strTexten = Replace(strTexten,"{/b}","</b>") 
	strTexten = Replace(strTexten,"{i}","<i>")
	strTexten = Replace(strTexten,"{/i}","</i>") 
	strTexten = Replace(strTexten,"{u}","<u>") 
	strTexten = Replace(strTexten,"{/u}","</u>") 
	strTexten = Replace(strTexten,"{c}","<center>") 
	strTexten = Replace(strTexten,"{/c}","</center>")
	byt = strTexten 
End Function

webbSAJTENMedlem sedan jan. 2002992 inlägg

9 maj 2005 18:57#3

Jag fixade de genom att tanka upp filen genom windows ftpfunktion :P
Körde allt genom DW först..