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

lxh623 · 发表于 2024-11-3 20:03:34

本帖最后由 lxh623 于 2024-11-4 18:14 编辑

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

谢谢！

flashercs · 发表于 2024-11-3 21:03: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
#>
# ..............如果行首算起大于624个字符，段落后改为★
$re = [regex]'(?s)(<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 · 发表于 2024-11-4 18:14:37

谢谢！请查收。

lxh623 · 发表于 2024-11-4 20:00:23

本帖最后由 lxh623 于 2024-11-4 20:35 编辑

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

复制代码

flashercs · 发表于 2024-11-4 21:59:30

回复 4# lxh623

上面修改了.

		自动登录	找回密码
密码			注册

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