如何从vb.net中仅在DataGridView中导出CSV？

Question

我正在研究刮擦程序，从datagridview生成/导出到CSV文件后，我程序的下一步是从我的程序中开始的。我已经制作了以下保存代码，但我只想导出一个可见的列。我怎么能喜欢？

Private Sub CmdCSV_Click(sender As Object, e As EventArgs) Handles CmdCSV.Click
        Dim sfd As New SaveFileDialog()
        sfd.FileName = "export-csv"
        sfd.Filter = "CSV File | *.csv"

        If sfd.ShowDialog() = DialogResult.OK Then
            Using sw As StreamWriter = File.CreateText(sfd.FileName)
                Dim dgvColumnNames As List(Of String) = DataGridView1.Columns.Cast(Of DataGridViewColumn).ToList().Select(Function(c) c.Name).ToList()

                sw.WriteLine(String.Join(";", dgvColumnNames))

                For Each row As DataGridViewRow In DataGridView1.Rows
                    Dim rowData As New List(Of String)

                    For Each column As DataGridViewColumn In DataGridView1.Columns
                        rowData.Add(Convert.ToString(row.Cells(column.Name).Value))
                    Next
                    sw.WriteLine(String.Join(";", rowData))
                Next

            End Using
        End If
    End Sub

Answer 1

首先，在这里两次都没有点调用 TOLIST ：

Dim dgvColumnNames As List(Of String) = DataGridView1.Columns.Cast(Of DataGridViewColumn).ToList().Select(Function(c) c.Name).ToList()

您不需要通用 list 进行选择，因此请删除第一个 Tolist ：

Dim dgvColumnNames = DataGridView1.Columns.
                                   Cast(Of DataGridViewColumn).
                                   Select(Function(c) c.Name).
                                   ToList()

如果要过滤该列表以仅包含可见列，那就是您要做的。 其中方法是您的过滤方式：

Dim dgvColumnNames = DataGridView1.Columns.
                                   Cast(Of DataGridViewColumn).
                                   Where(Function(c) c.Visible).
                                   Select(Function(c) c.Name).
                                   ToList()

您还应该替换以下

Dim rowData As New List(Of String)

For Each column As DataGridViewColumn In DataGridView1.Columns
    rowData.Add(Convert.ToString(row.Cells(column.Name).Value))
Next

内容：

Dim rowData As New List(Of String)

For Each columnName In dgvColumnNames
    rowData.Add(Convert.ToString(row.Cells(columnName).Value))
Next

或者更简单地说：

Dim rowData = dgvColumnNames.Select(Function(s) row.Cells(columnName).Value.ToString()).ToList()

最后 tolist 也不需要，因为 string.join 接受 iEnumerable（String）。除非您实际需要一个，否则不要花更多的时间和精力将事物转换为通用列表。