Hello, I'm a complete beginner working on some examples. I've followed another tutorial creating a basic Text-to-Speech program and I'm trying to add a swear word filter. I have had limited success with only one case so far and looking for some help.
Is there a way to add a variable to Select-Case so that I can cover many cases/swear words at once? Also how can I make it work regardless of letter-case ("F*ck", "f*ck").
Dim FilteredWords As B4XSet 'global
FilteredWords = B4XCollections.CreateSet2(File.ReadList(File.DirAssets, "ExcludedWordsMakeSureThatTheyAreLowerCased.txt"))
If FilteredWords.Contains(EditText1.Text.ToLower) Then
'not good
End If
Dim FilteredWords As B4XSet 'global
FilteredWords = B4XCollections.CreateSet2(File.ReadList(File.DirAssets, "ExcludedWordsMakeSureThatTheyAreLowerCased.txt"))
If FilteredWords.Contains(EditText1.Text.ToLower) Then
'not good
End If