Операции записи в файл

rewrite(f) - cоздаёт и открывает новый файл. Файловая переменная должна быть связана с внешним файлом с помощью процедуры assign.

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

Если f соответствует пустое имя файла (например, после вызова assign(f, '')), то после обращения к процедуре rewrite(f) будет использоваться стандартный файл вывода (канал 1).

Текстовый файл становится доступным только на запись.

write([f: text], v1 [, v2,.... vn]) - записывает значения одной или более переменных в текстовый файл.

Если параметр f не указан, то подразумевается использование стандартной файловой переменной Output. Каждый параметр v является выражением, значение которого должно быть записано в файл. Выводимое выражение должно быть символьного, целого, вещественного, строкового или булевского типа.

Параметр v может иметь вид:

<выводимое выражение: мин.размер: десятичных знаков>

Например:

Var a:real;....... write(f, a: 5: 2);

Такая запись означает, что мы в файл записываем действительное (не целое) число а, размером 5 знаков, 2 знака под дробную часть.

writeln([f: text], [v1, v2,.... vn]) - выполняет процедуру write, а затем записывает в файл метку конца строки (перевод строки).

При вызове данной процедуры с указанием только параметра-файловой переменной: writeln(f), в файл записывается метка конца строки. Процедура writeln без параметров полностью соответствует стандартному выводу на экран.

Примечание. Процедура работает только для текстовых файлов, включая стандартный вывод. Файл должен быть открыт для вывода.

Логическая функция Eoln

Часто для обработки текстовых файлов используется специфичная для них функция Eoln, позволяющая определить, достигнут ли конец строки. Если достигнут - значение функции равно True, а если нет - False. Таким образом, для анализа конкретных символов строк файла можно применить вложенный цикл типа:

while not Eof(FileName) do {пока не достигнут конец файла FileName, делай} while not Eoln(FileName) do {пока не достигнут конец очередной строки файла FileName, делай} begin {группа операторов обработки символов очередной строки} end;

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



double arrow
Сейчас читают про: