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

lxh623

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



</p>

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

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

WHY

1. @echo off
   
2. dir /b /s *.html > List.Log
   
3. 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}"
   
4. del List.Log
   
5. pause

复制代码

xp3000

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

复制代码

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

xczxczxcz

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