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

@erte · Регистрация: 20.09.2012

Студворк — интернет-сервис помощи студентам

Дан текстовый файл, созданный заранее в редакторе Блокнот. Удалить из него последнюю строку.

Kodzaev · 24.01.2013, 14:00

Pascal

Uses crt;
Var
  f,buf,buf2: Text;
  nam,s: String;
  i,n: Integer;
BEGIN
Clrscr;
Writeln('Vvedite imya faila: '); Readln(nam);
Assign(f,nam+'.txt');
{$I-} Reset(f); {$I+}
If IOResult=0 Then
begin
  Assign(buf,'buf.txt');
  Rewrite(buf);
  While not Eof(f) do
  begin
    Readln(f,s);
    Writeln(buf,s);
    Inc(n);
  end;
  Assign(buf2,'buf2.txt');
  Rewrite(buf2);
  Reset(buf);
  For i:=1 to n-1 do
  begin
    Readln(buf,s);
    Writeln(buf2,s);
  end;
  Close(f);
  Close(buf);
  Close(buf2);
  Erase(f);
  Erase(buf);
  Rename(buf2,nam+'.txt');
  Writeln('Gotovo');
end
Else Writeln('Fail ne naiden');
Readln
END.

@erte 1 / 1 / 0 Регистрация: 20.09.2012 Сообщений: 44
		1
	Текстовый файл: Удалить из него последнюю строку 24.01.2013, 13:45. Показов 2589. Ответов 1 Метки нет (Все метки) Дан текстовый файл, созданный заранее в редакторе Блокнот. Удалить из него последнюю строку. 0

Опции темы

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

Решение