har en fil med namn och resultat åtskilda med kommatecken.
Texten ska skrivas i listboxen.
Detta går inte, men varför ?

Här är koden:
------------------*----------------
Private Sub cmdHämta_Click()
Dim Namn As String
Dim Resultat As Integer

Open App.Path + "\resultat.txt" For Input As #1
Do Until EOF(1)
Input #1, Namn, Resultat
lstResultat.AddItem Namn, Resultat
Loop
Close #1

End Sub
-----------------------*-------------------
//E

Här är lite kod du kan testa

<code>
Private Sub cmdHämta_Click()
Dim Namn, Resultat As String
Dim Filnr, Mellanslag As Integer
Filnr = FreeFile

lstResultat.Clear
lstResultat.FontName = "Courier"

Open App.Path + "\resultat.txt" For Input As #Filnr
Do Until EOF(Filnr)
Input #Filnr, Namn, Resultat
Mellanslag = 15 - Len(Namn)
lstResultat.AddItem Namn & Space$(Mellanslag) & Resultat
Loop
Close #Filnr

End Sub
</code>

Funkar fint.
Tackar
//E

Hej
Konstigt att det funkade , tycker att det borde stå
Do Until EOF(Filnr)
Line Input #Filnr, Namn, Resultat
Mellanslag = 15 - Len(Namn)
lstResultat.AddItem Namn & Space$(Mellanslag) & Resultat
Loop

Dvs Line Input istället för bara Input
/Sven

det fattades bara &-tecken istället för , (kommatecken) från koden jag skrev dvs.
lstResultat.AddItem Namn & Resultat
(men det funkar också med line input)

//E