Fula ord filter

1 svar · 507 visningar · startad av Arne 20 jan. 2006

ArneMedlem sedan maj 2000267 inlägg

20 jan. 2006 07:49#1

Denna funktion som jag fick hjälp med i asp forumet för ett bra tag sedan och som fungerat kanon, men jag försöker konvertera över den till asp.net 2.0 vilket med min kunskap ej går så bra.........

Ett litet tips från någon vad jag gör för fel?

Function cencur(mess) 
	Dim objRegExp = New regexp 
	objRegExp.Global = true 
	objRegExp.IgnoreCase = true 
	mess = Server.HTMLEncode(mess) 
	
	mess = Replace(mess, "&#229;", "å")
	mess = Replace(mess, "&#197;", "Å")
	mess = Replace(mess, "&#228;", "ä")
	mess = Replace(mess, "&#196;", "Ä")
	mess = Replace(mess, "&#246;", "ö")
	mess = Replace(mess, "&#214;", "Ö")

	objRegExp.Pattern = "(j*vla|röv|röven|bajs)"

	mess = objRegExp.Replace(mess," ") 
	cencur = mess 
End Function

BrimbaMedlem sedan dec. 19995 875 inlägg

20 jan. 2006 08:34#2

Borde väl bli något sånt här... (Jag antar att det är Visual Basic)

Private Function Censur(ByVal message As String) As String
    message = HtmlDecode(message)

    message = message.Replace("å", "å")
    message = message.Replace("Å", "Å")
    message = message.Replace("ä", "ä")
    message = message.Replace("Ä", "Ä")
    message = message.Replace("ö", "ö")
    message = message.Replace("Ö", "Ö")

    Dim pattern As String = "(j*vla|röv|röven|bajs)"
    Return Regex.Replace(message, pattern, " ", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
End Function