中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [求助]文件改名,.要求如下 上一主题 | 下一主题
meiyongderen
初级用户





积分 72
发帖 28
注册 2008-4-19
状态 离线
『楼 主』:  [求助]文件改名,.要求如下

比如A文件夹里有一个叫 123-1.TXT    B文件夹也有 123-1.TXT....要求B文件夹里的文件复制到A文件夹下遇到同名字的就改名为123-2.TXT,..  减号前面的文件名是不固定长度的...共同点就是文件名都有减号,,,.....以此类推,.....

[ Last edited by meiyongderen on 2008-4-22 at 07:19 PM ]

2008-4-22 19:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
wxcute
中级用户





积分 458
发帖 211
注册 2006-7-26
状态 离线
『第 2 楼』:  


@echo off
cd/d %~dp0
for /f %%f in ('dir/b A') do (
 if not exist "B\%%f" (copy "A\%%f" B) else (call :cpy_an "%%~f")
)
goto :eof
:cpy_an
 setlocal enableDelayedExpansion
 for /f "tokens=1* delims=-" %%i in ("%~1") do (
  set fn=%%i
  set/a num=%%j
  :rn
  set/a num+=1
  if exist "B\!fn!-!num!%~x1" goto :rn
  copy "A\%~1" "B\!fn!-!num!%~x1"
 )
goto :eof




┌───────┐
├→学习→实践→┤
└───────┘
2008-4-22 22:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
meiyongderen
初级用户





积分 72
发帖 28
注册 2008-4-19
状态 离线
『第 3 楼』:  

能写的那么好,.那么精简...真的让我佩服,....

2008-4-23 00:40
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: