Option Explicit
 
Private Sub cmdEintragen_Click()
 
Dim Spielername As String
Dim Punkte As Integer
 
Spielername = txtSpieler.Text
Punkte = txtPunkte.Text
 
List1.AddItem (Punkte & " - " & Spielername)
 
End Sub
 
Private Sub cmdSpeichern_Click()
 
Dim ff As Integer
Dim Datei As String
Dim Zeile As Integer
 
ff = FreeFile()
 
Datei = "d:\punktespeicher.txt"
 
Open Datei For Output As ff
For Zeile = 0 To List1.ListCount - 1
Print #ff, List1.List(Zeile)
Next
Close ff
 
End Sub
 
Private Sub Form_Load()
 
Dim ff As Integer
Dim Datei As String
Dim Zeile As Integer
Dim Zeileninhalt As String
 
ff = FreeFile()
 
Datei = "d:\punktespeicher.txt"
 
Open Datei For Input As ff
Do While Not EOF(ff)
Line Input #ff, Zeileninhalt
List1.AddItem (Zeileninhalt)
Loop
Close ff
 
 
End Sub

EALA FREYA FRESENA