Удалить из файла третью строку и результат записать в другой файл

@c4ntf1y · Регистрация: 01.11.2012

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

Kodzaev · 14.03.2013, 23:01

Pascal

Var
  s: String;
  f,f1: Text;
  i: Integer;
BEGIN
Try
  Write('Введите имя файла без расширения: ');
  Readln(s);
  Assign(f,s+'.txt');
  Reset(f);
  Assign(f1,s+'2.txt');
  Rewrite(f1);
  While not Eof(f) do
  begin
    Inc(i);
    If i=3 Then
    Readln(f)
    Else
    begin
      Readln(f,s);
      Writeln(f1,s);
    end;
  end;
  Close(f);
  Close(f1);
  Writeln('Готово!');
Except
  Writeln('Файл не найден');
end;
END.

@c4ntf1y 0 / 0 / 0 Регистрация: 01.11.2012 Сообщений: 120
		1
	Удалить из файла третью строку и результат записать в другой файл 14.03.2013, 22:26. Показов 2066. Ответов 1 Метки нет (Все метки) 1. Имеется текстовый файл. Удалить из него третью строку; результат записать в другой файл. Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Удалить из файла третью строку и результат записать в другой файл

Решение