[vb.net] DataTable to CSV

    Private Function CSVBuilder(dt As DataTable, headers As List(Of String), columns As List(Of String)) As String

        Dim sCSV = New StringBuilder(String.Join(",", headers))

        sCSV.Append(Environment.NewLine)

 

        Dim view As New DataView(dt)

        Dim tDt As DataTable = view.ToTable(True, columns.ToArray)

 

        For Each row As DataRow In tDt.Rows

            '-- Handle comma

            sCSV.Append(String.Join(",", (From rw In row.ItemArray Select If(rw.ToString.Trim.Contains(","), String.Format("""{0}""", rw.ToString.Trim), rw.ToString.Trim))))

            sCSV.Append(Environment.NewLine)

        Next

 

        Return sCSV.ToString

    End Function