admin

[系统应用] delphi 文件夹目录遍历搜索文件,按文件名包含文字或扩展名


//文件搜索函数

procedure SearchFile(path: PChar; fileExt: string; fileList: TStringList);

var 

   searchRec: TSearchRec;  

   found: Integer;  

   tmpStr: string;  

   curDir: string;  

   dirs: TQueue;  

   pszDir: PChar;  

begin 

   dirs := TQueue.Create; //创建目录队列  

   dirs.Push(path); //将起始搜索路径入队  

   pszDir := dirs.Pop;  

   curDir := StrPas(pszDir); //出队  

   {开始遍历,直至队列为空(即没有目录需要遍历)} 

   while (True) do 

   begin 

      //加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径  

      tmpStr := curDir + '\*.*';  

      //在当前目录查找第一个文件、子目录  

      found := FindFirst(tmpStr, faAnyFile, searchRec);  

      while found = 0 do //找到了一个文件或目录后  

      begin 

          //如果找到的是个目录  

         if (searchRec.Attr and faDirectory) <> 0 then 

         begin 

          {在搜索非根目录(C:\、D:\)下的子目录时会出现'.','..'的"虚拟目录" 

          大概是表示上层目录和下层目录吧。。。要过滤掉才可以} 

            if (searchRec.Name <> '.') and (searchRec.Name <> '..') then 

            begin 

               {由于查找到的子目录只有个目录名,所以要添上上层目录的路径 

                searchRec.Name = 'Windows'; 

                tmpStr:='c:\Windows'; 

                加个断点就一清二楚了 

               } 

               tmpStr := curDir + '\' + searchRec.Name;  

               {将搜索到的目录入队。让它先晾着。 

                因为TQueue里面的数据只能是指针,所以要把string转换为PChar 

                同时使用StrNew函数重新申请一个空间存入数据,否则会使已经进 

                入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。} 

               dirs.Push(StrNew(PChar(tmpStr)));  

            end;  

         end 

         else //如果找到的是个文件  

         begin 

             {Result记录着搜索到的文件数。可是我是用CreateThread创建线程 

              来调用函数的,不知道怎么得到这个返回值。。。我不想用全局变量} 

            //文件名中包含字符串

            if Pos(fileExt,searchRec.Name)>0 then fileList.Add(curDir + '\' + searchRec.Name);


//            if fileExt = '.*' then

//               fileList.Add(curDir + '\' + searchRec.Name)

//            else

//            begin

//               if SameText(RightStr(curDir + '\' + searchRec.Name, Length(fileExt)), fileExt) then

//                  fileList.Add(curDir + '\' + searchRec.Name);

//            end;

         end;

          //查找下一个文件或目录  

         found := FindNext(searchRec);  

      end;  

      {当前目录找到后,如果队列中没有数据,则表示全部找到了; 

        否则就是还有子目录未查找,取一个出来继续查找。} 

      if dirs.Count > 0 then 

      begin 

         pszDir := dirs.Pop;  

         curDir := StrPas(pszDir);  

         StrDispose(pszDir);  

      end 

      else 

         break;  

   end;  

   //释放资源  

   dirs.Free;  

   FindClose(searchRec);  

end; 


#1楼
发帖时间:8月前   |   查看数:0   |   回复数:0
游客组