Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Поиск файлов.


Автор: ivan219 16.10.2006, 22:54
Код.
Код

procedure FindPlugin;
var
   SearchRec:TSearchRec;
   Dir:String;
begin
 Dir:='Plugin';
 try
   if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
    repeat
     if (SearchRec.name='.') or (SearchRec.name='..') then continue;
     if (SearchRec.Attr and faDirectory)=0 then
      if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.DLL' then
       begin
        CaptionPlugin:=SearchRec.name;
        if LoadLib(PChar(Dir+SearchRec.name)) then RecordMenu;
       end;
    until FindNext(SearchRec)<>0;
 finally
   FindClose(SearchRec);
 end;
end;

Обясните мне зачем тут нужна
Код

 if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);

и ещё в каком порядке всё это дело ищит файлы т.е. как по имени по дате создания или ещё как smile

Добавлено @ 22:58 
И ещё может кто распишет этот код а то я непонемаю что к чему smile 

Автор: Yanis 16.10.2006, 23:28
ivan219
Как-то ты странно пытаешься разобраться... Вроде всё просто...
Процедура ищет все файлы (маска '*.*') путём простого рекурсивного перебора.

Цитата(ivan219 @  16.10.2006,  23:54 Найти цитируемый пост)
Обясните мне зачем тут нужна

А справку прочитать? Функция проверяет оканчивается ли строка на '\' (для винды) и добавляет обратный slash,  если нет.

Цитата(ivan219 @  16.10.2006,  23:54 Найти цитируемый пост)
И ещё может кто распишет этот код а то я непонемаю что к чему

В каком месте ты непонимаешь что к чему?

Автор: Демо 16.10.2006, 23:38
Цитата(ivan219 @  16.10.2006,  22:54 Найти цитируемый пост)
Обясните мне зачем тут нужна


Автор этого кода взял готовую функцию, криво передрал. А ты изучаешь ;)

Код

function GetFilesSimple(const FilePath,Mask: String; List: TStrings): Integer;
var
  SR: TSearchRec;
  tPath: String;
begin
{$WARN SYMBOL_PLATFORM OFF}
  Result := 0;
  tPath := IncludeTrailingBackSlash(FilePath);
  if FindFirst(tPath+'*.*',faAnyFile,SR)<>0 then Exit;
  repeat
    if (SR.Name='.') or (SR.Name='..') then Continue;
    if (SR.Attr and faDirectory)=0 then
    begin
      if not MatchesMask(SR.Name,Mask) then Continue;
      List.Add(tPath+SR.Name);
      Inc(Result);
    end
    else Inc(Result,GetFilesSimple(tPath+SR.Name,Mask,List));
  until FindNext(SR)<>0;
  Sysutils.FindClose(SR);
{$WARN SYMBOL_PLATFORM ON}
end;

Автор: ivan219 17.10.2006, 00:25
Цитата(Yanis @  16.10.2006,  23:28 Найти цитируемый пост)
 путём простого рекурсивного перебора.

Это как smile 
Цитата(Yanis @  16.10.2006,  23:28 Найти цитируемый пост)
В каком месте ты непонимаешь что к чему?

Ну что какая функция зачто отвечает какие пораметры и.т.д.
Цитата(Yanis @  16.10.2006,  23:28 Найти цитируемый пост)
А справку прочитать?

Я так и зделал но уменя нет переводчика так что нечего не понял smile 

Цитата(Демо @  16.10.2006,  23:38 Найти цитируемый пост)
Автор этого кода взял готовую функцию, криво передрал. А ты изучаешь ;)

Да похожи но там TStrings а он мне ненужен.

Автор: ~FoX~ 17.10.2006, 14:23
Цитата(ivan219 @  17.10.2006,  01:25 Найти цитируемый пост)
Это как smile 

Это когда функция вызывает сама себя или собственный кусок. Тока вот какая она то не рекурсивная, да и не функция нифига...

Цитата(ivan219 @  17.10.2006,  01:25 Найти цитируемый пост)
Ну что какая функция зачто отвечает какие пораметры и.т.д.


Код

try {пробуем}
   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then {ищем первый файл удовлитворяющий условию}
    repeat {повторям}
     if (SearchRec.name='.') or (SearchRec.name='..') then continue; {если каталог верхнего уровня или предыдущего уровня, тогда просто идем дальше}
     if (SearchRec.Attr and faDirectory)=0 then {если директория топаем дальше}
     if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.DLL' then  {если расширение .DLL}
       begin
        CaptionPlugin:=SearchRec.name; {Пишем в CaptionPlugin имя файла}
        if LoadLib(PChar(Dir+SearchRec.name)) then RecordMenu; {тут какуюто фигню делаем}
       end;
    until FindNext(SearchRec)<>0; {повторям пока не переберем все файлы}
 finally {если что то грохнулось или наоборот не грохнулось, то все завиршаем}
   FindClose(SearchRec); {завиршаем все нафиг}


