[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

【完结】80元求修改xhtml

本帖最后由 lxh623 于 2023-4-16 09:26 编辑

文件夹下面有许多子文件夹(4620个)。每一个子文件夹类似于上传的,链接: https://pan.baidu.com/s/1NzPWkspRrVH1bXE_fGrclw?pwd=kiaf 提取码: kiaf 。
其中,文件夹juans里面的文件是xhtml,我想把每一个文件夹juans里面的文件修改。
修改办法是,<body>后面的除了代码以外的文本,前后加上<span class="text_1">、</span>。
比如,
<p class='h7'>五一八</p>
<p>無記法對於不善法由等無間緣而為緣。〔曰〕向轉對於不善之〔四〕蘊.由等無間緣而為緣。</p></div></div>
修改为:
<p class='h7'><span class="text_1">五一八</span></p>
<p><span class="text_1">無記法對於不善法由等無間緣而為緣。〔曰〕向轉對於不善之〔四〕蘊.由等無間緣而為緣。</span></p></div></div>

谢谢!

zaqmlp 发表于 2023-4-15 10:02

请查收。谢谢!

TOP

  1. <# :
  2. cls&echo off&cd /d "%~dp0"&mode con lines=5000
  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).trimend('\');
  9. $enc=New-Object System.Text.UTF8Encoding $False;
  10. $files=@(dir -literal $current -recurse|?{('.xhtml' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  11. for($i=0;$i -lt $files.length;$i++){
  12.     if($files[$i].Directory.Name -eq 'juans'){
  13.     write-host $files[$i].FullName.Substring($current.length);
  14.     $text=[IO.File]::ReadAllText($files[$i].FullName, $enc);
  15.     $text=[regex]::replace($text, '(<body(?:\s[^>]+?)?>)([\s\S]+?)</body>', {
  16.         param($m1);
  17.         $content=[regex]::replace($m1.groups[2].value, '(>)([^<>]+?)(<)', {
  18.             param($m2);
  19.             if($m2.groups[2].value.trim() -ne ''){
  20.                 return ($m2.groups[1].value+'<span class="text_1">'+$m2.groups[2].value+'</span>'+$m2.groups[3].value);
  21.             }else{return $m2.groups[0].value;}
  22.         });
  23.         return ($m1.groups[1].value+$content+$m1.groups[1].value);
  24.     });
  25.     [IO.File]::WriteAllText($files[$i].FullName, $text, $enc);
  26.     }
  27. }
复制代码
1

评分人数

提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表