vb.net 在 Web 浏览器中从 richtextbox 搜索词

Question

这是我的问题我有一个textbox1，和两个richtextbox。我想在文本框中搜索包含在我的文本框 1 中的单词。在我的 richtextbox 中，我有 600 个单词，一行一行。在第二部分中，如果 textbox1 包含 richtextbox1 中包含的单词，我想在我的 richtextbox2 中显示这些单词。

这是我的（菜鸟）代码：

  Public Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If TextBox1.Text.Contains(RichTextBox1.Text) Then
            richtextbox2.text = (words found)
        End If
    End Sub

但似乎条件始终为真。它不起作用... 有人可以帮我吗

此致

Answer 1

拆分TextBox1 中的每个单词，看看RichTextBox1 是否包含它。如果是这样，将其添加到列表并将该列表添加到 RichTextBox2。

    RichTextBox2.Text = String.Empty

    Dim lstMatches As New List(Of String)()

    TextBox1.Text.Split(" ").ToList().ForEach(Sub(strWord)
                                                If RichTextBox1.Text.Contains(strWord) Then
                                                    lstMatches.Add(strWord)
                                                End If
                                              End Sub)

    lstMatches.ForEach(Sub(strMatch)
                           RichTextBox2.Text += strMatch & " "
                       End Sub)

    'A way to trim that last space if necessary.
    RichTextBox2.Text = RichTextBox2.Text.Trim()

vb.net 在 Web 浏览器中从 richtextbox 搜索词

vb.net search words in webbrowser from richtextbox

vb.net

search

richtextbox