如何在将DataGridView导出到文本文件时为各列添加指定前缀？

我正在开发一个项目，通过文本框填充DataGridView，数据包含Name、DOB、电话号码、地址等信息，随后将这些数据写入文本文件。

当前使用的代码如下：

ReportWriter.WriteLine("")

For Each currentrow As DataGridViewRow In Me.DataGridView1.Rows
For Each currentcolumn As DataGridViewCell In currentrow.Cells
    ReportWriter.Write(currentcolumn.Value & " ")
Next
ReportWriter.WriteLine()
Next

当前导出的文本格式为：

Fred 1/1/1111 1231231234 1234 lane

想要为每列的输出内容指定前缀文本（例如“Name:”），预期格式如下：

Name: fred DOB: 1/1/1111 Phone: 1231234567 
Address: 1234 lane

可以通过匹配DataGridView列的索引或列名给对应列的值添加前缀，以下提供两种实现方式：

方式一：按列索引匹配前缀（适合列顺序固定的场景） #

直接定义和列顺序对应的前缀数组，遍历单元格时按索引取对应前缀拼接内容：

' 定义各列前缀，顺序与DataGridView列顺序保持一致
Dim columnPrefixes As String() = {"Name: ", "DOB: ", "Phone: ", "Address: "}

ReportWriter.WriteLine("")

For Each currentrow As DataGridViewRow In Me.DataGridView1.Rows
    ' 跳过DataGridView自动生成的空行
    If currentrow.IsNewRow Then Continue For
    
    Dim rowContent As New StringBuilder()
    For colIndex As Integer = 0 To currentrow.Cells.Count - 1
        ' 处理单元格为空的情况，避免空引用错误
        Dim cellValue = If(currentrow.Cells(colIndex).Value Is DBNull.Value, "", currentrow.Cells(colIndex).Value.ToString())
        ' 拼接前缀和单元格值
        rowContent.Append(columnPrefixes(colIndex) & cellValue & " ")
    Next
    ' 移除末尾多余空格后写入文件
    ReportWriter.WriteLine(rowContent.ToString().TrimEnd())
Next

方式二：按列名匹配前缀（适合列顺序可能调整的场景） #

用字典映射列名和对应前缀，即使列顺序改变也能正确匹配：

' 字典存储列名与前缀的对应关系，需与DataGridView列的Name属性一致
Dim prefixMap As New Dictionary(Of String, String) From {
    {"colName", "Name: "},
    {"colDOB", "DOB: "},
    {"colPhone", "Phone: "},
    {"colAddress", "Address: "}
}

ReportWriter.WriteLine("")

For Each currentrow As DataGridViewRow In Me.DataGridView1.Rows
    If currentrow.IsNewRow Then Continue For
    
    Dim rowContent As New StringBuilder()
    For Each currentcolumn As DataGridViewCell In currentrow.Cells
        Dim colName = currentcolumn.OwningColumn.Name
        ' 仅处理字典中存在的列
        If prefixMap.ContainsKey(colName) Then
            Dim cellValue = If(currentcolumn.Value Is DBNull.Value, "", currentcolumn.Value.ToString())
            rowContent.Append(prefixMap(colName) & cellValue & " ")
        End If
    Next
    ReportWriter.WriteLine(rowContent.ToString().TrimEnd())
Next

关键说明 #

• 两种方式都加入了空行判断，避免写入DataGridView自动生成的空行；
• 处理了单元格值为空的情况，防止空引用异常；
• 使用StringBuilder拼接内容，比多次调用Write更高效；
• 最后移除末尾多余空格，保证输出格式整洁。

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