23.02.2009, 19:02 | #1 (permalink) |
Новичок
Регистрация: 30.12.2008
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Удалить строчку из файла - задачка
Вот задача: Дан текстовый файл. Удалить из него последнюю строку. |
23.02.2009, 19:02 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Зачастую проблемы у людей очень похожие, обратите внимание на это Задачка. Задачка по Паскалю Как удалить свою учетную запись, удалить себя с форума? Задачка |
23.02.2009, 22:47 | #3 (permalink) |
Новичок
Регистрация: 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, 10:26 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
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. |
|
24.02.2009, 17:04 | #5 (permalink) |
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) |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
Поняла
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|