IBM Lotus Symphony


Sætningen Close [Runtime]

Lukker en angivet fil, som blev åbnet med Open-sætningen.

Syntaks:

Close Filnummer As Integer[, Filnummer2 As Integer[,...]]

Parametre:

FileNumber: Et hvilket som helst heltalsudtryk, som angiver nummeret på den datakanal, der er åbnet med Åbn-sætningen.

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker