Операции над текстовыми файлами

Как уже установлено, текстовые файлы состоят из строк, поделённых на символы. Каждая строка заканчивается парой символов CR/LF, файл заканчивается символом Ctrl-Z. Ctrl-Z заносится в открытый файл в момент его закрытия.

Текстовые файлы могут быть связаны с набором данных либо с логическими устройствами. В первом случае обработка данных, содержащихся в файле, может осуществляться после выполнения процедуры Assign и одной из процедур Reset, Rewrite, Append. По окончании обработки должна быть выполнена процедура Close. В другом случае, т.е. при связи файла с устройством, можно воспользоваться предопределённой файловой переменной. В таком случае не допускается выполнение процедур Assign, Reset, Rewrite, Close по отношению к этой переменной либо можно рассматривать устройство как набор данных с символическим именем устройства, воспользоваться процедурой Assign для связи файла с устройством, затем приступить к обработке файла.

Процедура Assign

Синтаксис: Assign (TextVar, StrExp)

TextVar - имя файловой переменной типа text, StrExp - строковое выражение. Файл TextVar не должен быть открытым. TextVar не может быть именем предопределённой файловой переменной.

Процедура Assign связывает файл TextVar с набором данных либо с логическим устройством, имя которого определено StrExp.

Пример:

Var Device : text; ... Assign (Device,'CON:');

Имя файловой переменной Device представляет текстовый файл.

Процедура Assign связывает файл Device с консолью.

Процедура Assign открывает файл Device.

Процедура Reset

Синтаксис: Reset (TextVar)

TextVar - имя файловой переменной типа text. Перед выполнением процедуры Reset файл TextVar должен быть связан с существующим набором данных или с логическим устройством. TextVar не может быть именем предопределённой файловой переменной.

Процедура Reset открывает файл TextVar. Если файл TextVar связан с логическим устройством, то он уже открыт и использование процедуры Reset ничего не изменит.

Пример:

Var InpFile : text; ... Assign (InpFile,'OLDBOOK'); Reset (InpFile);

Процедура Assign свяжет текстовый файл InpFile с набором данных OLDBOOK.

Процедура Reset откроет текстовый файл InpFile для чтения.

Процедура Rewrite

Синтаксис: Rewrite(TextVar)

TextVar - имя файловой переменной типа text. Перед выполнением процедуры Rewrite файл TextVar должен быть связан с существующим набором данных или с логическим устройством. TextVar не может быть именем предопределённой файловой переменной.

Процедура Rewrite открывает файл TextVar для записи. Если файл TextVar связан с логическим устройством, то он уже открыт и процедура Rewrite не приведёт ни к каким результатам. Если файл TextVar связан с несуществующим набором данных, то последний будет создан. Если набор данных существует, то он будет уничтожен и создан заново. В обоих случаях будет создан пустой набор данных.

Пример:

Var OutFile : text; ... Assign (OutFile,'NEWBOOK'); Rewrite (OutFile);

Процедура Assign связывает текстовый файл OutFile с набором данных NEWBOOK.

Процедура Rewrite открывает файл OutFile для записи. После открытия рассматриваемый файл пуст.