<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 在当前目录里的文件名称的每一个字符前面添加/插入一个指定字符
set #=Any question
title %#% +%$%%$%/%_% %z%
set "self=%~f0"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$addword="&";
$self=get-item -literal $env:self;
$current=$self.Directory.FullName;
$files=@(dir -literal $current|?{($self.Name -ne $_.Name) -and ($_ -is [System.IO.FileInfo])});
if($files.length -ge 1){
    $base=[regex]::replace($files[0].BaseName, '\S', {
        param($m);
        return $addword+$m.groups[0].value;
    });
    $newname=$base+$files[0].Extension;
    $newfile=$files[0].Directory.FullName+'\'+$newname;
    write-host ($files[0].FullName.Substring($current.length)+' --> '+$newname);
    move-item -literal $files[0].FullName  $newfile -force -ErrorAction SilentlyContinue;
}
复制代码

for /f "delims=" %%a in ('dir /s /b /a-d') do if not "%%a"==%0 ren "%%a" "@%%~nxa"
复制代码

@echo off
@rem 保存为ANSI格式
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir *.txt /s/b/a-d') do (
	set "str=%%~na"
	set "newName="
	call :renam
	move /y "%%~fa" "%%~dpa!newName!%%~xa"
)
exit /b
:renam
set "newName=%newName%@%str:~0,1%"
set "str=%str:~1%"
if defined str goto :renam
复制代码

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
ls -s|%{if($_.Name -ne "1.bat" -and $_ -is [System.IO.FileInfo]){$newname=$_.BaseName -creplace '(\S)','@$1';ren $_.FullName ($newname+$_.Extension)}}
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /s /b /a-d') do (
    if not "%%i"==%0 (
        set str=%%~ni
        for /l %%a in (50,-1,1) do if "!str:~%%a!"=="" set n=-%%a
        for /l %%b in (!n!,1,-1) do set str=!str:~,%%b!@!str:~%%b!
        ren "%%i" "!str!%%~xi"
    )
)
pause
复制代码