Ukoliko kreiras novi fajl:
Code:
Dim ff As Integer
Dim t As Integer
ff = Freefile()
Open "myfile.ext" For Output As #ff
Do While imastadaseupisuje ' Ovo ces zameniti nekim tvojim uslovom
t = t + 1
Print #ff, t, intP(1), intP(2), intP(3), intP(4), intP(5)
Loop
close #ff
Ukoliko hoces da Appendujes na vec postojeci onda:
Code:
Dim ff As Integer
Dim t As Integer
t = vrednostposlednjegupisa ' Ovo ces zameniti nekom tvojom promenljivom gde ce ti biti zabelezena vrednost promenjljive t od poslednjeg upisa
ff = Freefile()
Open "myfile.ext" For Append As #ff
Do While imastadaseupisuje ' Ovo ces zameniti nekim tvojim uslovom
t = t + 1
Print #ff, t, intP(1), intP(2), intP(3), intP(4), intP(5)
Loop
close #ff