【完成】epub文档添加字符（80元）

lxh623

当前文件夹下有许多文件夹，这些文件夹下\OEBPS\Text里面有多个xhtml。
正文：
<p><span class="text_1">..............</span></p>
如果行首算起大于624个字符，段落后</span></p>改为★</span></p>

谢谢！

flashercs

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"
pause
exit /b
#>
# <p><span class="text_1">..............</span></p>如果行首算起大于624个字符，段落后</span></p>改为★</span></p>
$re = [regex]'(?s)(<p(?>[^>]*)>)(.*?)(</p>)'
$evaluator = [System.Text.RegularExpressions.MatchEvaluator] {
  param([System.Text.RegularExpressions.Match]$m)
  if (($m.Groups[2].Value -replace '<[^>]*>').Length -gt 600) {
    # 除了代码，纯粹汉字和标点符号是超过600个。
    $m.Groups[1].Value + $m.Groups[2].Value + '★' + $m.Groups[3].Value
  } else {
    $m.Value
  }
}
Get-ChildItem -Path '.\*\OEBPS\Text\*.xhtml' | Where-Object { $_ -is [IO.FileInfo] } | ForEach-Object {
  $_ | Resolve-Path -Relative
  $text = [IO.File]::ReadAllText($_.FullName)
  $text = $re.Replace($text, $evaluator)
  [IO.File]::WriteAllText($_.FullName, $text)
}
复制代码

lxh623

谢谢！请查收。

lxh623

回复 2# flashercs
有一个小问题，能不能帮我再修改，谢谢！
除了代码，纯粹汉字和标点符号是超过600个。
段落中间有代码的话，也希望一样处理。比如，

一切相智樂苦，</span><span class='corr'><span class="text_1">若</span></span><span class="text_1">行四
复制代码

flashercs

回复 4# lxh623


    上面修改了.