Question

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

这是我的（noob）代码：

  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从richtextbox搜索webbrowser中的单词

1 个答案: