Операции над файлами Язык программирования BASIC. - презентация

1 Операции над файлами Язык программирования BASIC

2 Операции над файлами Открытие файла Чтение и запись обрабатываемых данных Закрытие файла

3 Открытие файла OPEN имя_файла FOR режим AS # номер файла Режимы определяющие доступ к данным файла: INPUT – это режим чтения информации из файла. OUTPUT – режим записи информации в файл APPEND – режим добавления информации в файл.

4 Запись в файл Рассмотрим пример записи в файл: OPEN capitalist.dat FOR OUTPUT AS #1 FOR x=1 TO 5 INPUT введите название столицы; F$ PRINT #1, F$ NEXT x CLOSE #1 END

5 В результате работы программы мы получаем: Введите название столицы? МОСКВА Введите название столицы? КИЕВ Введите название столицы? ТАЛЛИН Введите название столицы? РИГА Введите название столицы? МИНСК

6 Пример 1. Создание базы данных автомобилей. CLS INPUT введите имя файла;F$ OPEN F$ FOR OUTPUT AS #1 DO Input марка автомобиля? (Для окончания введите QWE);M$ IF UCASE$(M$)=QWE THEN 1

7 INPUT "номер автомобиля?";N$ INPUT "цвет автомобиля?";С$ INPUT "год производства автомобиля?";G$ INPUT "продажная цена автомобиля?";S$ PRINT #1,M$, N$, C$, G$, S$ LOOP 1: CLOSE #1 PRINT "файл сформирован" Наберите эту программу с именем создаваемого файла avto.dat

8 Чтение из файла Осуществляется аналогично записи, но вместо режима OUTPUT используется режим INPUT. Прочитаем занесенные нами данные из файла avto.dat

9 CLS INPUT "введите имя файла";F$ OPEN F$ FOR INPUT AS #1 PRINT "База данных автомобилей на 17 декабря 2007 года" I=1 DO PRINT "вывести данные об";I;"автомобиле?" INPUT "Для окончания нажмите QWE, для продолжения ";M$ IF UCASE$(M$)="QWE" THEN 1 INPUT #1, M$,N$,C$,G$,S$ I=I+1 LOOP UNTIL EOF(1) 1: CLOSE #1 PRINT "файл закрыт" Оператор LOOP UNTIL EOF(1) означает, что считывание ведется до тех пор, пока не будет обнаружен символ конца файла, а в скобках указан номер открытого файла.

10 Изменение данных в файле Для изменения какой-либо записи, удаления старых или добавления новых данных в последовательном файле необходимо открыть два файла: подлежащий изменению и новый, в котором создается обновленная версия исходного файла.

11 Приведенная ниже программа в файле avto.dat изменяет "МОСКВИЧ" на "МЕРСЕДЕС" OPEN "avto.dat" FOR INPUT AS #1 OPEN "avto2.dat" FOR OUTPUT AS #2 FOR I=1 TO 5 INPUT #1,M$, N$, C$, G4, S$ IF UCASE$ (M$)="МОСКВИЧ" THEN M$="МЕРСЕДЕС" PRINT #2, M$, N$, C$, G$, S$ NEXT I CLOSE 1,2 KILL "avto.dat" NAME "avto2.dat" AS "avto.dat" END

12 Добавление данных в файл Указание FOR APPEND в операторе OPEN подготавливает файл для вывода данных и смещает указатель на конец файла. Последующие операторы приписывают новую информацию к уже имеющейся. В предложенной далее программе в файл данных об автомобилях добавляются сведения о двух новых поступлениях.

13 CLS INPUT введите имя файла;F$ OPEN F$ FOR APPEND AS #1 DO Input марка автомобиля? (Для окончания введите QWE);M$ IF UCASE$(M$)=QWE THEN 1 INPUT "номер автомобиля?";N$ INPUT "цвет автомобиля?";С$ INPUT "год производства автомобиля?";G$ INPUT "продажная цена автомобиля?";S$ PRINT #1,M$, N$, C$, G$, S$ LOOP 1: CLOSE #1 PRINT "файл сформирован"