IBM Lotus Symphony
|
Służy do zamykania określonego pliku, który został otwarty za pomocą instrukcji Open.
Close NumerPliku As Integer[, NumerPliku2 As Integer[,...]]
NumerPliku: Dowolne wyrażenie całkowitoliczbowe określające numer kanału danych, który został otwarty za pomocą instrukcji Open.
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