Turbo Basic 1.1. Руководство пользователя


Turbo Basic 1.1. Руководство пользователя - стр. 251


       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    'закрыть файл



Начало  Назад  Вперед



Книжный магазин