在文件夹中搜索大量特定文件名答案

【问题标题】：Searching for a big amount of specific filenames inside a folder在文件夹中搜索大量特定文件名
【发布时间】：2020-03-26 08:00:42
【问题描述】：

我有一个包含很多文件的文件夹，即：

C:\Tmp\Input\random00001.txt
C:\Tmp\Input\random00002.txt
C:\Tmp\Input\random00003.txt
...
C:\Tmp\Input\random10000.txt

我有一个大列表（大约两/三百个）需要复制到另一个文件夹的特定文件名，即：

random00002.txt
random00009.txt
random04001.txt
...
random90000.txt

我尝试使用 Windows 搜索使用 OR 关键字分隔文件名，但文件太多，它会切断过滤器字符串...

我还尝试编写一个允许使用过滤器复制文件的函数，但它似乎不适用于 OR 关键字

uses
  SysUtils, IOUtils;

procedure CopyFiles(const AInputPath : string; const AOutputPath : string; const AFilter : string = '*.*');
var
  Found : boolean;
  Res: TSearchRec;
begin
  Found := (FindFirst(AInputPath + AFilter, faAnyFile, Res) = 0);
  while(Found) do
  begin
    if((Res.Attr AND faDirectory = 0) AND (Res.Name <> '.') AND (Res.Name <> '..')) then
    begin
      TFile.Copy(AInputPath + Res.Name, AOutputPath + Res.Name);
    end;
    Found := (FindNext(Res) = 0);
  end;
  FindClose(Res);
end;

【问题讨论】：

您真的需要在 Delphi 中完成此操作，还是通过 Notepad++（或任何支持块选择的文本编辑器）的快捷方式生成批处理文件？
在循环内添加对文件名的过滤后，使用 FindFirst 的代码将正常工作。
你为什么不直接使用TDirectory.GetFiles()然后检查你要复制的文件？
过滤器也可以是random06???.txt。此外，如果您事先知道要复制哪些文件，则无需遍历所有现有文件。

标签： delphi delphi-xe7

【解决方案1】：

如果你有要复制的名字列表，检查当前名字是否属于这个列表就足够了

if((Res.Attr AND faDirectory = 0) AND (Res.Name <> '.') AND (Res.Name <> '..')) then
    begin
      if  Res.Name in Names then
        TFile.Copy(AInputPath + Res.Name, AOutputPath + Res.Name);
    end;

if Res.Name in Names 的实现取决于细节 - 名称可能是 Dictionary、StringList、sorted one 等等（（你没有指定细节）

【讨论】：