VB.NET（VS2012）如何导出列对齐的每行5词制表符分隔TXT文件

VB中Print方法搭配TAB标记的跳转逻辑是相对定位：只会从当前输出位置往后找第一个预设的固定制表位（默认每8个字符为间隔），不会锚定固定的列位置。只要某一列的单词长度超过了当前制表位边界，后续所有列的位置都会整体向后偏移，最终导致整列歪斜。

放弃依赖内置TAB自动跳转的写法，手动计算列宽实现硬对齐：

• 预遍历ListBox中所有单词，按每行5个的排布规则归为5个列组，计算每个列组内的最长单词长度
• 每列采用左对齐方式，单词不足列宽的位置用空格填充，列与列之间保留固定间隔
• 计算整行总宽度，在行首补充固定数量的前导空格，实现整体居中效果

这种对齐方式不依赖编辑器的制表位设置，在任何文本编辑器打开都不会出现错位。

首先定义可调参数，方便后续调整排版：

' 排版参数，可根据实际需求修改
Const WordsPerLine As Integer = 5     ' 每行固定排布5个单词
Const ColumnSpace As Integer = 4       ' 列与列之间的间隔空格数
Const CenterLeading As Integer = 20    ' 整体内容的前导缩进，调整到匹配预期居中效果

' 第一步：预计算每列的最大单词长度
Dim colMaxLen(WordsPerLine - 1) As Integer
For idx As Integer = 0 To ListBox1.Items.Count - 1
    ' 计算当前单词所属的列索引
    Dim colIndex As Integer = idx Mod WordsPerLine
    Dim wordLength As Integer = ListBox1.Items(idx).ToString().Trim().Length
    ' 更新对应列的最大长度值
    If wordLength > colMaxLen(colIndex) Then
        colMaxLen(colIndex) = wordLength
    End If
Next

' 第二步：逐行拼接内容写入文件
Dim rowWordCount As Integer = 0
Dim currentWord As String = ""
Dim rowBuffer As New System.Text.StringBuilder()
For wordIdx As Integer = 0 To ListBox1.Items.Count - 1
    rowWordCount += 1
    currentWord = ListBox1.Items.Item(wordIdx).ToString().Trim()

    ' 获取当前单词所属列的索引，按列宽左对齐填充后追加到行内容
    Dim colIdx As Integer = wordIdx Mod WordsPerLine
    rowBuffer.Append(currentWord.PadRight(colMaxLen(colIdx) + ColumnSpace))

    ' 凑满一行的单词数量就写入文件
    If rowWordCount = WordsPerLine Then
        ' 加前导空格实现居中，去掉行尾多余空格后换行
        Print(FileNum, Space(CenterLeading) & rowBuffer.ToString().TrimEnd() & vbNewLine)
        ' 重置行缓存和计数
        rowBuffer.Clear()
        rowWordCount = 0
    End If
Next

' 处理最后不足一行的剩余单词
If rowBuffer.Length > 0 Then
    Print(FileNum, Space(CenterLeading) & rowBuffer.ToString().TrimEnd() & vbNewLine)
End If

• 如果导出后列之间太挤，就调大ColumnSpace的值（比如改成6）
• 如果整体内容太靠左/太靠右，就调整CenterLeading的值，直到和预期的居中位置一致
• 代码兼容VS2012环境，不需要额外安装依赖
• 如果需要保留制表符的分隔结构（方便后续程序按列解析文本），可以把代码里列间的空格部分替换为vbTab，但这种情况下打开文件时的对齐效果会受编辑器的TAB宽度设置影响，稳定性不如全空格对齐

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