vb.net - RichTextBox - 删除最后一个字符而不删除格式

Question

目标

我正在尝试从我的 RichTextBox 中删除最后一个逗号和空格。

当前结果

这是我的 RichTextBox 的结果。它包含各种不同的类别，这些类别以不同的颜色划分，以便于用户阅读。

但是，如您所见:Solenoid Valve 之后有一个逗号和一个空格(空格不可见)

---

尝试解决问题

我使用以下代码修剪 RichTextBox 中的最后一个逗号和最后一个空格。

If rtbSummary.Text.Substring(rtbSummary.TextLength - 2, 2).Contains(", ") Then
    rtbSummary.Text = rtbSummary.Text.Remove(rtbSummary.TextLength - 2, 2)
End If

请记住，这是可行的。唯一的问题是我丢失了格式:

---

那么我怎样才能在不影响颜色格式的情况下从 RichTextBox 中删除最后一个逗号和空格呢？

我的 RichTextBox 中出现逗号和空格的原因是我循环对象列表以填充 RichTextbox 的方式。如果我要验证是否有其他项目来放置逗号，我会循环遍历很多东西。我认为仅修剪会比嵌套循环消耗更少的资源。

Answer 1

替换 Text 属性会删除现有文本的所有格式。尝试使用选择方法来改变它:

Dim lastComma As Integer = rtb.Text.LastIndexOf(",")
If lastComma > -1 Then
  rtb.Select(lastComma, rtb.Text.Length - lastComma)
  rtb.SelectedText = String.Empty
End If