• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi批量更改文件名

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

procedure TFormSWITCHFILENAME.btn_changeClick(Sender: TObject);  //替换文件名
var
  dir: string;
  FileNameList: TStringList;
  RenameFile: file;
  FileName:string;
  i:Integer;
begin
  dir := trim(cxtxt_filename.Text);

  FileNameList := TStringList.Create;
   //EnumFileInQueue(PChar(dir), '.*', FileNameList);
  EnumFileInQueue(PChar(dir), '.*', FileNameList);
  for i := 0 to FileNameList.Count-1 do
  begin
       FileName := StringReplace (Trim(FileNameList.Strings[i]), Trim(cxtxt1.Text), Trim(cxtxt2.Text), [rfReplaceAll, rfIgnoreCase]) ;
       AssignFile(RenameFile, Trim(FileNameList.Strings[i]));//将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
       Rename(RenameFile, FileName);//更改文件名
  end;

  FileNameList.Free;
end;

procedure TFormSWITCHFILENAME.btn_exitClick(Sender: TObject);
begin
  Close; //退出
end;

procedure TFormSWITCHFILENAME.btn_searchClick(Sender: TObject); //搜索该文件夹下文件名
var
  dir: string;
  FileNameList: TStringList;
  i: Integer;
begin
  dir := trim(cxtxt_filename.Text);
  FileNameList := TStringList.Create;
  EnumFileInQueue(PChar(dir), '.*', FileNameList);
  for i := 0 to FileNameList.Count - 1 do
  begin
    cxm_filename.Lines.Add(FileNameList.Strings[i]);
  end;
  FileNameList.Free;
end;

procedure TFormSWITCHFILENAME.EnumFileInQueue(path: PChar; fileExt: string; fileList: TStringList);
var
  searchRec: TSearchRec;
  found: Integer;
  tmpStr: string;
  curDir: string;
  dirs: TQueue;
  pszDir: PChar;
begin
  dirs := TQueue.Create; //创建目录队列
  dirs.Push(path); //将起始搜索路径入队
  pszDir := dirs.Pop;
  curDir := StrPas(pszDir); //出队
   {开始遍历,直至队列为空(即没有目录需要遍历)}
  while (True) do
  begin
      //加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径
    tmpStr := curDir + '\*.*';
      //在当前目录查找第一个文件、子目录
    found := FindFirst(tmpStr, faAnyFile, searchRec);
    while found = 0 do //找到了一个文件或目录后
    begin
          //如果找到的是个目录
      if (searchRec.Attr and faDirectory) <> 0 then
      begin
          {在搜索非根目录(C:\、D:\)下的子目录时会出现'.','..'的"虚拟目录"
          大概是表示上层目录和下层目录吧。。。要过滤掉才可以}
        if (searchRec.Name <> '.') and (searchRec.Name <> '..') then
        begin
               {由于查找到的子目录只有个目录名,所以要添上上层目录的路径
                searchRec.Name = 'Windows';
                tmpStr:='c:\Windows';
                加个断点就一清二楚了
               }
          tmpStr := curDir + '\' + searchRec.Name;
               {将搜索到的目录入队。让它先晾着。
                因为TQueue里面的数据只能是指针,所以要把string转换为PChar
                同时使用StrNew函数重新申请一个空间存入数据,否则会使已经进
                入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。}
          dirs.Push(StrNew(PChar(tmpStr)));
        end;
      end
      else //如果找到的是个文件
      begin
             {Result记录着搜索到的文件数。可是我是用CreateThread创建线程
              来调用函数的,不知道怎么得到这个返回值。。。我不想用全局变量}
            //把找到的文件加到Memo控件
        if fileExt = '.*' then
          fileList.Add(curDir + '\' + searchRec.Name)
        else
        begin
          if SameText(RightStr(curDir + '\' + searchRec.Name, Length(fileExt)), fileExt) then
            fileList.Add(curDir + '\' + searchRec.Name);
        end;
      end;
          //查找下一个文件或目录
      found := FindNext(searchRec);
    end;
      {当前目录找到后,如果队列中没有数据,则表示全部找到了;
        否则就是还有子目录未查找,取一个出来继续查找。}
    if dirs.Count > 0 then
    begin
      pszDir := dirs.Pop;
      curDir := StrPas(pszDir);
      StrDispose(pszDir);
    end
    else
      break;
  end;
   //释放资源
  dirs.Free;
  FindClose(searchRec);
end;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB 函数求导 用法以及实例发布时间:2022-07-18
下一篇:
MATLAB矩阵运算(3)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap