IBM Lotus Symphony


Instrukcja Close [środowisko wykonawcze]

Służy do zamykania określonego pliku, który został otwarty za pomocą instrukcji Open.

Składnia

Close NumerPliku As Integer[, NumerPliku2 As Integer[,...]]

Parametry

NumerPliku: Dowolne wyrażenie całkowitoliczbowe określające numer kanału danych, który został otwarty za pomocą instrukcji Open.

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe