如何让DataGridView导出TXT时每行开头添加指定前缀文本？

嘿，我来帮你搞定这个问题！你现在遇到的情况是前缀只在第一行显示，核心原因肯定是你把前缀的写入逻辑放在了遍历行的循环外面，只执行了一次。咱们只需要把前缀的拼接逻辑移到每一行的处理过程里，就能让每一行都带上指定前缀啦。

关键修改思路 #

原来的代码应该是先写了一次前缀，再循环写入每行数据，导致只有第一行有前缀。正确的做法是：对DataGridView的每一行，都先拼接前缀，再把前缀+行数据的组合写入文件。

修改后的完整代码示例 #

If DataGridView1.RowCount = 0 Then
    MessageBox.Show("Lista este goala")
Else
    ' 检查目标目录，不存在则创建
    If Not Directory.Exists("C:\test") Then
        Directory.CreateDirectory("C:\test")
    End If
    Dim sFile As String = "C:\test\export.txt"
    ' 创建StreamWriter，覆盖已有文件（如果要追加的话把False改成True）
    Dim sw As New StreamWriter(sFile, False, Encoding.UTF8)
    
    ' 遍历DataGridView的每一行
    For Each row As DataGridViewRow In DataGridView1.Rows
        ' 跳过未编辑的新行（如果你的DataGridView允许添加新行的话）
        If Not row.IsNewRow Then
            ' 先拼接固定前缀
            Dim fullRowContent As String = "S,1,___ , , ;"
            
            ' 遍历当前行的所有单元格，拼接数据（分隔符可以根据你的需求调整）
            For Each cell As DataGridViewCell In row.Cells
                If cell.Value IsNot Nothing Then
                    fullRowContent &= cell.Value.ToString() & ";"
                Else
                    ' 单元格为空时，添加空分隔符避免格式错乱
                    fullRowContent &= ";"
                End If
            Next
            
            ' 将带前缀的整行写入文件
            sw.WriteLine(fullRowContent)
        End If
    Next
    
    ' 关闭文件流
    sw.Close()
    MessageBox.Show("Export complet!")
End If

需要注意的细节 #

1. 如果你的原有代码里有单独写入前缀的语句（比如sw.WriteLine("S,1,___ , , ;")），一定要删掉，不然第一行会出现重复前缀
2. 代码里的分隔符（;）可以根据你原来的导出格式调整，保持和之前一致就行
3. 跳过IsNewRow是为了避免导出DataGridView底部的空新增行，如果你不需要这个判断可以删掉

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