IBM Lotus Symphony
|
Lukker en angivet fil, som blev åbnet med Open-sætningen.
Close Filnummer As Integer[, Filnummer2 As Integer[,...]]
FileNumber: Et hvilket som helst heltalsudtryk, som angiver nummeret på den datakanal, der er åbnet med Åbn-sætningen.
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