Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Сканирование файла   Найти похожие ветки 

← →
Гриша   (2004-11-30 11:21) [0]

Как можно просканить файл на предмет наличия ключевого слова, например "File", и если оно в нем присутствует то его удалить?

---

← →
ЮЮ ©   (2004-11-30 11:54) [1]

Не боишься за исходники своей программы? :)

---

← →
Александр Иванов ©   (2004-11-30 11:59) [2]

Если файл небольшой, то:

Memo1.Lines.LoadFromFile(FilaName);
Str : = Memo1.Lines.Text;
Delete(Str,Pos("file",Str),4);
Memo1.Lines.Text := Str;
Memo1.Lines.SaveToFile(FileName);

---

← →
Александр Иванов ©   (2004-11-30 12:00) [3]

Запарился вместо Memo, можно использовать TStringList

---

← →
ЮЮ ©   (2004-11-30 12:07) [4]

>Delete(Str,Pos("file",Str),4);

Удалять надо файл !!!

---

← →
Александр Иванов ©   (2004-11-30 12:13) [5]

ЮЮ ©   (30.11.04 12:07) [4]

Из [0] это абсолютно не следует.
Тогда DeleteFile :).

---

← →
Anatoly Podgoretsky ©   (2004-11-30 12:34) [6]

Этот вариант гарантирует выполнение обеих условий.

---

Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c