Поиск в файлах папке

[Dima DDM]

Скажите как найти текст (который например введен в Edit1) во всех файлах в данной папке(путь до папки Edit2 например ) и вывести номер строки в файле и найденное слово а так же имя файла в ListBox ???

[Человек_Борща]

Ну для начала перебор всех файлов в папке через TSearchRec(FinfFirst,FindNext,FindC lose), далее грузим файл в StringList а имя файла записываем в пременную и в цикле for..to..do по строчно ищем заданное слово, нашли? Молодца, имя файла из переменной+номер строки в которой нашли слово.
Нет? Break и к прыжок вк след. файлу.

Но у этого алгоритма есть минусы:
1. Медлительность.
2. Ну тут первого с головой достаточно.

Решением может стать, многопоточность поиска слова в 1 файле.

[Dima DDM]

Вот в том то и проблема я не понимаю ВООБЩЕ как искать через TSearchRec

[phomm]

procedure Tmainsys.loadstorhdrs;
var 
sr : tsearchrec;
ms : TMemoryStream;
begin
ms := TMemoryStream.Create;
if findfirst(stordir + '*.' + storext, faanyfile, sr) = 0
  then repeat
    try
    ms.LoadFromFile(stordir+sr.Name); // fully relocates memory, thus reusing only 1 ms
    if ms.size = 0
      then if findnext(sr) = 0
        then continue
        else break;

    except

    end;
  until findnext(sr) <> 0 ;
freeandnil(ms);
findclose(sr.FindHandle); // release memory of tsearchrec
end;

Из реального проекта, процедура грузит заголовки файлов собственной структуры. На месте пробелов был рабочий код, он не относится к делу

советую почитать справку по tsearchrec findfirst findnext

[kees]

А может и мне подскажете, что у меня кроме мозгов не так?

procedure TForm1.ToolButton1Click(Sender: TObject);
var
ts: String;
fs: TSearchRec;
f:TextFile;
str:String;
n:Integer;

begin
if FindFirst(ProgramPath+'text\*.htm',faAnyFile,fs) = 0 then
  begin
  repeat
  ts := fs.Name;
      if (ts <> '0') then      // проверяем, есть ли ссылка на файл
     begin
     edit1.Text:=ts;
     WebBrowser1.Navigate(ProgramPath+'text\'+ts);   
  end;
until FindNext(fs) <> 0;
FindClose(fs);
ShowMessage('Поиск по курсу завершен');
end;
   end;

При нажатии на кнопку открывает мне 9.htm, но у меня 24 файла, по моим скромным соображениям он должен 1.htm открывать, или нет?

[phomm]

ts Вы туда заносите имя, а проверяет на символ нуля... по идее Вам надо проверять не путая ли строка , т.е. if ts <> '' // это апострофы а не кавычки
советую пройтись ещё трасировкой с проверкой значений (подсказка F7 и F4 наводите мышкой на значение) узнаете его прямо во время хода проги, поймете, есть ли косяк

[kees]

Спасибо, огромное! Поиск проходит сначала по файлам с единицей в начале 1, 10, 11 и тд, потом с двойкой 2, 20... теперь понятно почему открывает 9, он получается последний, значит вроде все корректно, теперь условия поиска нужно вставлять


Теперь на Reset(f) выдает File not found, хотя ts=1.htm

[Serge_Bliznykov]

Теперь на Reset(f) выдает File not found, хотя ts=1.htm

а ищите так?

if FindFirst(ProgramPath+'text\*.htm',faAnyFile,fs) = 0

тогда открывайте файл не ts
а,

AssignFile(f, ProgramPath+'text\'+ts);

[kees]

Теперь так и открываю, и без толку
Выдает I/O 104 и останавливается на while not EOF(f) do

if FindFirst(ProgramPath+'text\*.htm',faAnyFile,fs) = 0 then
  begin
  repeat

  ts:= fs.Name;

    begin
      if (ts <> ' ') then      // проверяем, есть ли ссылка на файл
     begin

      AssignFile(f,ProgramPath+'text\'+ts);     // открываем файл
      Reset(f, ProgramPath+'text\'+ts);
      while not EOF(f) do       // пока не конец файла
        begin
        Readln(f,str);          // считываем одну строку
        if pos(makemin(Edit1.Text),makemin(str))>0 then  // если находим в ней текст
            begin
             n:=n+1;
             nf:=nf+1;
            end;
         closefile(f);    // закрываем файл
    end;
   end;
  end;
   Break;
until FindNext(fs) <> 0;
FindClose(fs);
ShowMessage('Поиск по курсу завершен');
end;

[kees]

Может кто нить потратит свое время за скромную мзду? мне очень надо и срочно