Privat Sub form_load()
Open App.Path + "\Tabelle.txt" For Input As #1 'datei öffnen
 
Do While Not EOF(1) ' Auf Dateiende abfragen.
'DoEvents 'rechenzeit abgeben
 
MSFlexGrid1.RowHeight(zähler) = 350 'Gibt die Höhe der angegebenen Zeile 
' inTwips zurück oder legt sie fest.
 
MSFlexGrid1.Col = 0  'gibt die aktuelle spalte an
MSFlexGrid1.Row = zähler 'gibt die zellen an
Line Input #1, Platz 'liest eine ganze zeile
 
MSFlexGrid1.Text = Platz 'in das grid schreiben
 
MSFlexGrid1.Col = 1  'gibt die aktuelle spalte an
Line Input #1, Mannschaft
MSFlexGrid1.Text = Mannschaft
 
MSFlexGrid1.Col = 2  'gibt die aktuelle spalte an
Line Input #1, Spiele
MSFlexGrid1.Text = Spiele
 
MSFlexGrid1.Col = 3  'gibt die aktuelle spalte an
Line Input #1, s
MSFlexGrid1.Text = s
 
MSFlexGrid1.Col = 4  'gibt die aktuelle spalte an
Line Input #1, U
MSFlexGrid1.Text = U
 
MSFlexGrid1.Col = 5  'gibt die aktuelle spalte an
Line Input #1, N
MSFlexGrid1.Text = N
 
MSFlexGrid1.Col = 6  'gibt die aktuelle spalte an
Line Input #1, Tore1
MSFlexGrid1.Text = Tore1
 
MSFlexGrid1.Col = 7  'gibt die aktuelle spalte an
Line Input #1, Tore2
MSFlexGrid1.Text = Tore2
 
MSFlexGrid1.Col = 8  'gibt die aktuelle spalte an
Line Input #1, Diff
MSFlexGrid1.Text = Diff
 
MSFlexGrid1.Col = 9  'gibt die aktuelle spalte an
Line Input #1, Pkt
MSFlexGrid1.Text = Pkt
 
Line Input #1, Leerzeile
zähler = zähler + 1 'ist für die Zelle erforderlich
Loop
 
Open App.Path + "\Tabelle.txt"
End Sub