用批处理批量修改文件名?
发布网友
发布时间：2022-04-23 08:38
共2个回答
热心网友
时间：2023-07-17 22:42
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行
<# :
cls
@echo off
rem 将当前目录下多个文件的名称末尾的数字前面用0补足成相同位数
mode con lines=5000
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$len=0;[System.Collections.ArrayList]$list=@();
[System.Collections.ArrayList]$s=@();
$files=@(dir -liter $path|?{($_.Name -ne $self.Name) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
if($files[$i].BaseName -match '\d+$'){
[void]$list.add($files[$i]);
if($matches[0].length -gt $len){
$len=$matches[0].length;};};};
for($i=0;$i -lt $list.Count;$i++){
$num=$list[$i].BaseName -replace '^.*\D','';
$newnum=([Math]::Pow(10, $len)+[int]$num).toString().Substring(1);
$newname=($list[$i].BaseName -replace '\d+$',$newnum)+$list[$i].Extension;
if($list[$i].Name -ne $newname){
$line=$list[$i].Name+$c+$newname;
[void]$s.add($line);};};$s;
热心网友
时间：2023-07-17 22:42
rem 运行这个批处理后用记事本打开生成的mp4renname.bat看看如符合要求运行之。
@echo off
setlocal enabledelayedexpansion
(for /f %%i in ('dir/b asdf*.mp4^|find /c /v ".*"') do set n=%%i
if %n% gtr 10000 (set z=-5) else set z=-4
for /l %%i in (1,1,%n%) do (
set x=0000%%i
set x=!x:~%z%!
echo ren asdf%%i.mp4 asdf!x!.mp4 2^>nul))>mp4renname.bat
