Удалить строчку из файла - задачка

юра 3 · 23.02.2009, 19:02

Помогите решить задачу,а то у меня чуть-чуть не получается.
Вот задача:
Дан текстовый файл. Удалить из него последнюю строку.

ummasha · 23.02.2009, 19:13

Выложите свой вариант решения.

юра 3 · 23.02.2009, 22:47

Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.

Vladimir_S · 24.02.2009, 10:26

Цитата:

Сообщение от юра 3

Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.

var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
ReWrite(s);
REPEAT
ReadLn(f,w);
IF (NOT EoF(f)) THEN
WriteLn(s,w);
UNTIL EoF(f);
Close(f);
Close(s);
END.

ummasha · 24.02.2009, 17:04

Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?

Vladimir_S · 24.02.2009, 17:08

Цитата:

Сообщение от ummasha

Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?

Не совсем. Она просто строчку за строчкой перегоняет из первого файла во второй, кроме последней строки.

ummasha · 24.02.2009, 17:10

Поняла

23.02.2009, 19:02	#1 (permalink)
юра 3 Новичок Регистрация: 30.12.2008 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Удалить строчку из файла - задачка Помогите решить задачу,а то у меня чуть-чуть не получается. Вот задача: Дан текстовый файл. Удалить из него последнюю строку.

23.02.2009, 19:02
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Зачастую проблемы у людей очень похожие, обратите внимание на это Задачка. Задачка по Паскалю Как удалить свою учетную запись, удалить себя с форума? Задачка

23.02.2009, 19:13	#2 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Выложите свой вариант решения.

23.02.2009, 22:47	#3 (permalink)
юра 3 Новичок Регистрация: 30.12.2008 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Program q1; var f,s:text; w:STRING; begin assign (f,'C:\1.txt'); assign (s,'C:\2.txt'); reset (f); append(s); и как дальше написать условие,подскажите пожалуйста.

24.02.2009, 17:04	#5 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

24.02.2009, 17:10	#7 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Поняла