Програмирование на языке Basic. Федоряка Н.И. - 56 стр.

         PRINT FIO$, DAY$, MARK 'вывод на экран
         LOOP
         CLOSE #1
               Теперь программа выводит из файла все данные.
               Продолжим работу. Упростим задачу пользователя - дату будем по-
         лучать с помощью функции DATE$, которая возвращает текущую дату в
         формате mm-dd-yyyy.
               REM Работа с файлами. Пример 2_3.
         REM Запись в файл
         OPEN "journal.dat" FOR APPEND AS #1
         INPUT "Введите ФИО", FIO$
         INPUT "Введите отметку", MARK
         WRITE #1, FIO$, DATE$, MARK
         CLOSE #1
         REM Чтение из файла
         OPEN "journal.dat" FOR INPUT AS #1
         DO WHILE NOT EOF(1)
         INPUT #1, FIO$, DAY$, MARK
         PRINT FIO$, DAY$, MARK 'вывод на экран
         LOOP
         CLOSE #1
               Итак, что у нас получилось? Мы написали программу для заполне-
         ния и вывода на экран классного журнала (для простоты мы не стали раз-
         делять эти две части программы). Данные журнала хранятся в файле на
         диске.
               Результат работы программы:

         Примечание: Кроме операторов для создания, считывания и записи фай-
         лов, Basic имеет средства для осуществления определенных DOS-
         подобных сервисных программ внутри программы. Оператор NAME пере-
         именовывает файлы, KILL - стирает файлы, MKDIR - создает каталоги,
         CHDIR - меняет текущий каталог, RMDIR - уничтожает каталоги.
               Примечание: рассмотрим еще два примера (назначение ясно из ко-
         ментариев).
               'Пример открыть файл, назначенный принтеру
         OPEN "LPT1:" AS #1
         'послать строку на принтер
         PRINT# 1,"THIS IS A TEST"
         CLOSE# 1 'закрыть переменную файла

         'открыть два разных файла
         OPEN "CLOSEFIL.ONE" FOR AS #1
         OPEN "CLOSEFIL.TWO" FOR AS #2
         56


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com