对于文本框中的每个单词执行此代码答案

【问题标题】：for each word in textbox do this code对于文本框中的每个单词执行此代码
【发布时间】：2015-01-14 21:06:24
【问题描述】：

vb 有问题。我不能这样做

 For Each Letter As Char In TextBox1.Text

    Select Case TextBox1.Text

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

    End Select

Next

所以它的作用是重复单词中的字符数量，我只希望它执行一次

【问题讨论】：

所以不要使用 For Each
是的，但是如果我输入“ok run”它不会做任何事情
但是如果我有“run run”它只会做一次
"好的运行" "运行";如果文本框中的任何内容与其中一个 case 语句匹配，它将运行 ("ounce")
我的意思是说一次就像 1 次。但我想要它做的是，如果我输入“run ok run ok”，它会播放一个运行的声音然后确定然后运行然后确定

标签： vb.net text select-case

【解决方案1】：

使用空格作为分隔符将文本解析为单词数组。然后，您可以使用 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

【讨论】：

【解决方案2】：

您需要将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

【讨论】：

没有看到你的答案。开始使用 iPhone 应用程序。