联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off&Setlocal EnableDelayedExpansion for /f "delims=" %%a in ('dir /ad /b') do ( chdir %%a for /f "delims=" %%b in ("%cd%") do set new_name=%%~nb set num=1 for /f "delims=" %%b in ('dir /b *jpg') do ( set /a !num!+=1 if !num! LSS 10 (ren "%%b" "!new_name!-00!num!.jpg") else ren "%%b" "!new_name!-0!num!.jpg" ) chdir .. )
@echo off & SetLocal EnableDelayedExpansion for /f "delims=" %%a in ('dir /s/b/a-d *.jpg') do ( for /f "delims=" %%b in ("%%~dpa\.") do ( if not "!_batch!"=="_%%~nb" set _batch=_%%~nb&set num=0&echo.... set /a num+=1 set nums=00!num! set nums=!nums:~-3! ren "%%~a" "%%~nb-!nums!%%~xa" ) )
@echo off & SetLocal EnableDelayedExpansion for /f "delims=" %%a in ('dir /s/b/ad') do ( set num=0 echo %%a .... for /f "delims=" %%b in ('dir /b "%%a"\*.jpg') do ( set /a num+=1 set nums=00!num! set nums=!nums:~-3! ren "%%a\%%b" "%%~na-!nums!.jpg" ) )
Originally posted by lxmxn at 2008-1-11 03:39 PM: 修改得不错,比我的思路清晰多了. PS:可以把perl的代码发来看看么? 我现在正在看perl方面的东西,如果方便的话,把代码发到lxmxn gmail.com这个邮箱,我 ...
@echo off&Setlocal EnableDelayedExpansion for /f "delims=" %%a in ('dir /ad /b') do ( pushd "%%a" for /f "delims=" %%b in ("%cd%") do set new_name=%%~nb set num=0 for /f "delims=" %%b in ('dir /b *jpg') do ( set /a num+=1 set nums=00!num! set nums=!nums:~-3! ren "%%b" "!new_name!-!nums!.jpg" ) popd )
@echo off&Setlocal EnableDelayedExpansion for /r %%i in (.) do ( set n=1000 for /f "delims=" %%a in (' dir /b "%%i\*.jpg"') do ( set /a n+=1 ren "%%i\%%a" "%%~ni"-!n:~1!%%~xa ) )