Udskrive til fil

Jeg ved ikke lige hvad du mener, men her er 3 løsningsforslag:
1/ Gemmer saldo sammen med hver transid
Private Sub Command1_Click()
Open "e:\test.txt" For Output As #1
For transaktionid = 1 To AntalTransaktioner
Print #1, Transaktion(transaktionid), saldo
Next
Close
End Sub
2/
Gemmer saldo først og henter derefter alle transid
Private Sub Command1_Click()
Open "e:\test.txt" For Output As #1
print #1, saldo
For transaktionid = 1 To AntalTransaktioner
Print #1, Transaktion(transaktionid)
Next
Close

Når du så åbner filen igen, skal du blot lige vende den om :o)
3/Man kan selvfølgelig også bare lave en fil kun til det.

- Mikker

>Hej, Mikker - kan du ikke lige vise det. Jeg får desværre altid nervøse trækninger når der er nogen der siger "bare lige":o)

Tak for hjælpen.

Fik du det til at virke? Tror det i virkeligheden er bedre med write #:

Private Sub Command1_Click()
Open "e:\test.txt" For Output As #1
saldo = 200
Write #1, saldo
For i = 1 To 2
Write #1, "DATA"
Next
Close
End Sub

Hmmm nu har du jo lukket det andet spørgsmål så.... Her henter du den igen:

Private Sub Command2_Click()
Open "e:\test.txt" For Input As #1
saldo = 200
Input #1, saldo
List1.AddItem saldo
For i = 1 To 2
Input #1, streng$
List1.AddItem streng$
Next
Close
End Sub

Tak for point, selvom jeg jo ikke ved om du fik det til at virke...

- Mikker