IBM Lotus Symphony
|
Służy do zwracania następnego dostępnego numeru pliku używanego do otwierania pliku. Ta funkcja jest używana do otwierania pliku z użyciem numeru pliku, który nie jest używany przez żaden bieżący otwarty plik.
FreeFile
Liczba całkowita
Tej funkcji można użyć tylko bezpośrednio przed instrukcją Open. Funkcja FreeFile zwraca następny dostępny numer pliku, ale nie rezerwuje tego numeru.
Sub PrzykladPracyZPlikiem
Dim iNumer As Integer
Dim sWiersz As String
Dim aPlik As String
Dim sKom as String
aPlik = "c:\data.txt"
sKom = ""
iNumer = Freefile
Open aPlik For Output As #iNumer
Print #iNumer, "Pierwszy wiersz tekstu"
Print #iNumer, "Inny wiersz tekstu"
Close #iNumer
iNumer = Freefile
Open aPlik For Input As #iNumer
While not eof(iNumer)
Line Input #iNumer, sWiersz
If sWiersz <>"" then
sKom = sKom & sWiersz & chr(13)
end if
wend
Close #iNumer
Msgbox sKom
End Sub