Попытка открыть для Ввода несуществующий
OPEN "Мой файл.dta " FOR OUTRUT AS#1
имеет то-же действие,что и :
OPEN "0",#1 "мой файл.dta "
Попытка открыть для Ввода несуществующий файл вызывает ошибку 53 пери-
ода прогона, Файл не обнаружен. Если вы пытаетесь открыть несуществующий
файл для вывода , добавления, произвольного доступа или двоичных операций,
то он создается.
См. также OPEN COM
---------
Пример 'эта программа подразделяется на пять процедур. Различие между
процедурами состоит в режиме в котором открывается файл и способе манипу-
лирования данными файла.
DEF FN дать клавишу $ (сообщ$)
PRINT Сообщ $, " нажмите любую клавишу чтобы продолжить ..."
WHILE NOT INSTAT:WEND
FN дать клавишу $ =INKEY $
END DEF 'конец процедуры дать клавишу
SUB последовательный вывод
'этот файл открывается для последовательного вывода и в него записыва-
ются некоторые данные
КлавишиНаж $=FN Дать клавишу $ (теперь для последовательного вывода)
'открыть последовательный файл для вывода
OPEN "OPEN.DTA" FOR OUTRUT AS#1
Целое % =12345
Время стр$="История делается ночью"
'записать данные в последовательный файл
WRITE#1,Времстр$,целое%*2,врем стр$, целое %\2
CLOSE 1 закрыть файл
END SUB 'конец процедуры " последовательный вывод".
SUB последовательное добавление
'файл открывается для последовательного вывода. Однако данные в этом
случае добавляются в конце файла.
Клавиши Наж$ = FN дать клавишу $ (теперь немного добавим)
-153 -
'открыть последовательный файл для добавления данных
OPEN "OPEN.DTA"FOR APPEND AS#1
Целое %=32123
Врем Стр$ ="Наилучшее видение есть .... М.Форбе"
'добавить данные
WRITE#1,ВремСтр$, Целое%*0,2,Врем Стр$, Целое%\2
CLOSE 1 'закрыть файл
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий