Удалить строчку из файла - задачка
Помогите решить задачу,а то у меня чуть-чуть не получается.
Вот задача: Дан текстовый файл. Удалить из него последнюю строку. |
Выложите свой вариант решения.
|
Program q1;
var f,s:text; w:STRING; begin assign (f,'C:\1.txt'); assign (s,'C:\2.txt'); reset (f); append(s); и как дальше написать условие,подскажите пожалуйста. |
Цитата:
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. |
Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?
|
Цитата:
|
Поняла :)
|
Часовой пояс GMT +4, время: 06:03. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.