從richtextbox的每一行中刪除前27個字符

Question

我將如何去除richtextbox中每行的前27個字符？

我已經試過

For Each i In RichTextBox1.Lines 
     i = RichTextBox1.Text.Remove(0, 27) 
    Next 

Answer 1

如果你想保留RichTextBox中格式化已經，那麼做這種方式：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    For i As Integer = 0 To RichTextBox1.Lines.Length - 1 
     Dim index As Integer = RichTextBox1.GetFirstCharIndexFromLine(i) 
     RichTextBox1.Select(index, Math.Min(27, RichTextBox1.Lines(i).Length)) 
     RichTextBox1.SelectedText = "" 
    Next i 
End Sub 

Answer 2

而是通過Lines財產迭代，並試圖單獨修改每一行，儘量分配Lines屬性的新數組是這樣的：

更新處理線少超過27個字符

RichTextBox1.Lines = RichTextBox1.Lines.Select(Function(line) If(line.Length >= 27, line.Remove(0, 27), line)).ToArray() 

而不是String.Remove()你也可以使用String.Substring()

RichTextBox1.Lines = RichTextBox1.Lines.Select(Function(line) If(line.Length >= 27, line.Substring(27), line)).ToArray()