Question

如何能通过Bat代码去掉后缀数字括号，并在数字前默认添加一个横杠“-”？

请求编程大神支招，如何能通过Bat代码去掉后缀数字括号，并在数字前添加一个“-”，最终效果参考下图“BAT后”





Answer 1

以下是一个实现的示例：
复制代码@echo offsetlocal enabledelayedexpansionfor %%a in (*(*)) do ( set "filename=%%~na"
rem 去掉括号及句点之后的数字部分
for /f "tokens=1 delims=(" %%b in ("!filename!") do set "filename=%%b" for /f "tokens=* delims=.0123456789" %%b in ("!filename!") do set "filename=!filename!%%b"
rem 在数字前添加横杠
set "newname=!filename!" for /f "tokens=1* delims=0123456789" %%b in ("!filename!") do ( if not "%%c"=="" set "newname=%%b-%%c"
)
rem 重命名文件
if not "!newname!"=="!filename!" ren "%%~fa" "!newname!%%~xa"
)echo Done.

基本思路：使用循环来遍历所有括号和数字相间且带有后缀的文件名，然后针对每个文件名分别进行修改。对于每个文件名，通过借助set命令和字符处理功能来去掉字符串中的括号和数字，并添加横杠。最后，使用ren命令将文件重命名为新的文件名。请注意，在运行此代码之前应该先备份数据，以防止错误操作导致不可逆的数据损失。

Answer 2

你可以尝试使用如下代码：
```
@echo off
setlocal enabledelayedexpansion
for %%f in (*.*) do (
set "filename=%%~nf"

rem 利用正则表达式替换数字括号为空格
set "filename=!filename:[0-9][(][0-9][)]:=!"

rem 加入横杠
set "newname=-!filename!",

ren "%%f" "!newname!"
)
echo "All files successfully renamed!"
```
这个Bat脚本中，先设置变量 `filename` 来保存文件名（不带扩展名）。然后使用一条比较复杂的字符串替换命令，将文件名中的数字括号（如`(1)`）及其前面的数字都替换为空格。接着在文件名前加上横杠，最后用 `ren` 命令来重命名文件。其中 `!filename!` 和 `!newname!` 都是使用了开启了delayedexpansion的方式的不同形式。
你只需要把这个代码复制到文本编辑器中，并将文件另存为“rename.bat”，然后放在需要批量修改文件名的文件夹中运行即可。

Answer 3

不清楚你的实际文件/情况，仅以问题中的样例/说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI/GB2312，跟要处理的多个文件放一起双击运行

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将当前目录里的多个文件名称末尾的小括号改成横杠
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
set #=Any questions&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "self=%~f0"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$b=[Convert]::FromBase64String("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$self=get-item -literal $env:self;
$current=$self.Directory.FullName.trimend('\');
$files=@(dir -literal $current|?{($self.Name -ne $_.Name) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    $base=[regex]::replace($files[$i].BaseName, '\s*[(（]([^（\(\)）]+?)[）)]\s*?$', {
        param($z);
        return ('-'+$z.groups[1].value);
    });
    $files[$i].Name+$c+$prefix+$base+$files[$i].Extension;
}