CSV in Array einlesen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    CSV in Array einlesen

    Hallo zusammen,

    ich möchte eine CSV Datei von Visual Basic 2010 einlesen lassen, dazu habe ich folgenden Code.

    Leider habe ich das Problem das folgende Fehlermeldung erscheint:

    Eine Ausnahme (erste Chance) des Typs "System.IndexOutOfRangeException" ist in WindowsApplication1.exe aufgetreten.

    Und zwar in Zeile 33 - wo liegt hier der Fehler, steige gerade nicht durch :(

    VB.NET-Quellcode

    1. Private Sub ReadCSVFileToArray()
    2. Dim strfilename As String
    3. Dim num_rows As Long
    4. Dim num_cols As Long
    5. Dim x As Integer
    6. Dim y As Integer
    7. Dim strarray(1, 1) As String
    9. ' Load File
    10. strfilename = "C:\Daten\test.csv"
    13. 'Check if file exist
    14. If File.Exists(strfilename) Then
    15. Dim tmpstream As StreamReader = File.OpenText(strfilename)
    16. Dim strlines() As String
    17. Dim strline() As String
    20. ' Load content of file to strlines array
    21. strlines = tmpstream.ReadToEnd().Split(Environment.NewLine)
    23. ' Redimension the array.
    24. num_rows = UBound(strlines)
    25. strline = strlines(0).Split(",")
    26. num_cols = UBound(strline)
    27. ReDim strarray(num_rows, num_cols)
    29. ' Copy the data into the array.
    30. For x = 0 To num_rows
    31. strline = strlines(x).Split(",")
    32. For y = 0 To num_cols
    33. strarray(x, y) = strline(y)
    34. Next
    35. Next
    37. ' Display the data in textbox
    38. For x = 0 To num_rows
    39. For y = 0 To num_cols
    40. TextBox1.Text = TextBox1.Text & strarray(x, y) & ","
    41. Next
    42. TextBox1.Text = TextBox1.Text & Environment.NewLine
    43. Next
    45. End If
    46. End Sub

    ungetestet, sollte aber die Lösung sein...
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ReadCSVFileToArray()
    2. Dim strfilename As String
    3. Dim num_rows As Long
    4. Dim num_cols As Long
    5. Dim x As Integer
    6. Dim y As Integer
    7. Dim strarray(1, 1) As String
    9. ' Load File
    10. strfilename = "C:\Daten\test.csv"
    13. 'Check if file exist
    14. If File.Exists(strfilename) Then
    15. Dim tmpstream As StreamReader = File.OpenText(strfilename)
    16. Dim strlines() As String
    17. Dim strline() As String
    20. ' Load content of file to strlines array
    21. strlines = tmpstream.ReadToEnd().Split(Environment.NewLine)
    23. ' Redimension the array.
    24. num_rows = UBound(strlines)
    25. strline = strlines(0).Split(",")
    26. num_cols = UBound(strline)
    27. ReDim strarray(num_rows, num_cols)
    29. ' Copy the data into the array.
    30. For x = 0 To num_rows-1
    31. strline = strlines(x).Split(",")
    32. For y = 0 To num_cols-1
    33. strarray(x, y) = strline(y)
    34. Next
    35. Next
    37. ' Display the data in textbox
    38. For x = 0 To num_rows-1
    39. For y = 0 To num_cols-1
    40. TextBox1.Text = TextBox1.Text & strarray(x, y) & ","
    41. Next
    42. TextBox1.Text = TextBox1.Text & Environment.NewLine
    43. Next
    45. End If
    46. End Sub

Facebook
Telefonspende