Vb.net 对于文本框中的每个单词，执行以下代码

我有一个vb的问题。我不能这样做

 For Each Letter As Char In TextBox1.Text

    Select Case TextBox1.Text

      Case "run"
       'Code
      Case "ok"
       'Code

    End Select

Next

---

因此，它所做的是重复单词中的字符数量，我只希望它重复一次

您需要将

TextBox1.Text

内容拆分为单词，并循环单词：

For Each word As String In TextBox1.Text.Split({" "c}, StringSplitOptions.RemoveEmptyEntries)
    Select Case word
        Case "run"
            'Code
        Case "ok"
            'Code
    End Select
Next

---

使用空格作为分隔符，将文本解析为单词数组。然后可以使用for循环和Case语句。

Dim i As Integer
Dim aryText() As String
'SPLIT THE TEXT INTO AN ARRAY' 
aryText = TextBox1.Text.Split(" "c )

For i = 0 To UBound(aryText)
       Select Case aryText(i)

          Case "run"
           'Code
          Case "ok"
           'Code

        End Select
Next 

---

所以不要每次都用a，但是如果我输入“ok run”，它不会做任何事情，但是如果我输入“run run”，它只会做一次“ok run”“run”；如果文本框中的任何内容与其中一个case语句匹配，它将运行（“盎司”），我想说一次，比如1次。但是我想让它做的是，如果我输入“run ok run ok”，它会播放一个声音，是run然后ok然后run然后ok没有看到你的答案。使用iPhone应用程序。