[文件操作] 求助BAT脚本实现文件更名问题

曾经的你

在win系统下，比如A文件夹种有很多的文件（无占用情况等）；
我需要做到；把每一个后缀的文件分别从1命名到文件数量的结尾。。。。（比如有rar文件有100个，那么命名就为1.rar一直到100.rar；其他的文件后缀也这样改）

曾经的你

回复 1# 曾经的你


    顶

Batcher

有子文件夹吗？

曾经的你

回复 3# Batcher


    因为人工排除过所以没有子文件夹（不过可以把子文件夹写进去）

Batcher

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d "C:\A文件夹\"') do (
    set /a %%~xi+=1
    ren "%%i" !%%~xi!%%~xi
)
复制代码

曾经的你

回复 5# Batcher


    谢谢老大

曾经的你

回复 5# Batcher


    怎么改成，作用在当前文件夹下呢

曾经的你

回复 5# Batcher


    再就是排除一些这个bat处理文件（不重命名）

Batcher

回复 8# 曾经的你

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d') do (
    if "%%i" neq "%0" (
        set /a %%~xi+=1
        ren "%%i" !%%~xi!%%~xi
    )
)
复制代码

flashercs

回复 9# Batcher


    文件如果是如下情况会失败。
#a.txt
_b.txt
!c.txt
1.txt
2.txt
3.txt

flashercs

重命名.bat

0<1/*,:
@echo off
REM rename files with same extension name in order using numbers. e.g: 1.txt 2.txt 3.txt ...
%windir%\system32\CScript.exe -e:jscript -nologo %0 %*
exit /b
*/;
function rename(e){var r,t,i,a={},c={};try{r=new Enumerator(fso.GetFolder(e).Files)}catch(e){return}for(;!r.atEnd();r.moveNext())if(t=r.item(),!c[t.Name]&&t.Path!==WScript.ScriptFullName)for(i=fso.GetExtensionName(t.Name),""!==i&&(i="."+i),a.hasOwnProperty(i)?++a[i]:a[i]=1;;)try{t.Name!==a[i]+i&&(t.Name=a[i]+i);break}catch(e){c[""+a[i]+i]=!0,++a[i]}}var fso=new ActiveXObject("Scripting.FileSystemObject"),folder,oArgs=WScript.Arguments;new ActiveXObject("WScript.Shell").CurrentDirectory=fso.GetParentFolderName(WScript.ScriptFullName);for(var i=0,l=oArgs.length;i<l;++i)rename(oArgs(i));0===l&&rename(fso.GetParentFolderName(WScript.ScriptFullName)),WScript.Echo("Mission complete."),WScript.Quit();
复制代码

Batcher

回复 10# flashercs


    我很赞同。希望楼主没有这样的文件。

zaqmlp

@echo off
for /f "delims=" %%a in ('dir /a-d/b *.*^|find /v "%~nx0"') do (
    if "%%~xa" neq "" (
        ren "%%a" "_%%~nxa"
        if not defined %%~xa (set %%~xa=1)
    )
)

for /f "tokens=1 delims==" %%a in ('set .') do (
    for /f "tokens=1* delims=:" %%b in ('dir /a-d/b "*%%a"^|findstr /lie "%%a"^|findstr /n .') do (
        if "%%~nxc" neq "%~nx0" (
            rem echo;"%%c" --^> "%%b%%~xc"
            ren "%%c" "%%b%%a"
        )
    )
)
pause
复制代码

flashercs

回复 13# zaqmlp


    不考虑没有扩展名的文件吗？
    不考虑扩展名为txt doc docx的类型？

zaqmlp

回复 14# flashercs
楼主说按扩展名，干嘛要考虑无扩展名的