文档章节

遍历指定目录下指定类型文件的函数

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 248
阅读 3
收藏 0
// ================================================================
// 遍历某个文件夹下某种文件,
// 使用说明
//       _GetFileList(ListBox1.Items,'c:\*.doc');
//           _GetFileList(MyTStringList,'c:\*.exe');
// ================================================================
procedure TForm1._GetFileList(AStrings: TStrings ; ASourFile: string);
var sour_path,sour_file: string;
    TmpList:TStringList;
    FileRec:TSearchrec;
begin

   sour_path:=ExtractFilePath(ASourFile);
   sour_file:=ExtractFileName(ASourFile);

   if not DirectoryExists(sour_path) then
   begin
     AStrings.Clear;
     exit;
   end;

   TmpList:=TStringList.Create;
   TmpList.Clear;

   if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then
   repeat
      if ((FileRec.Attr and faDirectory) = 0) then
         begin
           TmpList.Add(sour_path+FileRec.Name)
         end;
   until FindNext(FileRec)<>0;

   SysUtils.FindClose(FileRec);

   AStrings.Assign(TmpList);

   TmpList.Free;
end;

// ================================================================
// 遍历某个文件夹及子文件夹下某种文件,
// 使用说明
//       _GetFileList(ListBox1.Items, 'c:\', '*.doc');
//           _GetFileList(MyTStringList, 'c:\', '*.exe');
// ================================================================
procedure _GetFileList(AStrings: TStrings; ASourFile,
  FileName: string);
var sour_path,sour_file: string;
    TmpList:TStringList;
    FileRec, subFileRec:TSearchrec;
    i: Integer;
begin
   if rightStr(trim(ASourFile), 1) <> '\' then
     sour_path :=trim(ASourFile) + '\'
   else
     sour_path :=trim(ASourFile);
   sour_file:= FileName;

   if not DirectoryExists(sour_path) then
   begin
     AStrings.Clear;
     exit;
   end;

   TmpList:=TStringList.Create;
   TmpList.Clear;

   if FindFirst(sour_path+'*.*',faAnyfile,FileRec) = 0 then
   repeat
      if ((FileRec.Attr and faDirectory) <> 0) then
         begin
           if ((FileRec.Name<> '.') and (FileRec.Name  <> '..')) then
             _GetFileList(AStrings, sour_path+ FileRec.Name + '\',  sour_file);
         end
      else
        if FindFirst(sour_path + FileName,faAnyfile,subFileRec) = 0 then
        repeat
          if ((subFileRec.Attr and faDirectory) = 0) then
            TmpList.Add(sour_path+subFileRec.Name);
        until FindNext(subFileRec)<>0;

   until FindNext(FileRec)<>0;

   FindClose(FileRec);
   for i := 0 to TmpList.Count -1 do
     AStrings.Add(TmpList.Strings[i]);

   TmpList.Free;
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2007/11/21/967085.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Python实现批量解析PDF文件提取内容并写入到Excel中

摘要:最近需要将一批PDF文件中的某些数据整理到Excel中,因为文件数量接近20w+,手动更新几乎不现实,于是就提取关键词和内容动手写了个Python小工具,以实现自动完成上述目标。 要求: 基本...

_周小董
05/20
0
0
按字典值排序--找出大小最大的十个文件

问题分析: 需要确认某路径下所有文件的大小 需要排序,找出最大的十个 以字典的形式保存数据 准备知识: operator模块: fun = operator.itemgetter(1), fun 是一个由operator.itemgetter(1...

hello_cjq
2016/10/15
0
0
C#遍历指定文件夹中的所有文件

C#遍历指定文件夹中的所有文件DirectoryInfo TheFolder=new DirectoryInfo(folderFullName);//遍历文件夹foreach(DirectoryInfo NextFolder in TheFolder.GetDirectories())this.listBox1.It......

vga
2016/08/06
7
2
C# 遍历指定文件夹中的所有文件

如何获取指定目录包含的文件和子目录 DirectoryInfo.GetFiles() //获取目录中(不包含子目录)的文件,返回类型为FileInfo[],支持通配符查找; DirectoryInfo.GetDirectories() //获取目录(...

Contac
2016/07/25
46
0
python—函数实例2

一、递归 几种常用内置函数方法: 1)os.listdir():列出第一层目录文件 In [14]: os.listdir("/root/python")Out[14]:['20.py','1.py','19.py','21.py'] 2)os.path.isdir():判断是不是目录...

huangzp168
2017/12/02
0
0

没有更多内容

加载失败,请刷新页面

加载更多

ppwjs之bootstrap文字排版:字体大小写设置

<!DOCTYPT html><html><head><meta http-equiv="content-type" content="text/html; charset=utf-8" /><title>ppwjs欢迎您</title><link rel="icon" href="/favicon.ico" ......

ppwjs
26分钟前
1
0
线性代数入门

线性代数的概念对于理解机器学习背后的原理非常重要,尤其是在深度学习领域中。它可以帮助我们更好地理解算法内部到底是怎么运行的,借此,我们就能够更好的做出决策。所以,如果你真的希望了...

牛奋Debug
40分钟前
1
0
开发5分钟,调试2小时 - 该如何debug?

几年来我在答疑群、论坛、公众号、知乎回答的各种问题,没有一万也有八千。其中有三分之二以上都是在帮人看报错,帮人 debug(调试代码)。 可以说,会不会 debug,有没有 debug 的意识,懂不...

crossin
41分钟前
1
1
SQL count(*) 和count(1)的区别

开发中经常会使用这两个聚合函数,作用都是用来统计记录行,今天查找资料发现,其实这两个函数并没有区别, 实践才是检验的标准,首先看执行计划(表是我自己建立的): 可以看到,两个执行计...

一曲图森破
45分钟前
1
0
区块链100讲:详解区块链之P2P网络

1 P2P网络 如果我们简单来看 P2P 技术,它的应用领域已经非常广泛了,从流媒体到点对点通讯、从文件共享到协同处理,多种领域都有它的身影出现。 同样的,P2P 的网络协议也有很多,比较常见的...

HiBlock
今天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部