批处理之家 - Powered by Discuz! Board

标题: 【已完成】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 编辑

@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
pause
复制代码

作者: xp3000 时间: 2018-11-15 14:14

@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);
}
复制代码

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

作者: xczxczxcz 时间: 2018-11-15 18:52

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

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2