批处理，文件夹里有1300个txt文档，每个文档里都包含<p></p>怎样批量把<p></p>替换为两个换行？
发布网友
发布时间：2022-04-24 01:03
共1个回答
热心网友
时间：2023-10-17 02:44
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为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]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$newfolder=".\#result";
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$newfolder=$newfolder -replace '^\.',$path;
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};
$enc=[Text.Encoding]::GetEncoding('GB2312')
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
write-host $files[0].Name;
$text=[IO.File]::ReadAllText($files[0].FullName, $enc);
$text=$text -replace '</?p>',"`r`n";
$newfile=$newfolder.trimend('\')+'\'+$files[0].Name;
[IO.File]::WriteAllText($newfile, $text, $enc);追问非常感谢能够回答我得问题，这个批处理可以用，只是只替换了一个.txt文档，改一下哪里可以处理文件夹下所有.txt
热心网友
时间：2023-10-17 02:44
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为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]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$newfolder=".\#result";
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$newfolder=$newfolder -replace '^\.',$path;
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};
$enc=[Text.Encoding]::GetEncoding('GB2312')
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
write-host $files[0].Name;
$text=[IO.File]::ReadAllText($files[0].FullName, $enc);
$text=$text -replace '</?p>',"`r`n";
$newfile=$newfolder.trimend('\')+'\'+$files[0].Name;
[IO.File]::WriteAllText($newfile, $text, $enc);追问非常感谢能够回答我得问题，这个批处理可以用，只是只替换了一个.txt文档，改一下哪里可以处理文件夹下所有.txt
