Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/search/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
vb.net从richtextbox在webbrowser中搜索单词_Vb.net_Search_Richtextbox - Fatal编程技术网

vb.net从richtextbox在webbrowser中搜索单词

vb.net从richtextbox在webbrowser中搜索单词,vb.net,search,richtextbox,Vb.net,Search,Richtextbox,这是我的问题 我有一个文本框1和两个文本框。 我想在文本框中搜索我的文本框1中包含的单词。 在我的richtextbox中,我有600个单词,一行一行。 在第二部分中,如果textbox1包含richtextbox1中包含的单词,我希望在richtextbox2中显示这些单词 这是我的(noob)代码: 但事实证明,这种情况总是正确的。它不起作用。。。 有人能帮我吗 致以最诚挚的问候将每个单词拆分到TextBox1中,然后查看RichTextBox1是否包含它。如果是,将其添加到列表中,并将该列

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

这是我的(noob)代码:

但事实证明,这种情况总是正确的。它不起作用。。。 有人能帮我吗


致以最诚挚的问候

将每个单词拆分到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()

难道不是相反吗?RichTextBox1.Text.Contains(TextBox1.Text)@NoAlias不,这是个好方法。。。我想检查textbox1是否包含用RichTextBox1书写的单词感谢您的回答。
    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()