如何删除vb.net不包含特定字词的Richtextbox行

Question

您好，我试图从HTML网页获取特定的单词，并试图通过加载HTML源代码到文本框然后过滤出来。

我现在正在使用这个至关重要的是我知道，但我怎么能融合在一起，它会检查两个单词在1循环？

Dim Filter1 = "filterword1" 
    Dim Filter2 = "filterword2" 


    TextBox1.Text = WebBrowser1.DocumentText 
    TextBox2.Text = WebBrowser1.DocumentText 

    Dim lines As New List(Of String) 
    lines = TextBox1.Lines.ToList 
    For i As Integer = lines.Count - 1 To 0 Step -1 
     If Not Regex.IsMatch(lines(i), Filter1) Then 
      lines.RemoveAt(i) 
     End If 
    Next 

    TextBox1.Lines = lines.ToArray 


    Dim lines1 As New List(Of String) 
    lines1 = TextBox3.Lines.ToList 
    For i As Integer = lines1.Count - 1 To 0 Step -1 
     If Not Regex.IsMatch(lines1(i), Filter2) Then 
      lines1.RemoveAt(i) 
     End If 
    Next 

    TextBox1.Lines = lines1.ToArray 

Answer 1

我得到它的工作：

Const filter = "(Filterword1)|(Filterword2)|(Filterword3)|(Filterword4)" 
    Dim lines As New List(Of String) 
     lines = TextBox2.Lines.ToList 
     For i As Integer = lines.Count - 1 To 0 Step -1 
      If Not Regex.IsMatch(lines(i), filter) Then 
       lines.RemoveAt(i) 
      End If 
     Next