如何在VB中实现长字符串按每5行插入分隔符的拆分规则

你现有代码只执行了一次取前4行+剩余行的拆分，所以只能实现一次分割。要实现全量文本每5行插入分隔符，可按以下修改：

修改后完整代码 #

' 先处理文本拆分，同时过滤空行避免计数错误
Dim rawLines As String() = RichTextBox1.Text.Split({vbCr, vbLf}, StringSplitOptions.RemoveEmptyEntries)
Dim lineJoinSeparator As String = ";" ' 你原来的行内容拼接分隔符
Dim splitInterval As Integer = 5 ' 每5行插入分隔符
Dim resultBuilder As New StringBuilder()

For i = 0 To rawLines.Length - 1 Step splitInterval
    ' 取当前分组的最多5行
    Dim currentGroup = rawLines.Skip(i).Take(splitInterval).ToArray()
    ' 拼接当前组的内容
    resultBuilder.AppendJoin(lineJoinSeparator, currentGroup)
    ' 不是最后一组的话，插入组间隔符
    If i + splitInterval < rawLines.Length Then
        ' 如果需要其他间隔符，替换vbNewLine为对应内容即可
        resultBuilder.Append(vbNewLine)
    End If
Next

RichTextBox2.Text = resultBuilder.ToString()

关键修改说明 #

• 拆分原文本时直接按换行符拆分，同时用StringSplitOptions.RemoveEmptyEntries过滤掉空行，避免换行替换引入的无效空元素干扰行计数
• 用步进为5的循环遍历所有行，批量处理每5行的分组，替代原来仅执行一次的Take+Skip操作
• 用StringBuilder拼接结果，处理1000行以上的大文本时性能比字符串直接拼接更高
• 增加最后一组判断，避免末尾多余插入空间隔符

内容的提问来源于stack exchange，提问作者Break Inside