Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2008, 17:22   #1
Ketu
Пользователь
 
Регистрация: 15.03.2008
Сообщений: 20
По умолчанию Удалить заданое кол-во записей из указанного файла.

Плиз., Удалить заданое кол-во записей из указанного файла.
Ketu вне форума Ответить с цитированием
Старый 12.06.2008, 17:29   #2
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

Начиная с откуд(начало, конец или середина файла)
Нет невыполнимых задач, всё дело времени...
D-mon вне форума Ответить с цитированием
Старый 12.06.2008, 17:52   #3
Ketu
Пользователь
 
Регистрация: 15.03.2008
Сообщений: 20
По умолчанию

Все равно.
Ketu вне форума Ответить с цитированием
Старый 12.06.2008, 18:09   #4
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

Примерно так:
Код:
var
    f1,f2: text;
    kol,posit,i: integer;
    s:string;
   begin
    Write('Введите колличество удаляемых строк: '); ReadLn(kol);
    Write('Введите позицию, с которой начать удаление: '); ReadLn(posit);
    assign(f1,'c:\a.txt');
    assign(f2,'c:\b.txt');
    reset(f1); rewrite(f2);
    i:=0;
    while not eof(f1) do
     begin
      i:=i+1;
      readln(f1,s);
      if((i>=posit) and (i<=posit+kol)) then Continue;
      writeln(f2,s);
     end;
    close(f1); close(f2);
   end.
Потом файл c:\a.txt можно удалить, а c:\b.txt переименовать в c:\a.txt

Поправил, сори за ошибки, без компилятора писал.
Нет невыполнимых задач, всё дело времени...

Последний раз редактировалось D-mon; 12.06.2008 в 18:28.
D-mon вне форума Ответить с цитированием
Старый 12.06.2008, 18:48   #5
Ketu
Пользователь
 
Регистрация: 15.03.2008
Сообщений: 20
По умолчанию

Спасибо!!!
Ketu вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Можно ли после аварийного закрытия приложения внести/удалить запись из файла Ramires Общие вопросы Delphi 9 06.08.2008 10:38
Удаление записей Blackmore БД в Delphi 2 26.05.2008 08:18
Типизированные файлы.Создание, удаление, редактирование, сортировка записей типизированного файла.Паскаль Студент Шиза Помощь студентам 6 08.12.2007 13:41
Удаление записей Arsgun БД в Delphi 7 09.07.2007 11:56
как удалить анти вирус( касперский 2006)если она не работает и ее не возможно удалить Alar Общие вопросы Delphi 0 29.10.2006 21:36