IBM Lotus Symphony
|
Барлық ашық тұрған файлдарды жабады және барлық файлдардың мазмұндарын қатты дискіге жазады.
Ысыру
Қосымша ExampleReset
Қатеде Goto ErrorHandler
iNumber функциясын бүтін сан ретінде қарайту
iCount ұяшығын бүтін сан ретінде қайтару
sLine жолын жол ретінде қарайту
Жол ретінде aFile қарайту
aFile = "c:\data.txt"
iNumber = Freefile
#iNumber ретінде шығару үшін aFile ашу
Басып шығаруiNumber, "This is a new line of text"
Close #iNumber
iNumber = Freefile
iNumber сияқты шығару үшін, файлды ашу
iCount = 1 мен 5 аралығында
Жолды енгізу #iNumber, sLine
Егер sLine <>"" болса, онда
rem
болса аяқтаңыз
Келесі iCount
Close #iNumber
Sub шығу
ErrorHandler:
Ысыру
MsgBox "Барлық файлдар жабылады",0,"Error"
Аяқталу ішкі элементі