文档章节

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

涂孟超
 涂孟超
发布于 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
C#遍历指定文件夹中的所有文件

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

vga
2016/08/06
7
2
按字典值排序--找出大小最大的十个文件

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

hello_cjq
2016/10/15
0
0
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

没有更多内容

加载失败,请刷新页面

加载更多

pyhanlp 停用词与用户自定义词典功能详解

hanlp的词典模式 之前我们看了hanlp的词性标注,现在我们就要使用自定义词典与停用词功能了,首先关于HanLP的词性标注方式具体请看HanLP词性标注集。 其核心词典形式如下: 自定义词典 自定义...

左手的倒影
28分钟前
1
0
颜色模型和颜色应用---CMY和CMYK颜色模型

CMY参数 CMY颜色空间和RGB颜色空间之间的转换

中国龙-扬科
37分钟前
3
0
Golang通道的无阻塞读写的方法示例

无论是无缓冲通道,还是有缓冲通道,都存在阻塞的情况,但其实有些情况,我们并不想读数据或者写数据阻塞在那里,有1个唯一的解决办法,那就是使用select结构。 这篇文章会介绍,哪些情况会存...

kaixin_code
37分钟前
2
0
Web登录中的信心安全问题

1. 一个简单的HTML例子看看用户信息安全 标准的HTML语法中,支持在form表单中使用<input></input>标签来创建一个HTTP提交的属性,现代的WEB登录中,常见的是下面这样的表单: <form action ...

开元中国2015
43分钟前
1
0
Hbulider打包iOS遇到的一些坑

video 全屏播放问题 在 manifest.json 的代码视图中,plus 值需加入 "allowsInlineMediaPlayback": true,如下,允许ios不进行全屏播放 "plus": { "allowsInlineMediaPlayback": true} ...

林梓阳
43分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部