（Select Case）如果文本框包含“短语”，那么输出

Question

我正在制作一个简单的聊天机器人，就像我的朋友。

（示例）如果inputtxt包含单词“water”，则outputtxt表示“水从天而降”。所以如果输入文字说“你认为水”它会识别水并且说“水从天而降”。

我一整天都在搞这个，但是拿不到它。我也希望它以选择案例的形式。

Answer 1

你的意思是？

Private Sub inputtxt_TextChanged(sender As Object, e As EventArgs) Handles inputtxt.TextChanged 
    Dim input As String = inputtxt.Text 
    Select Case input 
     Case input = "water" 
      outputtxt.Text = "Water falls from the sky." 
     Case input = "What do you think of water" 
      outputtxt.Text = "Water falls from the sky." 
     Case Else 
      outputtxt.Text = "Please input a string!!" 
    End Select 
End Sub 

Answer 2

我明白了。我做了以下

Dim InputStringDing As String = InputTxtBox.Text.ToLower 
    Select Case True 
     Case InputStringDing.Contains("water") 
      OutputRTB.Text += "Tommy: " & "Water falls from the sky!" 
    End Select 

我真的很想感谢谁downvoted。这是一个帮助人们学习VB的好方法。如果别人有同样的问题呢？他们不想点击-1，他们会？我看到的真正好的社区。

感谢您想帮助

Answer 3

If textbox.text.Contains("water") then output = "Water falls from the sky." 

我不建议你使用选择的情况下这一点。“如果”，将更好地工作