标题: 【完结】80元求修改xhtml [打印本页]
作者: lxh623 时间: 2023-4-15 08:40 标题: 【完结】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
- <# :
- cls&echo off&cd /d "%~dp0"&mode con lines=5000
- set "current=%cd%"
- powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
- pause
- exit
- #>
- $current=($env:current).trimend('\');
- $enc=New-Object System.Text.UTF8Encoding $False;
- $files=@(dir -literal $current -recurse|?{('.xhtml' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
- for($i=0;$i -lt $files.length;$i++){
- if($files[$i].Directory.Name -eq 'juans'){
- write-host $files[$i].FullName.Substring($current.length);
- $text=[IO.File]::ReadAllText($files[$i].FullName, $enc);
- $text=[regex]::replace($text, '(<body(?:\s[^>]+?)?>)([\s\S]+?)</body>', {
- param($m1);
- $content=[regex]::replace($m1.groups[2].value, '(>)([^<>]+?)(<)', {
- param($m2);
- if($m2.groups[2].value.trim() -ne ''){
- return ($m2.groups[1].value+'<span class="text_1">'+$m2.groups[2].value+'</span>'+$m2.groups[3].value);
- }else{return $m2.groups[0].value;}
- });
- return ($m1.groups[1].value+$content+$m1.groups[1].value);
- });
- [IO.File]::WriteAllText($files[$i].FullName, $text, $enc);
- }
- }
复制代码
作者: lxh623 时间: 2023-4-16 09:26
zaqmlp 发表于 2023-4-15 10:02
请查收。谢谢!
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |