[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 zaqmlp 于 2022-7-16 10:12 编辑
  1. <# :
  2. cls&echo off&cd /d "%~dp0"&mode con lines=5000&rem bat存为ANSI/GB2312编码
  3. set "current=%cd%"
  4. powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
  5. pause
  6. exit
  7. #>
  8. $current=$env:current;
  9. $exclude=@(
  10. "222"
  11. "nnn"
  12. );
  13. $findtag=@(
  14. '<!--开屏变量播放-->'
  15. '<!--xxxx-->'
  16. );
  17. $enc=New-Object System.Text.UTF8Encoding $False;
  18. $folders=@(dir -literal $current|?{($exclude -notcontains $_.Name) -and ($_ -is [System.IO.DirectoryInfo])});
  19. for($i=0;$i -lt $folders.length;$i++){
  20.     $files=@(dir -literal $folders[$i].FullName -recurse|?{('.xml' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  21.     for($j=0;$j -lt $files.length;$j++){
  22.         write-host $files[$j].FullName;
  23.         $text=[IO.File]::ReadAllText($files[$j].FullName, $enc);
  24.         for($k=0;$k -lt $findtag.length;$k++){
  25.             #$reg=[regex]::Escape($findtag[$k])+'\s+?[^\r\n]+';
  26.             $reg=[regex]::Escape($findtag[$k])+'[\s\S]*?(?=<!--)';
  27.             $text=$text -replace $reg,'';
  28.         }
  29.         [IO.File]::WriteAllText($files[$j].FullName, $text, $enc);
  30.     }
  31. }
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

本帖最后由 zaqmlp 于 2022-7-16 10:10 编辑

回复 5# linfeng_321
已修改
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 8# linfeng_321


    二楼代码有什么问题
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表