VPF::Удалить строку с файла - Форум программистов

Sed0Y

Дата 1.3.2010, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 16.1.2009

Репутация: нет
Всего: нет

Собственно открываю файл бегу по нему и ищу нужную мне строку,
при нахождении нужно ее удалить - как удалить?

Код


...
var
  Patch, St: String;
  FFile : TextFile;
  IsFind: Boolean;
begin
  IsFind := False;
  Patch :='С:\skiplist.txt';
  if FileExists(Patch) then begin
    AssignFile(FFile, Patch);
    Reset(FFile);
    While not EOF(FFile) do begin
      ReadLn(FFile, St);
      if Pos(St, 'ищем такую строку') > 0 then
          IsFind := True; // вместо этого должна быть команда удалить - как?
    end;
    CloseFile(FFile);
  end;
...

Frees

Дата 1.3.2010, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

можно так

Код


with TStringList.create do
try
  LoadFromFile('С:\skiplist.txt');
  Text := StringReplace(Text, 'ищем такую строку', '' ,rfReplaceAll);
  SaveToFile('С:\skiplist.txt');
finally
  Free;
end;

--------------------

Кольцов Виктор Владимирович

Sed0Y

Дата 1.3.2010, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 16.1.2009

Репутация: нет
Всего: нет

Цитата(Frees @ 1.3.2010, 20:50)

можно так

Код


with TStringList.create do
try
  LoadFromFile('С:\skiplist.txt');
  Text := StringReplace(Text, 'ищем такую строку', '' ,rfReplaceAll);
  SaveToFile('С:\skiplist.txt');
finally
  Free;
end;

да.... так наверно будет лучше всего + и быстрее чем работа с файлом - СПС

Frees

Дата 1.3.2010, 21:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

надо сказать не самый быстрый способ..

--------------------

Кольцов Виктор Владимирович

Sed0Y

Дата 1.3.2010, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 16.1.2009

Репутация: нет
Всего: нет

Цитата(Frees @ 1.3.2010, 21:04)

надо сказать не самый быстрый способ..

Кстати при этом методе

Код


with TStringList.create do
try
  LoadFromFile('С:\skiplist.txt');
  Text := StringReplace(Text, 'ищем такую строку', '' ,rfReplaceAll);
  SaveToFile('С:\skiplist.txt');
finally
  Free;
end;

если в файле такие строки:

Код


...
ищем такую строку
да ищем такую строку
нет не ищем такую строку
ищем такую строку
снова ищем такую строку
ищем такую строку
...

то после процедуры получается:

Код


...

да ищем такую строку
нет не ищем такую строку

снова ищем такую строку
ищем такую строку
...

получаются пустые строки, как их убрать, что бы был текст к тексту?

Это сообщение отредактировал(а) Sed0Y - 1.3.2010, 22:23

Frees

Дата 1.3.2010, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Код


with TStringList.create do
try
  LoadFromFile('С:\skiplist.txt');
  n := IndexOf('ищем такую строку');
  if  n >= 0 then
    Delete(n)
  SaveToFile('С:\skiplist.txt');
finally
  Free;
end;

Добавлено через 55 секунд
или

Код


with TStringList.create do
try
  LoadFromFile('С:\skiplist.txt');
  Text := StringReplace(Text, 'ищем такую строку' + sLineBreak, '' ,rfReplaceAll);
  SaveToFile('С:\skiplist.txt');
finally
  Free;
end;

--------------------

Кольцов Виктор Владимирович

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »