vb.net - 背景色のない文字列をリッチテキストボックスから削除

Question

背景色のないすべてのテキストを削除する必要がありますが、行を削除する前と同じ行に市場の単語を保持したいと思います。テキストの例は次のとおりです。

印刷画面

Answer 1

1 つのハックな方法は、逆方向に進み、各文字を 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

これは非常に不安定な場合があります。その場合は、コードで新しい RichTextBox コントロールを作成し、コンテンツを転送して、そこで作業を行ってください。次に、結果を既存の RichTextBox コントロールに戻します。