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
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
- Private Sub ReadCSVFileToArray()
- Dim strfilename As String
- Dim num_rows As Long
- Dim num_cols As Long
- Dim x As Integer
- Dim y As Integer
- Dim strarray(1, 1) As String
- ' Load File
- strfilename = "C:\Daten\test.csv"
- 'Check if file exist
- If File.Exists(strfilename) Then
- Dim tmpstream As StreamReader = File.OpenText(strfilename)
- Dim strlines() As String
- Dim strline() As String
- ' Load content of file to strlines array
- strlines = tmpstream.ReadToEnd().Split(Environment.NewLine)
- ' Redimension the array.
- num_rows = UBound(strlines)
- strline = strlines(0).Split(",")
- num_cols = UBound(strline)
- ReDim strarray(num_rows, num_cols)
- ' Copy the data into the array.
- For x = 0 To num_rows
- strline = strlines(x).Split(",")
- For y = 0 To num_cols
- strarray(x, y) = strline(y)
- Next
- Next
- ' Display the data in textbox
- For x = 0 To num_rows
- For y = 0 To num_cols
- TextBox1.Text = TextBox1.Text & strarray(x, y) & ","
- Next
- TextBox1.Text = TextBox1.Text & Environment.NewLine
- Next
- End If
- End Sub