поиск и подсчет записей слова в строке текстового поля

Question

Прямо сейчас у меня есть два текстовых поля. Один - это вход, а другой - текстовая строка. Он отлично функционирует. Есть ли способ избавиться от поля ввода и иметь «искомое» слово в коде, поэтому, когда я нажимаю кнопку, он дает результат.

Private Function FindWords(ByVal TextSearched As String, ByVal Paragraph As String) As Integer 

    Dim location As Integer = 0 
    Dim occurances As Integer = 0 
    Do 
     location = TextSearched.IndexOf(Paragraph, location) 
     If location <> -1 Then 
      occurances += 1 
      location += Paragraph.Length 
     End If 
    Loop Until location = -1 
    Return occurances 
End Function 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Label1.Text = TextBox2.Text ' display result 
    Label2.Text = FindWords(TextBox1.Text, TextBox2.Text) 
    ' MsgBox("The word " & TextBox2.Text & " has occured " & FindWords(TextBox1.Text, TextBox2.Text) & " times!!") 
End Sub 

Answer 1

Есть несколько небольших проблем, которые вы могли бы видеть вас включить опцию строгого в настройках компиляции вашего проекта. Функция возвращает целое число. Для того, чтобы правильно назначить его на этикетку текстового поля, вы должны действительно добавить .ToString к концу задания, как этого

Label2.Text = FindWords(TextBox1.Text, TextBox2.Text).ToString 

Так оставив вам код, как вы написали, в этих подлодках, вы просто хотите передать строка в качестве параметра для поиска текста?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Label1.Text = TextBox2.Text ' display result 
    Label2.Text = FindWords(TextBox1.Text, TextBox2.Text) 
    ' MsgBox("The word " & TextBox2.Text & " has occured " & FindWords(TextBox1.Text, TextBox2.Text) & " times!!") 
End Sub 

Просто измените его на этой

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    dim searchString as string="Hello" 'or whatever string you want to use 
    Label1.Text = TextBox2.Text ' display result 
    Label2.Text = FindWords(searchString, TextBox2.Text) 
    ' MsgBox("The word " & TextBox2.Text & " has occured " & FindWords(TextBox1.Text, TextBox2.Text) & " times!!") 
End Sub 

, но это могло бы быть лучше, чтобы изменить его немного больше, так что ваша функция только получает выполняется один раз, если вы хотите, чтобы отобразить MessageBox с числом вхождений - вот так

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    dim searchCount as Integer 
    dim searchString as string="Hello" 'or whatever string you want to use 
    Label1.Text = TextBox2.Text ' display result 
    searchCount = FindWords(searchString, TextBox2.Text) 
    Label2.Text = searchcount.ToString 
    ' MsgBox("The word " & TextBox2.Text & " has occured " & searchcount.Tostring & " times!!") 
End Sub