VB.NET2003 DataSet导出到CSV代码

最新推荐文章于 2023-11-16 10:46:11 发布

原创最新推荐文章于 2023-11-16 10:46:11 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dataset #vb.net #csv #each #function #integer

本文介绍了一个VB.NET函数，用于将数据集的内容输出为CSV文件格式。该函数通过遍历数据集中的表格和行来构建CSV内容，并考虑了列标题及各单元格之间的逗号分隔。

    Public Function OutPutCSV(ByVal FileName As String, ByVal DataTable As DataSet, Optional ByVal TableIndex As Integer = 0) As Boolean
        Dim fw As StreamWriter
        Dim myRow As DataRow
        Dim myCol As DataColumn
        Try
            fw = New StreamWriter(FileName, True)
            For Each myCol In DataTable.Tables(TableIndex).Columns
                If myCol Is DataTable.Tables(TableIndex).Columns(DataTable.Tables(TableIndex).Columns.Count - 1) Then
                    fw.WriteLine(myCol.Caption)
                Else
                    fw.Write(myCol.Caption)
                    fw.Write(",")
                End If
            Next myCol
            For Each myRow In DataTable.Tables(TableIndex).Rows
                For Each myCol In DataTable.Tables(TableIndex).Columns
                    If myCol Is DataTable.Tables(TableIndex).Columns(DataTable.Tables(TableIndex).Columns.Count - 1) Then
                        fw.WriteLine(myRow(myCol))
                    Else
                        fw.Write(myRow(myCol))
                        fw.Write(",")
                    End If
                Next myCol
            Next myRow
            Return True
        Catch e As Exception
            MessageBox.Show(e.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        Finally
            fw.Close()
        End Try
    End Function