Board logo

标题: 【已完成】10元求助修改html [打印本页]

作者: lxh623    时间: 2018-11-15 11:06     标题: 【已完成】10元求助修改html

E:\duanwenxue\WENZANG下面三四五级文件夹,有几十万html。
想把每一个修改。
<p>修改为 没有(删除)
</p>修改为<br />
<h1>修改为<h1>TTT
<span>修改为 <span>作者:

附件是一个例子。
麻烦做一个批处理。谢谢!
作者: WHY    时间: 2018-11-15 13:17

本帖最后由 WHY 于 2018-11-16 14:11 编辑
  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    时间: 2018-11-15 14:14

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

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2