Изменить функцию для чтения файла с разделителями табуляции в datable?

Question

Мне нужно изменить функцию ниже, чтобы читать из файла с разделителями табуляции любые идеи, как это сделать?

Public Function ConvertCsvToDatatable(ByVal ColumnNames As Boolean) As DataTable 
    Try 
     Dim dt As New DataTable 
     For Each columnName In getColumns(ColumnNames) 
      dt.Columns.Add(columnName) 
     Next 
     Dim fileReader As New StreamReader(FileName) 
     If ColumnNames Then 
      fileReader.ReadLine() 
     End If 
     Dim line As String = fileReader.ReadLine 
     While Not IsNothing(line) 
      line = line.Replace(Chr(34), "") 
      dt.Rows.Add(line.Split(",")) 
      line = fileReader.ReadLine 
     End While 
     fileReader.Close() 
     Return dt 
    Catch ex As Exception 
     'log to file 
    End Try 
    Return Nothing 
End Function 

Answer 1

я бы, вероятно, заменить следующую строку:

dt.Rows.Add(line.Split(",")) 

С:

dt.Rows.Add(line.Split(vbTab)) 

Это должно разделить на вкладке разделителями значений ...

То есть, я бы очень рекомендую чтобы сделать это, поскольку SCV/TSV может быть довольно сложным. Мне нравится KBCsv.

Answer 2

Изменение line.Split(",") в line.Split(vbTab). Это позволит использовать символ табуляции в качестве разделителя вместо запятой.