0

私はこのコードを持っています。Web ページ内で単語が見つかる場合もあれば、見つからない場合もあります。何が問題なのかわかりません。また、richtextbox2.text への入力の単語は最初の単語のみを検索するため、最初の単語を「Cookies」として配置し、その「Milk」の下に配置すると、「Cookies」のみが検索されます。リッチテキストボックス内のすべての単語を検索する方法はありますか?

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内の各単語またはフレーズが別々の行にある場合は、一度に1つずつ検索できます。

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 に答える