Платные хостинги     Раскрутка сайта     Книги по программированию

Подскажите как оптимизировать алгоритм

- Как наиболее быстрым способом узнать, сколько файлов с определенным расширением есть в определенной папке?Реализация на Delphi:Код var CountAllFiles: integer; // переменная показывает сколько файлов найденоprocedure TForm1.GetCountFile(Dir: string);var  SearchRec : TSearchRec;  Separator : string;begin  CountAllFiles := 0;  if Copy(Dir,Length(Dir),1)='\' then Separator := ''  else Separator := '\';  if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then     begin      if FileExists(Dir+Separator+SearchRec.Name) then         begin           if (ExtractFileExt(SearchRec.Name) = '.html') or (ExtractFileExt(SearchRec.Name) = '.htm') then              CountAllFiles := CountAllFiles + 1;         end      else if DirectoryExists(Dir+Separator+SearchRec.Name) then              begin                if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then                   SearchText(Dir+Separator+SearchRec.Name);              end;              while FindNext(SearchRec) = 0 do                begin                  if FileExists(Dir+Separator+SearchRec.Name) then                     begin                       if (ExtractFileExt(SearchRec.Name) = '.html') or (ExtractFileExt(SearchRec.Name) = '.htm') then                          begin                            CountAllFiles := CountAllFiles + 1;                           end;                     end                  else if DirectoryExists(Dir+Separator+SearchRec.Name) then                          begin                            if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then                                SearchText(Dir+Separator+SearchRec.Name);                          end;                end;     end;  FindClose(SearchRec);end;highlightSyntax('delphiWNiZDc','delphi');Реализация на Visual Basic:Код Private Sub Command1_Click()  Dim fso, f, fc, f1  Dim i As Integer    Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.GetFolder("E:\1\nedvig_dp_ua\")  Set fc = f.Files    For Each f1 In fc    If Right(f1.Path, 3) = "htm" Or Right(f1.Path, 4) = "html" Then       i = i + 1Label1.Caption = Str(i)  ‘показывает сколько файлов нашла…       DoEvents    End If  Next    Set fc = Nothing  Set f = Nothing  Set fso = NothingEnd SubhighlightSyntax('delphiUzMzU0M','delphi');И то и другое работает крайне медленно. Как это можно сделать быстрее?

- Код Function GetFileCount(Dir:string):integer;var fs:TSearchRec;begin  Result:=0;  if FindFirst(Dir+'\*.htm?',faAnyFile-faDirectory-faVolumeID, fs)=0 then    repeat      inc(Result);    until FindNext(fs)<>0;  FindClose(fs);end;highlightSyntax('delphiYjE1Nz','delphi');

- Большое спасибо Vit.

- Все было хорошо и прекрасно до тех пор, пока я использовал эту функциюв Windows NT 4.0 Servise Pack 6. Она находила и htm и html.Но когда программу запустили в Windows 98. Эта функция подсчитывала только html файлы. htm файлы она не видела.Перекомпиляция проекта под Windows 98 ничего не дала.Может, нужна какая то самая последняя версия DLL-файла. Какая именно я не знаю.Если не сложно объясните в чем проблема?

- Разобрался:В маске поиска функции FindFirst знак "?" нужно заменить на "*"

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD