VB6: Stringvariable parsen

Computer: Software & Programmierung Visual Basic
7

Code
Hallo,

ich habe mir mal ein Beispiel gebaut, der Pfad ist jetzt meine Beispieldatei, dafür ist der Code jetzt getestet … und trotzden falsch. :smile: Ich habe den Code jetzt korrigiert.

Option Explicit

Dim Tabelle() As String
Dim c As Integer, r As Integer

Private Sub Command1\_Click()
 Dim i As Integer, j As Integer
 Lesen
 For i = 0 To r
 For j = 0 To c
 Me.Print Tabelle(i, j);
 Next
 Me.Print
 Next
End Sub

Private Sub Lesen()
 Dim Na As String, ff As Integer, i As Integer, Datei As String
 Dim Zeilen() As String, Felder() As String, s As Integer
 ff = FreeFile
 Na = "C:\Test.txt"
 Datei = Space(FileLen(Na))
 Open Na For Binary As #ff
 Get #ff, , Datei
 Close #ff
 Zeilen = Split(Datei, vbCrLf)
 ReDim Tabelle(UBound(Zeilen), 1)
 r = UBound(Zeilen)
 For i = LBound(Zeilen) To UBound(Zeilen)
 Felder = Split(Zeilen(i), ";")
 If UBound(Felder) \> c Then
 c = UBound(Felder)
 ReDim Preserve Tabelle(UBound(Zeilen), c)
 End If
 For s = 0 To UBound(Felder)
 Tabelle(i, s) = Felder(s)
 Next
 Next
End Sub

Gruß Rainer