regexp cencur

4 svar · 215 visningar · startad av Arne 7 jan. 2003

ArneMedlem sedan maj 2000267 inlägg

Frågan7 jan. 2003 17:58#1

Vad göra så inte ord med å, ä, ö inte slipper igenom?

Nuvarande plockar inte bort ord som jävlar och kåt.....

Function cencur(mess)
	Set objRegExp = New regexp
	objRegExp.Global = true
	objRegExp.IgnoreCase = true
	mess = Server.HTMLEncode(mess)
	objRegExp.Pattern = "(skitful|asful|kåt|jävlar)"
	mess = objRegExp.Replace(mess,"<I>*censur*</i>")
	cencur = mess
End Function

voigtann1Medlem sedan juni 20019 519 inlägg

7 jan. 2003 18:00#2

eftersom du kör

mess = Server.HTMLEncode(mess)

så blir dina å ä ö fel..

kör istället:

Function cencur(mess) 
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 
mess = Server.HTMLEncode(mess) 

'Fixar åäö
mess = Replace(mess, "&amp;#229;", "å")
mess = Replace(mess, "&amp;#197;", "Å")
mess = Replace(mess, "&amp;#228;", "ä")
mess = Replace(mess, "&amp;#196;", "Ä")
mess = Replace(mess, "&amp;#246;", "ö")
mess = Replace(mess, "&amp;#214;", "Ö")

objRegExp.Pattern = "(skitful|asful|kåt|jävlar)" 
mess = objRegExp.Replace(mess,"<I>*censur*</i>") 
cencur = mess 
End Function

eller ta bort HTMLEncode

red. Fixat :e

PeeerMedlem sedan mars 20025 907 inlägg

7 jan. 2003 18:07#3

voigtann1:s funktion ska nog se ut så här:

Function cencur(mess) 
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 
mess = Server.HTMLEncode(mess) 

'Fixar åäö
mess = Replace(mess, "&amp;#229;", "å")
mess = Replace(mess, "&amp;#197;", "Å")
mess = Replace(mess, "&amp;#228;", "ä")
mess = Replace(mess, "&amp;#196;", "Ä")
mess = Replace(mess, "&amp;#246;", "ö")
mess = Replace(mess, "&amp;#214;", "Ö")

objRegExp.Pattern = "(skitful|asful|kåt|jävlar)" 
mess = objRegExp.Replace(mess,"<I>*censur*</i>") 
cencur = mess 
End Function

voigtann1Medlem sedan juni 20019 519 inlägg

7 jan. 2003 18:07#4

aj! glömde bort wF konteverten :e jeje

ArneMedlem sedan maj 2000267 inlägg

7 jan. 2003 19:22#5

Tackar

Man tackar för hjälpen......