Question

怎么批处理替换当前文件夹中所有txt两个指定字符串之间的数据？

例如AA、、、BBnnAA+++BB改成AAXBBnnAAXBB。

Answer 1

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

<# :
cls
@echo off
rem 替换txt文本文件里两个指定字符串之间的内容
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
set "rootpath=%~dp0"
if "%rootpath:~-1%" equ "\" (set "rootpath=%rootpath:~,-1%")
cd /d "%rootpath%"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%rootpath%'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>

$leftstr='AA';
$rightstr='BB';
$newstr='X';

$path=$args[0];
$newfolder=$path+'\#result';
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
$enc=[Text.Encoding]::Default;
$regstr='('+[regex]::Escape($leftstr)+').+?('+[regex]::Escape($rightstr)+')';
for($i=0;$i -lt $files.length;$i++){
    write-host $files[$i].Name;
    $text=[IO.File]::ReadAllText($files[$i].FullName, $enc);
    $text=[regex]::replace($text,$regstr,{param($a);$a.groups[1].value+$newstr+$a.groups[2].value;});
    $newfile=$newfolder+'\'+$files[$i].Name;
    [IO.File]::WriteAllText($newfile, $text, $enc);
    break;
};

Answer 2

写代码可以处理