VPF::Работа с текстом - Форум программистов

Erfolg

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

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

Загрузка ...

Новичок

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

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

Доброго всем времени суток, подскажите в чем у меня ошибка:
суть в следующим, имеется множество папок в них по несколько файлов, прога должна заходить в каждую папку и искать нужный текст во всех файлах. У меня получилось то что текст ищется только в одной папке а в следующую не переходит, что ни так?
вот код

Код


procedure TForm1.Button1Click(Sender: TObject);
var
a,dir:String;
S:TStringList;
sr:TSearchRec;

begin

dir:='C:\Test\';
if FindFirst(dir+'*.*',faAnyFile,sr)=0 then
repeat
if (sr.Name='.') or (sr.Name='..') then continue;
dir:='c:\test\'+sr.Name+'\';

begin
if FindFirst(dir+'*.txt',faAnyFile,sr)=0 then
repeat
if (sr.Name='.') or (sr.Name='..') then continue;
s:=TStringList.Create;
S.LoadFromFile(dir+sr.Name);
a:=s.Text;
   a:=Copy(a,Pos('CRMA/xDCA',a) + 0,Length(a));
    a:=Copy(a,1,Pos(' ',a) - 1);
     if a<>'CRMA/xDCA' then
      memo1.Lines.Add('Not Ok'+sr.Name)
        until FindNext(sr)<>0;
FindClose(sr);
end;


  until FindNext(sr)<>0;
FindClose(sr);
    end;
end.

Заранее огромное спасибо!!!

Snowy

Дата 19.9.2006, 23:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Рекурсию использовать нуно.
Поиск по слову "рекурсивно" даст кучу примеров.
Например такой: http://forum.vingrad.ru/index.php?showtopic=82343

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