标题: [求助]文件改名,.要求如下 [打印本页]
作者: meiyongderen 时间: 2008-4-22 19:09 标题: [求助]文件改名,.要求如下
比如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 ]
作者: wxcute 时间: 2008-4-22 22:45
@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
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
作者: meiyongderen 时间: 2008-4-23 00:40
能写的那么好,.那么精简...真的让我佩服,....