Функции Pred, Succ в Pascal.

В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

Тип данных Char. Функции Ord, Chr.

Мы с Вами уже рассмотрели типы данных, которые позволяют хранить и обрабатывать целые числа (integer) и дробные числа (real). Теперь рассмотрим тип данных, позволяющий хранить и обрабатывать различные символы. Символы – это все буквы и значки, ...

Ввод логических переменных с клавиатуры.

В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую ...

Циклы и массивы

Использование оператора WITH ... DO.

Из предыдущего примера легко заметить, что при каждом обращении к полю записи следует указывать имя этой записи. Если вы работаете с полями одной и той же записи, то этой проблемы можно избежать ...

Табулирование функций.

Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец ...

Дописывание в текстовый файл.

Язык программирования Паскаль Категория: Уроки Паскаль. Файлы.

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

 Использование процедуры Append для дописывания информации в конец файла. 




Program file8;
Uses crt;
var fl:text;
str:string;
begin
clrscr;
assign (fl, 'programs\text.txt');
append (fl);
readln (str);
writeln (fl,str);
close(fl);
end.

В строке №8 записываем процедуру Append. Данная процедура открывает файл, указанный в круглых скобках после слова Append, для записи в него информации. Причем если в файле уже содержится какая-то информация, то она не стирается, а новая информация дописывается в конец файла. В прошлом уроке мы записали в файл «text.txt» слова «Avatar», « Terminator», «Mission Impossible». После запуска программы напишем какое-нибудь слово, например, Pascal.

dopisihvanie v tekstovihyj fayjl

dopisihvanie v tekstovihyj fayjl.

После этого посмотрим наш текстовый файл «text.txt».

dopisihvanie v tekstovihyj fayjl..Как видите, старая информация осталась на своем месте, а в конец файла была дописана новая информация.

Предыдущая статья : Запись в текстовый файл (продолжение).
Оглавление : Уроки Паскаль. Файлы.
Следующая статья : Работа с двумя текстовыми файлами.

Комментарии  

 
+3 # Владислав 03.04.2012 16:25
А как в начало дописать файла?
 
 
+6 # Administrator 04.04.2012 10:32
Процедура Append может дописывать информацию только в конец файла. Каких-то специальных инструментов для дописывания информации в другое место текстового файла в Паскале нет. Если же необходимо дописать информацию в начало файла приходится пользоваться некоторыми уловками. Например, в нашем случае можно создать еще один текстовый файл и переписать в него всю информацию из первого файла.
Program file5;
Uses crt;
var fl,f2:text;
str,str1:string;
begin
clrscr;
assign (fl, 'programs\text. txt'); // этот файл у нас уже есть
assign (f2, 'programs\text. txt2'); //этот файл будет создан автоматически
reset (fl); //открываем 1-ый файл для чтения
rewrite (f2); //открываем 2-ой файл для записи
readln (str); // вводим какое-нибудь слово (например, «Pascal»)
writeln (f2,str); //записываем это слово во 2-ой файл
while not eof (fl) do
begin
readln (fl,str1); //в переменную «str1» считываем информацию из 1-ого файла
append (f2); //открываем 2-ой файл для дописывания. Т.к. ранее он был открыт для записи, он автоматически закроется и снова откроется уже для дописывания информации
writeln (f2,str1); //дописываем во 2-ой файл информацию из 1-го файла.
end;
close(fl); //закрываем 1-ый файл
erase (fl); /удаляем его
close (f2); //закрываем 2-ой файл
rename (f2,'programs\text. txt'); /2-му файлу присваиваем имя первого файла
end.
 
 
+3 # Владислав 15.04.2012 17:50
спасииибооо
 
 
+4 # Владислав 15.04.2012 18:06
супер сайт
 
   ГлавнаяПаскальФайлы в ПаскальДописывание в текстовый файл.
Rambler's Top100