VBA - Split CSV-Datei in mehrdimensionales Array

Question

Ich habe eine CSV, die in folgendem Format ist:

[TestHeader] FIELDS, "Sprache", "LC_NUMERIC", "Zellennamen", "Testtype", REPORTER " TITLE, STARTDATE, STARTTIME, ENDDATE, DATENDYPE, Text (80), Text (80), Text (64), Text (80) , "Text (80)", "Text (80)", "Text (12)", "Text (20)", "Text (12)", "Text (20)"

Ich möchte Legen Sie diese Daten in ein mehrdimensionales Array, das als ob es in einem Blatt war. Wo die Zellen leer sind, wäre es auch in dem Array leer.

Ich versuche, das folgende zu verwenden, aber es legt nur die Daten in ein 1D-Array, das für das, was ich brauche, nicht geeignet ist.

Dim Delimiter As String 
Dim TextFile As Integer 
Dim FilePath As String 
Dim FileContent As String 
Dim LineArray() As String 
Dim DataArray() As String 

'Inputs 
    Delimiter = "," 
    FilePath = emiFilePath 

'Open the text file in a Read State 
    TextFile = FreeFile 
    Open FilePath For Input As TextFile 

'Store file content inside a variable 
    FileContent = Input(LOF(TextFile), TextFile) 

'Close Text File 
    Close TextFile 

'Separate Out lines of data 
    LineArray() = Split(FileContent, Delimiter, -1, vbTextCompare) 

'Read Data into an Array Variable 
     'Re-Adjust Array boundaries 
     ReDim Preserve DataArray(UBound(LineArray)) 
' 
     'Load line of data into Array variable 
     For y = LBound(LineArray) To UBound(LineArray) 
      DataArray(y) = Replace(LineArray(y), Chr(34), vbNullString) 
     Next y 

Answer 1

Wenn Sie den Code ein:

'Separate Out lines of data 
    LineArray() = Split(FileContent, Delimiter, -1, vbTextCompare) 

Sie sind nicht Zeilen, sondern Felder getrennt durch Trennzeichen ""

Trennung Wenn Ihr cvs im Windows-Stil Zeilenende verwenden, zuerst Ihre Daten geteilt auf vbCrLf.

Function mySplit(ByVal emiFilePath As String) As Variant() 
    Dim Delimiter As String 
    Dim TextFile As Integer 
    Dim FilePath As String 
    Dim FileContent As String 
    Dim LineArray() As String 
    Dim DataArray() As Variant 
    'Inputs 
    Delimiter = "," 
    FilePath = emiFilePath 

    'Open the text file in a Read State 
    TextFile = FreeFile 
    Open FilePath For Input As TextFile 

    'Store file content inside a variable 
    FileContent = Input(LOF(TextFile), TextFile) 

    'Close Text File 
    Close TextFile 

    'Separate Out lines of data 
    LineArray = Split(FileContent, vbCrLf, -1, vbTextCompare) 
    ReDim DataArray(LBound(LineArray) To UBound(LineArray)) 
    Dim i As Long 
    'Separate fields inside the lines 
    For i = LBound(LineArray) To UBound(LineArray) 
     DataArray(i) = Split(LineArray(i), Delimiter, -1, vbTextCompare) 
    Next i 
    mySplit = DataArray 
End Function 

Answer 2

Mit Hilfe von @Ralph und @VincentG

Dim Delimiter As String 
Dim TextFile As Integer 
Dim FilePath As String 
Dim FileContent As String 
Dim LineArray() As String 
Dim DataArray() As Variant 

'Inputs 
    Delimiter = "," 
    FilePath = emiFilePath 

'Open the text file in a Read State 
    TextFile = FreeFile 
    Open FilePath For Input As TextFile 

'Store file content inside a variable 
    FileContent = Input(LOF(TextFile), TextFile) 

'Close Text File 
    Close TextFile 

'Separate Out lines of data 
    LineArray() = Split(FileContent, vbLf, -1, vbTextCompare) 

'Read Data into an Array Variable 
     'Re-Adjust Array boundaries 
     ReDim Preserve DataArray(UBound(LineArray)) 
' 
     'Load line of data into Array, separate by commas and remove unwanted blank strings 
     For y = LBound(LineArray) To UBound(LineArray) 
      DataArray(y) = Split(Replace(LineArray(y), Chr(34), vbNullString), Delimiter) 
     Next y