0

我有这个代码。有时它会在网页中找到这个词,有时它不会。我不确定问题可能是什么。同样输入到richtextbox2.text中的单词它只找到第一个单词,所以如果我把第一个单词作为“Cookies”然后在那个“Milk”下,它只会寻找“Cookies”。有没有办法让它查找richtextbox 中的所有单词?

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    If WebBrowser1.DocumentText.ToLower.Contains(RichTextBox2.Text.ToLower) Then
        MsgBox("its there")
    Else
        MsgBox("NOT THERE")
    End If
End Sub
4

1 回答 1

0

当 RichTextBox 中有多个单词时,它会同时搜索这两个单词,因为它们都在 RichTextBox2.Text 中。您可以一次搜索 RichTextBox 中的每个单词或短语,如果它们位于不同的行上,如下所示:

for each s in RichTextBox2.lines
  If WebBrowser1.DocumentText.ToLower.Contains(s.ToLower) Then
    MsgBox(s & " is there")
  Else
    MsgBox(s & " IS NOT THERE")
  End If
next s
于 2013-01-23T02:48:26.200 回答