标题: 【完成】epub文档添加字符(80元) [打印本页]
作者: lxh623 时间: 前天 20:03 标题: 【完成】epub文档添加字符(80元)
本帖最后由 lxh623 于 2024-11-4 18:14 编辑
当前文件夹下有许多文件夹,这些文件夹下\OEBPS\Text里面有多个xhtml。
正文:
<p><span class="text_1">..............</span></p>
如果行首算起大于624个字符,段落后</span></p>改为★</span></p>
谢谢!
作者: flashercs 时间: 前天 21:03
本帖最后由 flashercs 于 2024-11-4 21:58 编辑
- <#*,:
- @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 时间: 昨天 18:14
谢谢!请查收。
作者: lxh623 时间: 昨天 20:00
本帖最后由 lxh623 于 2024-11-4 20:35 编辑
回复 2# flashercs
有一个小问题,能不能帮我再修改,谢谢!
除了代码,纯粹汉字和标点符号是超过600个。
段落中间有代码的话,也希望一样处理。比如,- 一切相智樂苦,</span><span class='corr'><span class="text_1">若</span></span><span class="text_1">行四
复制代码
作者: flashercs 时间: 昨天 21:59
回复 4# lxh623
上面修改了.
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |