Hi all, I needed a way to filter bad words entered in a textbox.
This is what I came up with.
Code:
Code:
Dim WordArray As New ArrayList
Public ReplaceString As String = "*****"
Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
'Put your bad words in this array.
WordArray.Clear()
WordArray.Add("BadWord1")
WordArray.Add("BadWord2")
WordArray.Add("BadWord3")
End Sub
Private Sub btnFilter_Click(sender As Object, e As RoutedEventArgs) Handles btnFilter.Click
Try
Dim CheckText As String = tbSource.Text
Dim words As String() = CheckText.Split(New Char() {" "c})
For Each Word In WordArray
For Each W In words
If W.ToLower.Contains(Word) = True Then
CheckText = CheckText.Replace(W, ReplaceString)
End If
Next
Next
tbRes.Text = CheckText
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical)
End Try
End Sub