Реферат Курсовая Конспект
Чтение из текстового файла - раздел Программирование, Основные понятия системы программирования Турбо Pascal Чтение Из Файла Выполняется Хорошо Знакомым Нам Оператором Read. Для...
|
Чтение из файла выполняется хорошо знакомым нам оператором READ.
Для ввода информации из файла, открытого для чтения, используется уже знакомый вам оператор Read. Правда, в его формате и использовании вы заметите некоторые изменения:
Read(<Имя файловой переменной>, <Список ввода>);
Происходит считывание данных из файла в переменные, имена которых указаны в списке ввода. Переменные должны быть того же типа, что и компоненты файла.
Если перед списком ввода в операторе READ стоит файловая переменная, он вводит данные не с клавиатуры, а из файла.
Например:
var
f: text; a.b.c: integer;
begin
read (a,b,c); {ввод с клавиатуры}
read (f,a,b,c); {ввод из файла}
Текстовый файл для оператора READ такой же источник символов, как и клавиатура, только эти символы следуют друг за другом не во времени, а в пространстве файла. Во времени можно перемещаться лишь в одну сторону, по файлу — тоже. Движение допускается последовательное, от начала к концу, поэтому текстовые файлы называют последовательными.
Чтобы уяснить, что прочтет из файла тот или иной оператор READ, введем понятие указателя файла. Фактически указатель — это номер очередного символа файла, но лучше вообразить его в виде стрелки, направленной в определенную точку файла.
Сразу после открытия стрелка указывает на первый символ файла. Чтение очередной порции данных всегда выполняется, начиная с символа, на который показывает стрелка. После чтения стрелка автоматически передвигается вперед на длину прочитанного участка. Так продолжается, пока стрелка не достигнет конца файла. Дальнейшие попытки чтения вызовут сообщение об ошибке.
Как узнать, можно ли еще читать из файла ? Для этого в Паскале есть логическая функция
EOF (файловая переменная)
Она возвращает true, если достигнут конец файла, и false в противном случае. Название функции сокращает слова «End Of File» — конец файла.
Дополнительный оператор чтения READLN вводит все, предусмотренное списком ввода, и продвигает указатель до начала следующей строки.
ПРИМЕР. Чтение из текстового файла с выводом на экран.
var
f: text;
s: string;
begin
assign (f.'XXX.TXT);
reset (f);
while not eof (f) do
begin
readln (f, s); {ввод из файла}
writeln (s); {вывод на экран}
end {while};
close(f)
end.
Запись в текстовый файл:
Запись в текстовый файл выполняется оператором WRITE, в котором перед списком вывода стоит файловая переменная. Вывод информации производит, как можно догадаться оператор
Write(<Имя файловой переменной>, <Список вывода>);
Данные из списка вывода заносятся в файл, открытый для записи.
Для текстовых файлов используются также операторы Readln и Writeln с соответствующими дополнениями, относящимися к файловому вводу-выводу.
Выводимая информация присоединяется к той, что была выведена в файл с момента его открытия.
Желая создать новый файл, его открывают оператором REWRITE. Если же хотят дополнить уже существующий файл, открытие выполняют оператором APPEND. Открытие существующего файла оператором REWRITE приведет к потере того, что находилось там раньше.
Закончив запись в файл, вы должны его закрыть. Только после закрытия новый файл будет окончательно сформирован.
Дополнительный оператор записи WRITELN выводит все, предусмотренное списком вывода, и символы #13 #10 в придачу.
ПРИМЕР.Ввод с клавиатуры и запись в текстовый файла 10 чисел .
var
f: text;
s: string;
i: integer;
begin
assign (f.'XXX.TXT);
rewrite (f); {открытие файла}
for i:=1 to 10 do
begin
writeln (‘ввести число’); {вывод запроса на экран}
readln (s); {ввод с клавиатуры числа}
writeln (f,s); {вывод в файл}
end
close (f) {закрытие файла}
end.
– Конец работы –
Эта тема принадлежит разделу:
Основная часть стр Глава Основные понятия системы программирования Турбо Pascal стр...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Чтение из текстового файла
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов