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