從richtextbox中刪除沒有背景顏色的字符串

Question

我有一個richtextbox，裏面有一些文字，我從網頁中獲得。我需​​要刪除所有沒有背景顏色的文本，但我也想將市場文字保留在同一行中在刪除行之前。這裏是文字的例子：

Print screen

Answer 1

一個哈克的方式是去反，檢查每一個字符一個接一個。

For i As Integer = RichTextBox1.TextLength - 1 To 0 Step -1 
    RichTextBox1.Select(i, 1) 
    If Not (RichTextBox1.SelectedText = Chr(10) Or _ 
      RichTextBox1.SelectedText = Chr(13)) Then 
    If RichTextBox1.SelectionBackColor.R = 255 AndAlso _ 
     RichTextBox1.SelectionBackColor.G = 255 AndAlso _ 
     RichTextBox1.SelectionBackColor.B = 255 Then 
     RichTextBox1.SelectedText = String.Empty 
    End If 
    End If 
Next 

這可以說是相當flicky，在這種情況下，嘗試在代碼中創建一個新的RichTextBox控件，傳遞的內容，並做好了那裏。然後將結果傳回給您現有的RichTextBox控件。