首页 >> 读书频道 >> 电脑 >> 子目录级的文件查询的实现
 
· 主要上学不到东西
· Rave Reports
· Rave报表介绍之二:
· Rave结构
· RAVE中Band的Ba
· TRvCustomCon
· RAVE中TRvSyst
· 如何显示中文化的打印预览
· Rave5之Memo控件
· rave将页面设置为横向
· RAVE中如何设置纸张大
· 在Rave报表中打印Te
 
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

子目录级的文件查询的实现


查看有无更新版本

关键字:Delphi/Pascal 2006-9-22

 

在应用实践中,我们经常会用到文件查询功能。通过Win95中提供的懳募檎覓,我们可以
方便的找出磁盘上任何子目录下的文件,其原因是该查找功能可以遍历指定目录下的所有子
目录中的文件。从编程角度讲,它实现了子目录级的文件查询。

其实,这项功能并不难实现,关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi
实现了该项功能(任意子目录级),由于使用了懙莨閽,程序思路清晰,代码量小。

实现方法:

1. 获取当前目录下的所有下一级子目录,2. 存入字符串列表中(Tstrings)。

其中,用到了几个API函数。

FindFirst是找出指定目录下第一个文件或目录。

FindNext一般和FindFirst配合使用,用来找出下一个文件或目录。

FindClose用来关闭查询。

(以上函数Delphi在线帮助中有详尽解释,在此不赘述);

3. 用FileExists函数查找当前目录,4. 寻找是否有满足条件的文件存在。

5. 依次使各个子目录成为当前目录,6. 递归调用本函数。

7. 释放资源,8. 返回查询结果。

 

 

代码如下:

1. 从搜索记录中判断是否是子目录。

 

function IsValidDir(SearchRec:TSearchRec):Boolean;

begin

if (SearchRec.Attr=16) and

(SearchRec.Name<>'.') and

(SearchRec.Name<>'..') then

Result:=True

else

Result:=False;

end;

2. 这是查询主体函数。

参数介绍:

Mainpath: 指定的查询目录。

Filename: 欲查询的文件。

Foundresult: 返回的含完整路径的匹配文件(可能有多个)。

如果有匹配文件,函数返回True,否则,返回False;

 

function SearchFile(mainpath:string;filename:string;

var foundresult:TStrings):Boolean;

var

i:integer;

Found:Boolean;

subdir1:TStrings;

searchRec:TsearchRec;

begin

found:=false;

if Trim(filename)<>'' then

begin

subdir1:=TStringList.Create;//字符串列表必须动态生成

//找出所有下级子目录。

if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then

begin

if IsValidDir(SearchRec) then

subdir1.Add(SearchRec.Name);

while (FindNext(SearchRec) = 0) do

begin

if IsValidDir(SearchRec) then

subdir1.Add(SearchRec.Name);

end;

end;

FindClose(SearchRec);

//查找当前目录。

if FileExists(mainpath+filename) then

begin

found:=true;

foundresult.Add(mainpath+filename);

end;

//这是递归部分,查找各子目录。

for i:=0 to subdir1.Count-1 do

found:=Searchfile(mainpath+subdir1.Strings+

'\',Filename,foundresult)or found;

//资源释放并返回结果。

subdir1.Free;

end;

result:=found;

end;

 

总之,只要掌握了思路,用哪种编程语言都可以实现。现在,你可以轻松的给你的系统挂上
一个非常使用的功能了。

 

子目录级的文件查询的实现

[ 1 ]
子目录级的文件查询的实现 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