Корявая процедурка!

Автор: ivan219 17.10.2006, 20:39
~FoX~, спасибо.

А можно не корявую процедуру посмотреть smile 

Так как мне надо искать всего в одной папке фаилы с расширением Dll

Автор: Zero 17.10.2006, 21:24
Цитата(ivan219 @  17.10.2006,  21:39 Найти цитируемый пост)
А можно не корявую процедуру посмотреть 


ivan219, я не понял чё именно ты хочешь, чтобы обязательно твоя процедура была переделана или тебе просто 
Цитата(ivan219 @  17.10.2006,  21:39 Найти цитируемый пост)
Так как мне надо искать всего в одной папке фаилы с расширением Dll 

Если второе то вот так как ты видел в DRKB:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  If FindFirst('c:\Windows\AppPatch\*.*', faAnyFile, SearchRec)=0 then
    repeat
      if copy(SearchRec.Name,pos('.',SearchRec.Name)+1,length(SearchRec.Name)) = 'dll' then
        memo1.Lines.Add(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;


PS: он ищет все длл-ки в каталоге "c:\Windows\AppPatch\"

Добавлено @ 21:26 
Если ты хочешь разобраться именно в той которая написана в первом твоём посте, то говори конкретно чё тебе не понятно... Хотя ~FoX~ вроде более менее smile  описал...

Добавлено @ 21:32 
Цитата(Yanis @  17.10.2006,  00:28 Найти цитируемый пост)
Вроде всё просто...
Процедура ищет все файлы (маска '*.*') путём простого рекурсивного перебора.


Yanis там нет не какой рекурсии. Когда обясняешь опытным-новичкам, то желательно немного конектить с терминологие... smile 

Автор: Yanis 17.10.2006, 21:35
Цитата(Zero @  17.10.2006,  22:24 Найти цитируемый пост)
Yanis там нет не какой рекурсии. Когда обясняешь опытным-новичкам, то желательно немного конектить с терминологие...

Эт я поспешил smile Просто код постоянно в форуме светиться. Наверное из-за этого.
Да и вопросы какие-то... smile

Автор: ivan219 17.10.2006, 22:24
Цитата(Yanis @  17.10.2006,  21:35 Найти цитируемый пост)
Да и вопросы какие-то...

Самые простые smile 

Хотя помойму разобрался smile 

Автор: ivan219 18.10.2006, 02:19
Маленькое дополнение к коду в этом случае будут видны все расширения dll,DLL,Dll....
Код

.
.
if LowerCase(copy(SearchRec.Name,pos.....
.
.

Автор: Демо 18.10.2006, 07:52
Вот блин. Ну что тут непонятного?

Код

function GetFilesSimple(const FilePath): Integer;
var
  SR: TSearchRec;
  tPath: String;
begin
{$WARN SYMBOL_PLATFORM OFF} //Подавляем предупреждение о многоплатформенности
  Result := 0;
  tPath := IncludeTrailingBackSlash(FilePath); //Добавляем слеш в конец
  if FindFirst(tPath+'*.*',faAnyFile,SR)<>0 then Exit;
  repeat
    if (SR.Name='.') or (SR.Name='..') then Continue;
    if (SR.Attr and faDirectory)=0 then
    begin
      if not MatchesMask(SR.Name,'*.dll') then Continue;
      try
        if LoadLib(tPath+SR.Name) then RecordMenu;
      except
//Здесь обрабатываем ошибку, если произошла
      end;
      Inc(Result);
    end;
  until FindNext(SR)<>0;
  Sysutils.FindClose(SR);
{$WARN SYMBOL_PLATFORM ON}
end;

Автор: Yanis 18.10.2006, 08:05
Цитата(Демо @  18.10.2006,  08:52 Найти цитируемый пост)
Вот блин. Ну что тут непонятного?

Я тоже этим вопросом задаюсь. Вижу что ivan219 разбирается, но почему застревает в таких местах -- непонятно.

Автор: ~FoX~ 18.10.2006, 08:09
Цитата(~FoX~ @  17.10.2006,  15:23 Найти цитируемый пост)
 if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.DLL' then

А не проще 
Код

FindFirst(Dir+'*.DLL', faAnyFile, SearchRec)

Финды не чувствительны к регистру.

Добавлено @ 08:17 
[/code]
Цитата(ivan219 @  17.10.2006,  21:39 Найти цитируемый пост)
А можно не корявую процедуру посмотреть smile 


Можно:
Код

procedure GetFile(Dir: string; ras: string); //Dir - путь в котором искать ras - расширение в формате '/*.DLL'
var
  f : TSearchRec; //Структура такая, в ней храниться все о найденом файле
  i : integer;
  FPath, SPath : TStrigList; //полный путь и просто название файла
begin
  FPath := TStringList.Create; // Создаем листы
  SPath := TStringList.Create; 
  i := FindFirst(Dir+ras, faAnyFile, f); //Находим первый файл
  while (i=0) do  begin  //Повторяем поиск пока фалы не кончаться
     FPath.Add(Dir+f.Name); //Полный путь к фалу
     SPath.Add(f.Name); // Название файла
     i := FindNext(f); //Ищем слдующий
     Application.ProcessMessages; //Чтоб не тормазило
  end; //while
  FindClose(f); //Закрываем наш поиск
end;


Вызывается так: 
Код

GetFile('c:\MyPapkaDlyaPoicka\', '\*.DLL');

Автор: Yanis 18.10.2006, 08:18
Цитата(~FoX~ @  18.10.2006,  09:09 Найти цитируемый пост)
Финды не чувствительны к регистру.

Финды нет, а pascal да smile

Автор: ~FoX~ 18.10.2006, 08:22
Цитата(Yanis @  18.10.2006,  09:18 Найти цитируемый пост)
Финды нет, а pascal да smile 

(фИнды, а не финдЫ)  smile 

Я имел ввиду FindFirst((Dir+'*.DLL', faAnyFile, SearchRec) тоже самое что FindFirst((Dir+'*.dLl', faAnyFile, SearchRec)  

Автор: ivan219 18.10.2006, 13:28
Цитата(Yanis @  18.10.2006,  08:05 Найти цитируемый пост)
Вижу что ivan219 разбирается, но почему застревает в таких местах -- непонятно.

Да не зострял я.

Я просто хотел узнать читаем первый пост smile 

Но на вопрос в каком порядке ищутся файлы так мне некто и неответил а мне это надо знать smile 
Сказали рекурсивный а что рекурсивный это как smile 

И ещё хотел узнать какой способ самый быстрый smile  а вы пинатся начали smile 

Автор: _hunter 18.10.2006, 13:56
ни в каком они порядке ищутся -- как в таблице файлов записанны, так и ищутся.
поэтому, обычно, имена файлов показывают не сразу, а пишут в какой-нить вектор, который потом сортируют.

Автор: ivan219 18.10.2006, 14:04
Цитата(_hunter @  18.10.2006,  13:56 Найти цитируемый пост)
ни в каком они порядке ищутся

А это не есть зэргут smile 

Автор: Zero 18.10.2006, 18:49
Цитата(ivan219 @  18.10.2006,  14:28 Найти цитируемый пост)
Но на вопрос в каком порядке ищутся файлы так мне некто и неответил а мне это надо знать


ivan219, вот тут:
http://forum.vingrad.ru/index.php?showtopic=116792&view=findpost&p=892041
Я привёл код поиска длл-лок, и в том порядке в котором ты их увидишь в поле мемо, в том порядке они и ищутся. Логично??? smile 
Цитата(ivan219 @  18.10.2006,  14:28 Найти цитируемый пост)
Сказали рекурсивный а что рекурсивный это как 

После этого поста, ты видимо не читал, но там было описано на счёт рекурсии.
Цитата(ivan219 @  18.10.2006,  14:28 Найти цитируемый пост)
И ещё хотел узнать какой способ самый быстрый 

Ну используя стандартные функции, это и есть самый быстрый... Т.к. там уже всё продумано.

Добавлено @ 18:51 
Цитата(ivan219 @  18.10.2006,  15:04 Найти цитируемый пост)
Цитата(_hunter @  18.10.2006,  13:56 )
ни в каком они порядке ищутся


А это не есть зэргут 

Ты прочитал начало, и не дочитал до конца поэтому не понял ответ. Но приглидись так:
Цитата(_hunter @  18.10.2006,  14:56 Найти цитируемый пост)
как в таблице файлов записанны, так и ищутся.

Это можно сказать и был ответ. smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)