将 DataGridView 写入 csv 处理值中的逗号

Question

我有一些来自这里的代码：DataGridView to CSV File 这是循环 DataGridView 数据（来自 Web 服务的源）以写入 csv。但是，我无法弄清楚如何处理包含逗号的变量。我知道应该对它们进行评论，但不确定如何将其用于现有循环。

写入还必须能够处理空和布尔字段。这就是为什么我一直在努力适应其他地方的代码。一如既往地感谢您的帮助。现有代码如下。

    Dim headers = (From header As DataGridViewColumn In DataGridView1.Columns.Cast(Of DataGridViewColumn)() _
          Select header.HeaderText).ToArray
    Dim rows = From row As DataGridViewRow In DataGridView1.Rows.Cast(Of DataGridViewRow)() _
               Where Not row.IsNewRow _
               Select Array.ConvertAll(row.Cells.Cast(Of DataGridViewCell).ToArray, Function(c) If(c.Value IsNot Nothing, c.Value.ToString, """"))
    Using sw As New IO.StreamWriter("csv.txt")
        sw.WriteLine(String.Join(",", headers))
        For Each r In rows
            sw.WriteLine(String.Join(",", r))
        Next
    End Using
    Process.Start("csv.txt")

我无法更改分隔符，因为这会影响文件的后续自动使用。 （输出必须是 csv）。

Answer 1

您只需将至少包含逗号的值包含在双引号中。任何用于读取 CSV 文件的适当例程都应将任何用双引号括起来的值作为单个值读取，无论它是否包含逗号。以这种方式正确读取 CSV 文件的一个示例是 VB TextFieldParser 类。考虑到这一点，改变这个：

sw.WriteLine(String.Join(",", r))

到这里：

sw.WriteLine("""" & String.Join(""",""", r) & """")

或者，如果转义的引号看起来令人困惑，那么：

sw.WriteLine(ControlChars.Quote & String.Join(ControlChars.Quote & "," & ControlChars.Quote, r) & ControlChars.Quote)

我还应该提到，就像在 VB 文字中一样，双引号需要在 CSV 文件中的带引号的字符串中进行转义。考虑到这一点，如果您的值有可能包含双引号，那么您应该这样做：

sw.WriteLine("""" & String.Join(""",""", r.Select(Function(s) s.Replace("""", """"""))) & """")

顺便说一句，要查看所有这些操作，您只需在 Windows 资源管理器中创建一个空白 CSV 文件，在 Excel 中打开它，输入一些包含逗号和/或双引号的数据，然后保存并保存然后在记事本中打开它。您会看到任何包含逗号或双引号的值都用双引号括起来，并且值中的任何双引号都用另一个双引号转义。在您的情况下，您可以像这样有选择性，但将所有内容用双引号括起来会更容易。这样做除了会增加文件的大小之外没有任何不良影响。

Answer 2

这不是一个简单的问题。一个好的开始是这个链接，它与你会发现的 CSV 规范差不多：http://www.creativyst.com/Doc/Articles/CSV/CSV01.htm

最好使用DataTable 设置数据，然后与DataGridView.DataSource = MyDataTable 绑定。

IS 内置支持将 DataTable 导出为 XML - DataTable.WriteXml，这可能会满足您的需求。

祝你好运！