用Delphi7的文件搜索功能所遇到的不足和解决方法探索

最新推荐文章于 2024-05-03 10:14:52 发布
最新推荐文章于 2024-05-03 10:14:52 发布
阅读量158 收藏
点赞数
文章标签： 算法 c语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/linkerchen/article/details/131006812
版权

         正规的文件搜索方法，是Findfirst,然后用循环Findnext直到末端。此方法在功能上没有问题，处理文件数在1万之内的目录，问题不大，但是如果文件数高达数万以上，速度就很慢，搜索系统的Windows目录（win10），可长达数分钟。

为解决以上问题，可以尝试以下两种方法：

1、可以尝试使用多线程（本人未验证）；
2、可以调用cmd.exe的dir，输出到文本文档，再从中二次搜索。

以上                          

                                                    欢迎交流~

地球籍华人
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
Delphi7中Memo组件实现查找替换功能
06-25
Delphi7中Memo组件实现查找替换功能
【源码】10分钟10行代码开发APP(delphi 应用案例)
09-14
仅用了不到三分钟时间，没写一行代码完成数据服务器程序开发；余下5分钟完成应用端程序配置与界面、再用了2分钟完成10行代码，总共10分钟10行代码完成了包括用户登录、数据读取、数据显示、检索等功能，并可生成Android、iOS、Mac、Win32、Win64多个运行平台下的应用程序（APP）。资源为事例源码，有部分简单调优。
Delphi7文件操作常用函数一
热门推荐
kimifdw的专栏
02-21 1万+
1. AssignFile、Erase AssignFile procedure AssignFile(var F; FileName: string);：给文件变量连接一个外部文件名。这里需要注意的是AssignFile不能用在已打开的文件上。 procedure TForm1.Button1Click(Sender: TObject); var text : String;
delphi 搜索文件夹_如何使用Delphi搜索文件和文件夹
cumao2792的博客
09-12 1574
delphi 搜索文件夹 When looking for files, it is often useful and necessary to search through subfolders. Here, see how to use Delphi's strength to create a simple, but powerful, find-all-matching-files pro...
Delphi版本号对照
weixin_34021089的博客
01-08 107
Delphi版本号对照 VER10  :Turbo Pascal 1VER20  : Turbo Pascal 2VER30  : Turbo Pascal 3VER40  : Turbo Pascal 4VER50  : Turbo Pascal 5VER60  : Turbo Pascal 6VER70  : Turbo Pascal 7VER80  : Delphi 1VER90  : D...
delphi文件搜索控件
11-13
文件搜索控件 TEasyFileSearch v1.02 by Alexandre GAMBIER Read versions.txt file if you want to see modifications made between each version. Thanks ------ Thanks to : - Udo for his tests on C++ Builder 5 and his ideas for v1.01, v1.02 - J.M. Fontaine for his test on Delphi 7 and his orthography help for v1.01. 1 - DESCRIPTION --------------- TEasyFileSearch is freeware and you use it at your own risk. TEasyFileSearch is completely free also for commercial use. TEasyFileSearch is a component which enable you to search file or folder in directory and subdirectory, using filter mask (*.*, *.exe, ...). You define some search criteria : - look in subfolder , - look for readonly file , - look for hidden file , - look for system file , - look for archile file , - look for directory file, - look for anyfile file . You can filter your research - look for files that is smaller or equal to a size, - look for files that is bigger or equal to a size, - look for file than date is between two date, younger, older or the same than a date, - look for created, modified or opened files. You can exclude files using filter mask, for example you can exclude all files *.exe. TEasyFileSearch don't use recursive function (no stack owerflow error). 2 - LANGUAGE/OS --------------- TEasyFileSearch has been tested only on Delphi 5, 7 and C++ Builder 5. 3 - INSTALLATION ---------------- 1. Extract the TEasyFileSearch.zip 2. Choose Component|Install Component... from the menu 3. Select the Tab 'Into New Package' and fill in: At 'Unit file name': Browse and Select EasyFileSearchReg.pas from the directory where you installed it. At 'Package file name': TEasyFileSearch ( In the directory Projects\Lib ) At 'Description': TEasyFileSearch - looking for files Select Ok 4. You will be asked to confirm building the packag
delphi查找文件
weixin_34270606的博客
03-01 239
unit unitFrmMain;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; ...
遍历目录查找文件delphi
01-20
遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件
多线程文件搜索专家(delphi源码)
05-13
多线程文件搜索专家是本人在开发某大型工程时编写的一个自编辅助工具，希望对大家有用
delphi文件搜索源代码
01-28
是开始学习delphi人的一个编程模板！
DELPHI搜索文件的示例
10-31
搜索TXT 文件的示例unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Memo2: TMemo; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; ButtonSearchFile: TButton; FolderPath: TEdit; FileExt: TEdit; ProgressBar1: TProgressBar; procedure ButtonSearchFileClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure SearchFile1(FileName: string; FindText: string); function MakeFileList(Path, FileExt: string): TStringList; function FileInUsed(FileName: TFileName): Boolean; public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} { Search Options KeyWord in file FileName FileSize FileCreateTime FileModifyTime keyword filepath openfile found addListbox } var FileNamePathList, FileNameList: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin FileNameList := TStringList.Create; FileNamePathList := TStringList.Create; end; { if FileInUsed ('D:\Administrator\Documents\MyProjects\FileSearch\Win32\Debug\Project1.exe') then ShowMessage('File is in use.') else ShowMessage('File not in use.'); } function TForm1.FileInUsed(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; // 如果文件不存在，返回false HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; procedure TForm1.SearchFile1(FileName: string; FindText: string); var SearchList: TStringList; begin try SearchList := TStringList.Create; if FileExists(FileName) and (not FileInUsed(FileName)) then begin SearchList.LoadFromFile(FileName); if Boolean(Pos(UpperCase(FindText), UpperCase(SearchList.Text))) then begin FileNameList.Add(ExtractFileName(FileName)); FileNamePathList.Add(FileName); end; end; finally SearchList.Free; end; end; procedure TForm1.ButtonSearchFileClick(Sender: TObject); var I, n: Integer; List: TStringList; begin try ButtonSearchFile.Caption := 'SearchFile'; List := TStringList.Create; List.Clear; FileNameList.Clear; FileNamePathList.Clear; List := MakeFileList(FolderPath.Text, FileExt.Text); ProgressBar1.Max := List.Count; for I := 0 to List.Count - 1 do begin Application.ProcessMessages; SearchFile1(List[I], Edit1.Text); ProgressBar1.Position := I; end; ListBox1.Items.Text := FileNameList.Text; ButtonSearchFile.Caption := IntToStr(FileNamePathList.Count) + ' 条'; finally List.Free; end; end; { 这个过程得显示进度 } function TForm1.MakeFileList(Path, FileExt: string): TStringList; var sch: TSearchrec; begin Result := TStringList.Create; if RightStr(Trim(Path), 1) '\' then Path := Trim(Path) + '\' else Path := Trim(Path); if not DirectoryExists(Path) then begin Result.Clear; Exit; end; if FindFirst(Path + '*', faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = '.') or (sch.Name = '..')) then Continue; if DirectoryExists(Path + sch.Name) then begin Result.AddStrings(MakeFileList(Path + sch.Name, FileExt)); end else begin if (UpperCase(ExtractFileExt(Path + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*') then Result.Add(Path + sch.Name); end; until FindNext(sch) 0; FindClose(sch); end; end; procedure TForm1.ListBox1Click(Sender: TObject); var s: string; txt: string; begin if not FileExists(FileNamePathList[ListBox1.ItemIndex]) then Exit; Memo2.Lines.LoadFromFile(FileNamePathList[ListBox1.ItemIndex]); Caption := FileNamePathList[ListBox1.ItemIndex]; txt := Form1.Memo2.Text; if Boolean(Pos(UpperCase(Edit1.Text), UpperCase(txt))) then begin Memo2.SetFocus; Memo2.SelStart := Pos(UpperCase(Edit1.Text), UpperCase(txt)) - 1; Memo2.SelLength := Length(Edit1.Text); end; end; end.
delphi7使用TSQLCONNECTION连接mysql5无法设置端口的解决方法
07-15
delphi7使用TSQLCONNECTION连接mysql5无法设置端口的问题,经常修改dbxopenmysql50代码，终于实现了修改。 下载新的dbxopenmysql50.dll后，添加SQLCONNECTION1.Params.Append('Server Port=3388' ）代码即可。
Delphi用TActionList实现下载文件的方法
09-04
主要介绍了Delphi用TActionList实现下载文件的方法,需要的朋友可以参考下
delphi使用Chilkat 组件和库从SFTP下载文件的方法
08-25
主要介绍了delphi使用Chilkat 组件和库从SFTP下载文件的方法,本文通过实例代码给大家介绍的非常详细，具有一定的参考借鉴价值，需要的朋友可以参考下
Delphi 中内存映射对于大文件的使用
08-29
主要介绍了Delphi 中内存映射对于大文件的使用的相关资料,希望通过本文能帮助到大家，需要的朋友可以参考下
Delphi搜索文件源代码
05-18
摘要:Delphi源码,文件操作,搜索文件　Delphi搜索文件源码实例，比较简单的那种文件搜索了，基础的FSO文件系统操作，搜索速度也还可以，这个模块可用到你的Delphi项目中，本例中，输入文件和文件目录也就是路径后，就...
Rapidly exploring Random Trees(RRT)类算法
qq_35635374的博客
04-28 328
认知有限，望大家多多包涵，有什么问题也希望能够与大家多交流，共同成长！本文先对Rapidly exploring Random Trees(RRT)类算法做个简单的介绍，具体内容后续再更，其他模块可以参考去我其他文章提示：以下是本篇文章正文内容（1）优点快速随机树算法是一种较为迅捷搜索的方式，增量式的构建树其优点明显，主要体现在针对性的找一条从起点到终点的路径其较强较快的搜索能力，【防盗标记–盒子君hzj】并且运用快速拓展随机树的路径规划对路径运行环境没有限制要求。（2）缺点。
笔试强训-day17_T2 十字爆破
最新发布
weixin_46186903的博客
05-03 628
模拟即可，但是由于数据量过⼤，我们可以提前把每⼀⾏以及每⼀列的和存起来，⽅便统计总和。解法二：提前把每⼀⾏以及每⼀列的和存起来，然后输入输出使用快速的IO方式，解答如下所示。解法一：暴力遍历，这种方法很容易想到，并且也容易编写出代码，但是会超时。因为1+2+3=6，1+2+4=7，1+3+4=8，2+3+4=9。牛牛选择一个方格，可以得到和这个方格同行、同列的所有数之和的得分。现在牛牛想知道下一步选择每个格子的得分情况，你可以帮帮他吗？m个方格，每个方格中有一个整数。
leetcode16-3Sum Closest
我的程序人生
04-29 316
这道题目和那道3Num的题目很类似，解题思路也是类似的，我们先对数组排序，然后固定一个元素，通过双指针遍历剩下的元素，用一个哨兵记录三个元素的和与target的diff，分别处理三个元素的和小于target，大于target，等于target这三种情况即可。请你从 nums 中选出三个整数，使它们的和与 target 最接近。解释：与 target 最接近的和是 2 (-1 + 2 + 1 = 2)。输入：nums = [-1,2,1,-4], target = 1。假定每组输入只存在恰好一个解。
DELPHI7加载UNICODE编码格式的TXT显示为乱码的解决方法
05-31
在 Delphi7 中加载 Unicode 编码格式的 TXT 文件时，会出现乱码的情况，可以尝试以下解决方法： 1. 打开 TXT 文件时，使用 TFileStream 类型的对象，并设置编码格式为 Unicode。 2. 使用 TEncoding 类型的对象进行编码转换，将 Unicode 编码转换为 ANSI 编码。 3. 在 Delphi7 中，需要使用 WideChar 类型的字符串来表示 Unicode 编码的字符串，使用 AnsiString 类型的字符串来表示 ANSI 编码的字符串。 下面是一个示例代码： ```delphi var FileStream: TFileStream; Encoding: TEncoding; UnicodeStr: WideString; AnsiStr: AnsiString; begin FileStream := TFileStream.Create('test.txt', fmOpenRead or fmShareDenyNone); Encoding := TEncoding.Unicode; try SetLength(UnicodeStr, FileStream.Size div SizeOf(WideChar)); FileStream.ReadBuffer(Pointer(UnicodeStr)^, FileStream.Size); AnsiStr := Encoding.GetBytes(UnicodeStr); finally Encoding.Free; FileStream.Free; end; // 此时 AnsiStr 就是转换后的 ANSI 编码的字符串，可以在 Delphi7 中正常显示。 end; ``` 希望这可以帮助到你！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值