Jag försöker att använda mig av tipset med Hi-Scoor-listan.
Blir dock inte riktigt bra, jag får bara ett namn med.

Vad jag skulle vilja ha är att oavset hur många namn som finns, så ville jag bara ha med de fem bästa, möjligt???
så här försöker jag.
Spara Hi-Scoor
<code>
Open App.Path & "\Lista\scoor.txt" For Output As #1
Write #1, dDatum, sNamn, Mult, sSpeed, Poäng
Close #1
</code>
Och jag läser in så här:
<code>
On Error GoTo errhandler:
Open App.Path & "\Lista\scoor.txt" For Input As #1
Do While Not EOF(1)
Input #1, dDatum, sNamn, Mult, sSpeed, Poäng
scoore.Text = dDatum & vbTab & sNamn & vbTab & Mult & vbTab & sSpeed & vbTab & Poäng
Loop
Close #1
errhandler:
Exit Sub
</code>
Hur bör jag modifiera coden så att;
1 jag får med mer än ett namn?
2 bara de fem bästa skall skrivas ut?

Tacksam för all hjälp

<code>
scoore.text = ""
dim i as long
On Error GoTo errhandler:
Open App.Path & "\Lista\scoor.txt" For Input As #1
i = 0
Do While Not (EOF(1) or i = 5)
Input #1, dDatum, sNamn, Mult, sSpeed, Poäng
scoore.Text = scoore.text & iif(scoore.text = "","", vbcrlf) & dDatum & vbTab & sNamn & vbTab & Mult & vbTab & sSpeed & vbTab & Poäng
i = i + 1
Loop
Close #1
errhandler:
Exit Sub
</code>

Tack Onkelborg, den biten fungerar nu, men jag har problem med min första kod, där jag skall spara resultatet.
Som det nu är, så skriver han över det gammla.

Hej...

Testa:
Open App.Path & "\Lista\scoor.txt" For Append As #1


//fredda