Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.029 c
1-1101453334
hgd
2004-11-26 10:15
2004.12.12
Программа без формы


14-1101106133
Ozone
2004-11-22 09:48
2004.12.12
Простой растровый редактор


3-1100248492
mazepa
2004-11-12 11:34
2004.12.12
пустое поле


1-1101875975
V.I.P
2004-12-01 07:39
2004.12.12
Работа


3-1100166911
ALex11
2004-11-11 12:55
2004.12.12
Wer ist das: Insufficient disk space.???