VB.NET导入DAT文件到DataGridView列异常及IN/OUT转换需求解决

问题概述 #

• DAT文件导入后所有数据仅显示在一列中
• 需要将IN/OUT列的0转换为显示IN，1转换为显示OUT

当前使用代码 #

' 假设用户当前代码类似如下
Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
    Dim openFileDialog1 As New OpenFileDialog()
    openFileDialog1.Filter = "DAT Files (*.dat)|*.dat|All Files (*.*)|*.*"
    If openFileDialog1.ShowDialog() = DialogResult.OK Then
        Dim lines As String() = File.ReadAllLines(openFileDialog1.FileName)
        Dim dt As New DataTable()
        ' 未正确添加列或分割数据
        dt.Columns.Add("Data")
        For Each line In lines
            dt.Rows.Add(line)
        Next
        DataGridView1.DataSource = dt
    End If
End Sub

DAT样本数据 #

假设DAT文件为逗号分隔格式，样本内容如下：

ID,Name,IN/OUT,Time
1,Alice,0,2024-05-20 09:00:00
2,Bob,1,2024-05-20 18:00:00
3,Charlie,0,2024-05-21 08:30:00

期望表格展示效果 #

问题排查 #

1. 数据全在一列的原因：当前代码未按DAT文件的分隔符分割每行数据，直接将整行作为单一列值添加到DataTable，导致所有内容挤在一列。
2. IN/OUT值未转换：未对该列的值进行映射转换，直接显示原始的0/1数值。

实现指导与修正代码 #

步骤说明 #

1. 解析DAT文件：根据文件的分隔符（逗号、制表符等）分割每行数据，创建对应列的DataTable。
2. 转换IN/OUT值：在添加行时对该列值进行判断转换，或通过DataGridView的CellFormatting事件动态转换显示内容。
3. 绑定数据到DataGridView：将处理好的DataTable绑定到控件，并设置自动列适配。

修正后的完整代码 #

Imports System.IO
Imports System.Data

Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
    Dim openFileDialog1 As New OpenFileDialog()
    openFileDialog1.Filter = "DAT Files (*.dat)|*.dat|All Files (*.*)|*.*"
    If openFileDialog1.ShowDialog() = DialogResult.OK Then
        Dim lines As String() = File.ReadAllLines(openFileDialog1.FileName)
        If lines.Length = 0 Then Exit Sub

        ' 1. 创建DataTable并添加列（假设第一行为表头）
        Dim dt As New DataTable()
        Dim headerColumns As String() = lines(0).Split(","c) ' 按逗号分割，若为制表符则用 vbTab
        For Each colName In headerColumns
            dt.Columns.Add(colName.Trim())
        Next

        ' 2. 处理数据行，转换IN/OUT值
        For i As Integer = 1 To lines.Length - 1
            Dim rowData As String() = lines(i).Split(","c)
            If rowData.Length = dt.Columns.Count Then
                ' 转换IN/OUT列的值
                If rowData(2) = "0" Then
                    rowData(2) = "IN"
                ElseIf rowData(2) = "1" Then
                    rowData(2) = "OUT"
                End If
                dt.Rows.Add(rowData)
            End If
        Next

        ' 3. 绑定到DataGridView并设置样式
        DataGridView1.DataSource = dt
        DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
        DataGridView1.Columns("Time").DefaultCellStyle.Format = "yyyy-MM-dd HH:mm:ss"
    End If
End Sub

' 可选：若需保留原始数值仅转换显示，使用CellFormatting事件
Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    ' 判断是否为IN/OUT列
    If DataGridView1.Columns(e.ColumnIndex).Name = "IN/OUT" Then
        If e.Value IsNot Nothing Then
            Select Case e.Value.ToString()
                Case "0"
                    e.Value = "IN"
                Case "1"
                    e.Value = "OUT"
            End Select
            e.FormattingApplied = True
        End If
    End If
End Sub

关键说明 #

• 分隔符适配：若你的DAT文件使用制表符或其他分隔符，将Split(","c)替换为Split(vbTab)或对应分隔符。
• 表头处理：假设DAT文件第一行为表头，若没有表头，需手动定义DataTable的列名。
• 两种转换方式：
  • 直接修改DataTable中的值：适合不需要保留原始0/1数值的场景。
  • 使用CellFormatting事件：仅修改显示内容，保留DataTable中的原始数值，适合后续需要基于原始值做逻辑处理的场景。

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