Имеется текстовый файл. Переписать его строки в другой файл.

@Shark19 · Регистрация: 29.06.2010

Имеется текстовый файл. Переписать его строки в другой файл. Порядок строк во втором файле должен совпадать с порядком строк в заданном файле

@zlo · 29.06.2010, 22:47

Pascal

var st:string;
k, i : integer;
f1, f2 : text;
begin
assign(f1,'путь к исходному файлу.txt'); {открытие файла}
 
reset(f1); {устанвливает курсор на первый символ,и переходит в режим чтение файла}
 
assign(f2,'путь куда будет записываться новый файл(например: D:\output.txt)'); {открытие файла}
rewrite(f2); {перезапись файла}
while not eof(f1) do{пока первый файл не закончится перебираем его}
begin
readln(f1, st); {читаем строки из первого файла}
writeln(f2, st); {заносим их во второй файл}
end;
close(f1);
close(f2); {закрываем оба файла}
end.

@Shark19 · 30.06.2010, 16:55 **[ТС]**

Спасибо! Все работает прекрасно.

@Shark19 0 / 0 / 0 Регистрация: 29.06.2010 Сообщений: 24
		1
	Имеется текстовый файл. Переписать его строки в другой файл. 29.06.2010, 22:33. Показов 3595. Ответов 2 Метки нет (Все метки) Имеется текстовый файл. Переписать его строки в другой файл. Порядок строк во втором файле должен совпадать с порядком строк в заданном файле __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Shark19 0 / 0 / 0 Регистрация: 29.06.2010 Сообщений: 24
	30.06.2010, 16:55 [ТС]	3
	Спасибо! Все работает прекрасно. 0

Опции темы

Имеется текстовый файл. Переписать его строки в другой файл.

Решение