Question

bat批量修改txt文件里的内容，以txt文件名替换

如一个名为aaa.txt,里面有一行内容是BG-hd.png。需要把BG-hd改成aaa。
bbb.txt里一行内容是BG-hd。需要把BG-hd改成bbb。
x.txt里把BG-hd替换为x。

Answer 1

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

<# :
cls
@echo off
rem 将多个txt文本文件里的指定内容/固定内容替换成文件名
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]::Default))) -Args '%~dp0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
 
$folder='.';
$findword='BG-hd';
 
$enc=[Text.Encoding]::Default;
$files=@(dir -liter $folder|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    write-host $files[$i].Name;
    $oldtext=[IO.File]::ReadAllText($files[$i].FullName, $enc);
    $newtext=$oldtext.replace($findword, $files[$i].BaseName);
    [IO.File]::WriteAllText($files[$i].FullName, $newtext, $enc);
};

Answer 2

@Echo Off
SetLocal EnableDelayedExpansion
For %%i In (*.txt) Do (
    For /F "Usebackq Delims=" %%j In ("%%~nxi") Do (
        Set Str=%%j
        Echo !Str:BG-hd=%%~ni!>>New_%%~nxi
    )
)

是否符合要求?处理完毕后在当前目录下生成New_原文件名的文件

追问

谢谢。。怎么才能直接替换呢？不要New_原文件

追答

@Echo Off
SetLocal EnableDelayedExpansion
For %%i In (*.txt) Do (
    For /F "Usebackq Delims=" %%j In ("%%~nxi") Do (
        Set Str=%%j
        Echo !Str:BG-hd=%%~ni!>>New_%%~nxi
    )
    Del %%~nxi >nul
    Ren New_%%~nxi %%~nxi
)

源文件将被替换

追问

万分感谢。3q3q3q3q3q

追答

不用谢,求采纳...

Answer 3

如果支持子目录，代码是什么？