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

@targonya · Регистрация: 06.10.2015

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

@BLOODland · 12.11.2015, 20:11

Издеваешься, да?

Pascal

Uses crt;
Var s: string;
     t1: text;
Begin
Assign(t1, 'Название файла.txt');
ReSet(t1);
s:=1;
Delete(t1, s, 1, 225);
Close(t1);
End.

@APALoff · 13.11.2015, 09:17

BLOODland, это бред.

@ZX Spectrum-128 · 13.11.2015, 12:18

Не по теме:

APALoff, согласен, аха.

Добавлено через 1 час 45 минут
targonya, посмотрите, как такое должно делаться:
Текстовый файл: Удалить из него последнюю строку

@Sergio Leone · 13.11.2015, 12:48

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

Издеваешься, да?

Это ты издеваешься, судя по всему!
Ты хоть представляешь, что такое текстовый файл, из чего он состоит, что строки имеют РАЗНУЮ длину?!

targonya, задача не тривиальная. текстовый файл является файлом ПОСЛЕДОВАТЕЛЬНОГО доступа.
Просто так удалить одну строку в нём - не получится.

Но, разумеется, задачу можно решить.

Вариант 1.
Если задача учебная и файл небольшой, тогда можно создать массив из строк. Прочитать весь файл в память,
перезаписать исходный файл (он будет затёр и создан пустой новый) и записать в этой файл все строки, кроме первой

Вариант 2.
Можно использовать временный файл. Открыть исходный файл, открыть дополнительный (временный) файл.
Прочитать первую строку из входного файла. ничего не делать с ней.
Дальше в цикле, пока не конец файла читать строки и писать их в выходной файл.
Когда строки в исходной файле закончаться. Закрыть оба файла. Исходный переименовать в ИмяФайла.BAK
Временный переменновать в имя исходного файла.
Финита.

Вариант 3.
Хакерский. Открыть файл как бинарный (file of byte). Найти первый перевод строки. Переписать все байты файла со сдвигом на размер первой строки. Обрезать полученный файл.

если нет никаких дополнительный требований и ограничений, то я бы рекомендовал воспользоваться вариантом 2.
Он и простой и надёжный и достаточно эффективный.

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

Решение

Решение

@targonya 0 / 0 / 0 Регистрация: 06.10.2015 Сообщений: 13
		1
	Дан непустой текстовый файл. Удалить из него первую строку 12.11.2015, 19:19. Показов 3956. Ответов 4 Метки нет (Все метки) Дан непустой текстовый файл. Удалить из него первую строку. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	13.11.2015, 09:17	3
	BLOODland, это бред. 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	13.11.2015, 12:18	4
	Не по теме: APALoff, согласен, аха. Добавлено через 1 час 45 минут targonya, посмотрите, как такое должно делаться: Текстовый файл: Удалить из него последнюю строку 1

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	13.11.2015, 12:48	5
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Сообщение от BLOODland Издеваешься, да? Это ты издеваешься, судя по всему! Ты хоть представляешь, что такое текстовый файл, из чего он состоит, что строки имеют РАЗНУЮ длину?! targonya, задача не тривиальная. текстовый файл является файлом ПОСЛЕДОВАТЕЛЬНОГО доступа. Просто так удалить одну строку в нём - не получится. Но, разумеется, задачу можно решить. Вариант 1. Если задача учебная и файл небольшой, тогда можно создать массив из строк. Прочитать весь файл в память, перезаписать исходный файл (он будет затёр и создан пустой новый) и записать в этой файл все строки, кроме первой Вариант 2. Можно использовать временный файл. Открыть исходный файл, открыть дополнительный (временный) файл. Прочитать первую строку из входного файла. ничего не делать с ней. Дальше в цикле, пока не конец файла читать строки и писать их в выходной файл. Когда строки в исходной файле закончаться. Закрыть оба файла. Исходный переименовать в ИмяФайла.BAK Временный переменновать в имя исходного файла. Финита. Вариант 3. Хакерский. Открыть файл как бинарный (file of byte). Найти первый перевод строки. Переписать все байты файла со сдвигом на размер первой строки. Обрезать полученный файл. если нет никаких дополнительный требований и ограничений, то я бы рекомендовал воспользоваться вариантом 2. Он и простой и надёжный и достаточно эффективный. 1

Опции темы