(Выберите регистр) Если текстовое поле содержит "фразу", то выведите

Question

Я делаю простой чат-бот, который действует как мой друг.

(Пример) если inputtxt содержит слово "вода", то outputtxt говорит: "Вода падает с неба". Поэтому, если во входном тексте написано "Что вы думаете о воде", он распознает воду и говорит: "Вода падает с неба".

Я возился с этим весь день, но не могу понять. Я также хочу, чтобы это было в форме выбора дела.

Answer 1

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

Я не советую вам использовать выбранный случай для этого."Если" будет работать лучше

Answer 2

Вы имеете в виду это?

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 3

Я понял. Я сделал следующее

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

Я бы очень хотел поблагодарить всех, кто проголосовал против. Это действительно хороший способ помочь людям, пытающимся учиться VB. Что делать, если у кого-то есть такой же вопрос? Они не хотят нажимать на -1, не так ли? Действительно хорошее сообщество, я вижу.

Спасибо за попытку помочь