（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." 

我不建議你使用選擇的情況下這一點。「如果」，將更好地工作