[文件操作] [已解决]批处理如何将文件夹内的文件按给定的重命名？

czvde

求助各位大绅

我文件夹内有一批文件如下：
zzfabc-1.txt
zzfabc-2.txt
.......
zzfabc-67.txt

如何用批处理批量重命名成如下：
[67_01_A]zzfabc-1.txt
[67_02]zzfabc-2.txt
.......
[67_67_B]zzfabc-67.txt

zaqmlp

回复 8# czvde

赞助实际点

czvde

回复 7# zaqmlp


谢谢

zaqmlp

回复 6# czvde

大概我用到了假系统

czvde

回复 5# zaqmlp


你的批处理运行结果是：
[F1BC][4_1_A]edf1bc-1.txt
[F1BC][4_2]edf1bc-2.txt
[F1BC][4_3]edf1bc-3.txt
[F1BC][4_4_B]edf1bc-4.txt


我希望运行结果是：
[F1BC][04_01_A]edf1bc-1.txt
[F1BC][04_02]edf1bc-2.txt
[F1BC][04_03]edf1bc-3.txt
[F1BC][04_04_B]edf1bc-4.txt

需要如何修改？

zaqmlp

回复 3# czvde

我测试时结果是这样，不知你贴出的结果哪里来的
已增加了4位大写字符
话说，要是超过100，数值怎么表示

yhcfsr

回复 3# czvde


   
保存为bat与处理文件放一起
测试前请备份文件

@Powershell "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit
$files = Get-ChildItem  -Path .\* -Include *.txt;
$count = $files.Count;
$lastFile='';
$dic = New-Object -TypeName 'System.Collections.Generic.Dictionary[string,object]'


#文件按基名前缀分组
foreach($file in $files)
{
    if($file.BaseName -match '^(.*?)-(\d+)$')
    {
         if(-not $dic.ContainsKey($Matches[1])){
            $dic.Add($Matches[1],[System.Collections.ArrayList] @([int] $Matches[2]));
         } 
         else {
            [void] $dic[$Matches[1]].Add([int] $Matches[2]);
         }
    }
   
}
#组内文件按基名后缀排序
foreach($key in $dic.Keys)
{
    $count=$dic[$key].Count;
    $counter=0;
    foreach($index in ($dic[$key]|sort))
    {
       
       switch(++$counter)
       {
        1       {$subfix = '_A';break;}
        $count  {$subfix = '_B';break;}
        default {$subfix = '';break;}
       }

       [string] $num=$index;
       if($index -lt 10) {$num="{0:00}" -f $index}
       if($key -match '(\w{4})$'){
            ren "$key-$index.txt" "[$($Matches[1].ToUpper())][$count-$num$subfix]$key-$index.txt"
       }
        
    }
}
复制代码

czvde

回复 2# zaqmlp

在你的批处理原基础如何再增加一个提取原文件名中“-”的前面4个字符的重命名，字母要求大写 效果如下：
[F1BC][04_01_A]edf1bc-1.txt
[F1BC][04_02]edf1bc-2.txt
[F1BC][04_03]edf1bc-3.txt
[F1BC][04_04_B]edf1bc-4.txt
[1D8U][74_01_A]zxy1d8u-1.txt
[1D8U][74_02]zxy1d8u-2.txt
[1D8U][74_03]zxy1d8u-3.txt
.......
[1D8U][74_74_B]zxy1d8u-74.txt

如何实现？

zaqmlp

@echo off
mode con lines=3000
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
powershell ^
    $list=dir *-*.txt^|?{$_ -is [System.IO.FileInfo]}^|group {$_.BaseName -replace '\d+$'};^
    foreach($item in $list){^
        $arr=@($item.group^|sort {[int]($_.BaseName -replace '^^.+-','')});^
        $max=$arr[$arr.length-1].BaseName -replace '^^.+-','';^
        for($i=0;$i -lt $arr.length;$i++){^
            $num=$arr[$i].BaseName -replace '^^.+-','';^
            $four=-join(($arr[$i].BaseName.split('-')[0])[-4..-1]);^
            $str='['+$max.PadLeft(2,'0')+'_'+$num.PadLeft(2,'0');^
            if($i -eq 0){^
                $str+='_A]';^
            }else{^
                if($i -eq ($arr.length-1)){^
                    $str+='_B]';^
                }else{^
                    $str+=']';^
                };^
            };^
            write-host ($arr[$i].Name+' --^> ['+$four.toUpper()+']'+$str+$arr[$i].Name);^
            mv -liter $arr[$i].Name ('['+$four.toUpper()+']'+$str+$arr[$i].Name);^
        };^
    }
echo;%info%
pause
复制代码