Лекция: Изменения данных в файле

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

Приведенная ниже программа в файле avto.dat изменяет «МОСКВИЧ» на «МЕРСЕДЕС». В пер­вых строках открываются исходный файл avto.dat и новый файл avto2.dat, сначала пустой. Очередная запись считывается из фай­ла 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$, G$, S$

IF UCASE$(M$)-«МОСКВИЧ» THEN М$-«МЕРСЕДЕС»

PRINT 12, M$, N$, C$, G$, S$

NEXT i

CLOSE 1, 2

KILL «avto.dat»

NAME «avto2.dat» AS «avto.dat»

END

Заключительный этап — удаление исходного и переименование нового файла, которому придается прежнее имя, что обеспечи­вает и в дальнейшем наличие на дискете файла avto.dat.