如何解决将含数字与字符串的文本文件规整到DataGridView时的制表异常问题

你的问题核心在于拆分逻辑没处理连续空格和无关文本，导致拆分出大量空元素和非数字内容，进而让DataGridView的行数据混乱，后续的列删除逻辑也因为依赖特定行而容易出错。咱们直接换更精准的处理方式，一步到位拿到你需要的6列数字：

解决方案：用正则精准提取目标数字 #

因为你只需要每行XB=后面的6个数字，用正则表达式可以直接定位并提取这些数字，完全避开无关的空格、逗号和其他文本。

替换你原来的代码为下面这段：

Imports System.Text.RegularExpressions

' 先清空DataGridView避免重复添加
DataGridView1.Rows.Clear()
DataGridView1.Columns.Clear()
' 添加6列标题（可根据需求修改名称）
For i As Integer = 1 To 6
    DataGridView1.Columns.Add($"Col{i}", $"列{i}")
Next

For Each line In RichTextBox2.Lines
    Dim trimmedLine = line.Trim()
    If String.IsNullOrEmpty(trimmedLine) Then Continue For
    
    ' 正则匹配XB=后的6个数字，支持带小数点、前后空格的情况
    Dim match = Regex.Match(trimmedLine, "XB=\s*([\d.]+)\s*,\s*([\d.]+)\s*,\s*([\d.]+)\s*,\s*([\d.]+)\s*,\s*([\d.]+)\s*,\s*([\d.]+)")
    If match.Success Then
        ' 提取6个匹配到的数字
        Dim nums = New String() {
            match.Groups(1).Value,
            match.Groups(2).Value,
            match.Groups(3).Value,
            match.Groups(4).Value,
            match.Groups(5).Value,
            match.Groups(6).Value
        }
        DataGridView1.Rows.Add(nums)
    End If
Next

为什么原来的代码会出问题？ #

1. 拆分逻辑缺陷：Split(" "c, ","c)会把连续空格拆成多个空字符串，比如XB= 0.000会拆成XB=、""、0.000，导致item数组里混入大量无效元素，添加到DataGridView后列数混乱。
2. 列删除逻辑风险：你用DataGridView1.Rows(1)来判断列是否为数字，如果第一行没有正确加载（比如被跳过），会直接抛出索引越界异常，而且这种方式无法精准过滤掉XB=、SURF_ID这类无关文本。

额外优化建议 #

• 如果需要把数字转为数值类型（比如Double），可以在添加行前对每个nums元素做转换，避免DataGridView显示为字符串。
• 可以给DataGridView的列设置ValueType为GetType(Double)，让单元格自动识别数字格式。

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