如何在一行命令中添加多个单词

Question

我正在尝试运行一个函数。当您按下按钮时，如果文本框包含以下单词，则会显示"请不要发誓"。问题是我正在尝试使用"或"函数将倍数添加到一行命令行中。由于某种原因，它行不通。这是我的代码：

If InStr(1, Command.Text, "shit" Or "ass", vbTextCompare) Then
            MsgBox("Please don't swear.")

任何帮助将不胜感激！：(

Answer 1

我们不再在vb6中。让我们不使用InStr或MsgBox。

Dim prohibitedWords = {"bad", "word"}
If prohibitedWords.Any(Function(s) TextBox1.Text.IndexOf(s, StringComparison.CurrentCultureIgnoreCase) <> -1) Then
    '...
End If

我使用IndexOf而不是Contains来允许对案例不敏感的比较。

一个问题是，它将与其他合法单词的一部分相匹配。为了避免这种情况，您可能应该使用Regex并仅匹配整个单词。我将其留给您搜索如何做。