【已解决】【30元红包】指定目录，补全尾数_0

linfeng_321

需求：指定目录，补全尾数_0
--------------------------------------

目录：.\111\222

文件如下：
文件-240-420-A_0.png
文件-420-420-A.png（需要补尾数_0，结果为：文件-420-420-A_0.png）
文件-720-420-A.png（需要补尾数_0，结果为：文件-720-420-A_0.png）
文件-960-420-A_0.png
文件-960-420-A_1.png
文件-960-420-B_0.png
文件-960-420-C.png（需要补尾数_0，结果为：文件-960-420-A_0.png）
更多文件...


注：当文件名中不包含“_”符号时，自动补全“_0”。

qixiaobin0715

免费赠送：

cd "111\222"
for /f "tokens=1* delims=_" %%i in ('dir /b /a-d *.png') do if "%%j"=="" ren "%%i" "%%~ni_0%%~xi"
复制代码

linfeng_321

回复 2# qixiaobin0715


    谢谢大佬

zaqmlp

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
pause
exit
#>
$folder=@(
".\111\222"
);

for($i=0;$i -lt $folder.length;$i++){
    if(test-path -literal $folder[$i]){
        $files=@(dir -literal $folder[$i]|?{$_ -is [System.IO.FileInfo]});
        for($j=0;$j -lt $files.length;$j++){
            $m=[regex]::match($files[$j].BaseName, '_[^_]+$');
            if(-not $m.Success){
                $newname=$files[$j].BaseName+'_0'+$files[$j].Extension;
                $newfile=$files[$j].Directory.FullName+'\'+$newname;
                write-host ($files[$j].FullName+' --> '+$newname);
                move-item -literal $files[$j].FullName $newfile -ErrorAction SilentlyContinue;
            }
        }
    }else{write-host ('"'+$folder[$i]+'" Not Found')}
}
复制代码

linfeng_321

回复 4# zaqmlp


    感谢大佬，已支付