IBM Lotus Symphony
|
Returnerer det næste ledige filnummer til åbning af en fil. Funktionen bruges til at åbne en fil ved hjælp af et filnummer, som ikke allerede bruges af en åben fil.
FreeFile
Heltal
Funktionen kan kun bruges lige foran en Open-sætning. FreeFile returnerer det næste ledige filnummer, men reserverer ikke nummeret.
Sub ArbejdMedEnFilEksempel
Dim iNummer As Integer
Dim sLinje As String
Dim aFil As String
Dim sMeddl as String
aFil = "c:\data.txt"
sMeddl = ""
iNummer = Freefile
Open aFil For Output As #iNummer
Print #iNummer, "Første linje tekst"
Print #iNummer, "Anden linje tekst"
Close #iNummer
iNummer = Freefile
Open aFil For Input As #iNummer
While not eof(#iNummer)
Line Input #iNummer, sLinje
If sLinje <>"" then
sMeddl = sMeddl & sLinje & chr(13)
End If
wend
Close #iNummer
Msgbox sMeddl
End Sub