Read File .txt separated by comma

There is usually a problem with the files separated by commas , and it is a format that is not standardized, and different people (and systems) assume different things in the details.

In the words of the article Comma-separated values of the Wikipedia in English , freely translated:

  

The CSV file format is not standardized. The basic idea of separating fields with a comma is clear, but that idea is complicated when the data of the fields in turn contain commas or, even, line terminations.

     

Different CSV implementations may not support such data in the fields, or they may use quotes to enclose a field. Quotation marks do not solve everything: Some fields may also contain quotes, so certain CSV implementations might include characters or escape sequences.

In general my recommendation is to make a robust implementation in any system, which in the future will save you blushes and headaches. Fortunately, you do not have to write the code that takes care of the details.

Can you base yourself, for example, on the class TextFieldParser

A small example of use could be:

Using MyReader As New Microsoft.VisualBasic.FileIO.
    TextFieldParser("c:\logs\bigfile")

    MyReader.TextFieldType = 
        Microsoft.VisualBasic.FileIO.FieldType.Delimited
    MyReader.Delimiters = New String() {","}
    MyReader.CommentTokens = New String() {""}
    MyReader.HasFieldsEnclosedInQuotes = True
    Dim currentRow As String()
    'Loop through all of the fields in the file. 
    'If any lines are corrupt, report an error and continue parsing. 
    While Not MyReader.EndOfData
        Try
            currentRow = MyReader.ReadFields()

            Dim newRow = dTable.Rows.Add()
            newRow.ItemArray = currentRow

        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message & 
            " is invalid.  Skipping")
        End Try
    End While
End Using

You can find an example in the documentation , and it is important to know that by convention a file .CSV (Comma separated value) must have this structure to be considered as such:

a, Elenasys , 12345
b, Ronnie, 12345
c, Doru, 534543
d, Hassan, 6234234
e, Haris K., 78345345

This would be an example of how to convert the values obtained from a .csv to DataTable

    Dim lines = IO.File.ReadAllLines("C:\path\archivo.csv")
    Dim dTable = New DataTable
    Dim numeroColumnas = lines.First.Split(","c).Length
    For i As Int32 = 1 To numeroColumnas
        'Agrega columnas a DataTable.
        dTable.Columns.Add(New DataColumn("Columna_" & i, GetType(String)))
        Debug.Print("Columna_" & i)
    Next

    '**********************
    For Each line In lines
        Dim objFields = From field In line.Split(","c)
        Dim newRow = dTable.Rows.Add()
        newRow.ItemArray = objFields.ToArray()
        Debug.Print("columna_1: " & objFields.ToArray().GetValue(0).ToString)
        Debug.Print("columna_2: " & objFields.ToArray().GetValue(1).ToString)
        Debug.Print("columna_3: " & objFields.ToArray().GetValue(2).ToString)
    Next

    Debug.Print("finaliza!")