【已完成】10元求助修改html

lxh623

E:\duanwenxue\WENZANG下面三四五级文件夹，有几十万html。
想把每一个修改。
<p>修改为 没有（删除）



</p>

修改为<br />
<h1>修改为
<h1>TTT
<span>修改为
<span>作者:

附件是一个例子。
麻烦做一个批处理。谢谢！

WHY

@echo off
dir /b /s *.html > List.Log
PowerShell "forEach($f In (type List.Log -ReadCount 0)){$s=[IO.File]::ReadAllText($f,[Text.Encoding]::Default) -replace '<p>' -replace '<h1>(?!TTT)','$&TTT' -replace '</p>','<br />' -replace '<span>(?!作者:)','$&作者:';sc -Path $f -Value $s}"
del List.Log
pauseCOPY

xp3000

@set @n=0;/* & echo off
 
dir /a/s/b/on *.html|cscript -nologo -e:jscript "%~0" ""
exit/b & rem */
arg = WScript.Arguments(0);
fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WSH.StdIn.AtEndOfStream) {
    f = WSH.StdIn.ReadLine();
    txt = fso.OpenTextFile(f,1).ReadAll();
    txt = txt.replace(/<p>/g,"")
    .replace(/([　 ]{4})[\r\n\t　 ]*([\u4E00-\u9FA5])/mg,"<br />\r\n　　$2")
    .replace(/([\u4E00-\u9FA5])[\r\n\t 　]*([\u4E00-\u9FA5])/mg,"$1$2")
    .replace(/<\/p>/g,"<br />")
    .replace(/<h1>/,"<h1>TTT")
    .replace(/(作者:)?<span>(作者:)?/,"<span>作者:");
    fso.OpenTextFile(f,2).Write(txt);
}COPY

记得备份，请忽视我的存在

xczxczxcz

可惜 顶层的电脑不支持 PS VBS。你们还是用纯P吧 或者第三方。