Fula ord filter — webForum

ArneMedlem sedan maj 2000267 inlägg

Trådstart20 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 876 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