IBM Lotus Symphony
|
Ашу нұсқасымен ашылған көрсетілген файлды жабады.
FileNumber бүтін сан ретінде[, FileNumber2 бүтін сан ретінде жабады[,...]]
FileNumber: келесімен ашылған деректер арнасының саны көрсететін бүтін сан өрнегі Open statement.
ExampleWorkWithAFile нұсқауы
iNumber функциясын бүтін сан ретінде қарайту
sLine жолын жол ретінде қарайту
Жол ретінде aFile қарайту
sMsg жол ретінде қарайту
aFile = "c:\data.txt"
sMsg = ""
iNumber = Freefile
#iNumber ретінде шығару үшін aFile ашу
Басып шығару #iNumber, "Мәтіннің бірінші жолы"
Басып шығару #iNumber, "Мәтіннің басқа жолы"
Close #iNumber
iNumber = Freefile
iNumber сияқты шығару үшін, файлды ашу
eof(iNumber) емес
Жолды енгізу #iNumber, sLine
Егер sLine <>"" болса, онда
sMsg = sMsg & sLine & chr(13)
болса аяқтаңыз
бағыттану
Close #iNumber
Msgbox sMsg
Аяқталу ішкі элементі