Convert CSV File To DataTable

Converts the contents of a CSV file into a DataTable.

This function reads the entire file content as a string and delegates the parsing logic to ConvertCsvString2DataTable, passing along the separators. The DequoteString parameter is present but not applied directly in this function.

    Public Function ConvertCsvFileToDataTable(FileName As String,
                                          Optional RecordSeparator As String = vbCrLf,
                                          Optional FieldSeparator As String = ";",
                                          Optional Delimiter As String = """",
                                          Optional DequoteString As Boolean = False) As Data.DataTable
        Dim dt As Data.DataTable
        If Not File.Exists(FileName) Then Return Nothing

        Dim FileContent As String = File.ReadAllText(FileName)
        dt = ConvertCsvString2DataTable(FileContent, RecordSeparator, FieldSeparator)

        Return dt
    End Function

    Public Function ConvertCsvFileToDataTable(FileName As String,
                                          Optional RecordSeparator As String = vbCrLf,
                                          Optional FieldSeparator As String = ";",
                                          Optional Delimiter As String = """",
                                          Optional DequoteString As Boolean = False) As Data.DataTable
        Dim dt As Data.DataTable
        If Not File.Exists(FileName) Then Return Nothing

        Dim FileContent As String = File.ReadAllText(FileName)
        dt = ConvertCsvString2DataTable(FileContent, RecordSeparator, FieldSeparator)

        Return dt
    End Function

Posted by ipercube