设为首页收藏本站
切换到窄版

深夜读书会

 找回密码
 注册
搜索
深夜读书会»论坛 › 交流频道 › 水区 › 制作EPUB的简单脚本
12下一页
返回列表 发新帖
查看: 1641|回复: 29

[讨论] 制作EPUB的简单脚本

 关闭 [复制链接]
hoebec

28

主题

106

帖子

3220

积分

吃书妖怪

Rank: 5Rank: 5Rank: 5

积分
3220
贡献
3220
金币
3692
发表于 2022-5-26 20:54:45 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？注册

x
本帖最后由 hoebec 于 2022-5-26 23:59 编辑

注意! 以下内容涉及 我的现实与网游被恋爱喜剧侵蚀了 台版1-8卷的各种原文

epub的机器转换实际是关于图片,排版,目录,注释,上标的一套解决方案(私有标准),基本上每种轮距都不太一致,所以最花时间的部分是预处理文本
脚本预设是使用"<chapter>"作为章节标志,可以修改为任意字符(单独一行)
注释是在行内直接输入,以"(注:" "（注："之类特定文字提取
对于各种弹注方式,可以自己编写扩展
图片为直接输入文件名
可以修改参数方便直排横排
内置Duokan的样式,锁字体等
只支持输入Unicode格式的txt文件(utf16le),不支持Utf-8,论坛下载的txt文件必须先手动保存为Unicode格式

基本格式:
在txt同一文件夹内,以txt同名目录,或Images目录,或image目录作为图片文件夹,以fonts目录或font目录作为字体文件夹
在章节前,输入<chapter>作为单独一行
以图片文件夹内的图片文件名(包括后缀)作为单独一行,识别为图片行(大小写通用,jpg与jpeg通用)

运行方式:
双击运行vbs,拖放txt文件,ENTER,下一步输入作者名(脚本会尝试自动从txt文件读取),再下一步输入画师名(会尝试自动读取),ENTER,开始制作EPUB,等待1-2秒,脚本提示完成,并列出章节目录,及注释,上标,图片等统计结果

以下是实际的vbs制作脚本,必须以Unicode方式保存(保存为Unicode格式的txt,修改后缀名为vbs),大小约100k

  1. Set WshShell = CreateObject("Wscript.Shell")
  2. Set objFSO = CreateObject("scripting.filesystemobject")
  3. Set objAdodbStream = CreateObject("Adodb.Stream")
  4. scriptloadtempbat=objFSO.GetSpecialFolder(2)&"\"&"scriptloadtemp.bat"
  5. If Wscript.arguments.count=0 Then
  6.   WshShell.run "cmd /c echo @echo off>"&scriptloadtempbat&"",0,True
  7.   WshShell.run "cmd /c echo setlocal enabledelayedexpansion>>"&scriptloadtempbat&"",0,True
  8.   WshShell.run "cmd /c echo :input>>"&scriptloadtempbat&"",0,True
  9.   WshShell.run "cmd /c echo Set /p ""input=input txt:"">>"&scriptloadtempbat&"",0,True
  10.   WshShell.run "cmd /c echo if not defined input goto input>>"&scriptloadtempbat&"",0,True
  11.   WshShell.run "cmd /c echo start """" """&Wscript.ScriptFullName&""" !input!>>"&scriptloadtempbat&"",0,True
  12.   WshShell.run("cmd /c "&scriptloadtempbat&"")
  13.   Wscript.quit
  14. End If
  15. If Wscript.arguments.count=1 Then objFSO.DeleteFile(scriptloadtempbat)
  16. If Wscript.arguments.count=1 Then Input=Wscript.arguments(0)
  17. If not objFSO.FileExists(Input) Then Wscript.quit

  19. covername="封面"
  20. tocimgname="插圖"
  21. tocmakeinfo="製作信息"
  22. tocintroname="內容簡介"
  23. tocauthname="作者簡介"
  24. tocpagecolor="彩頁"
  25. toclistpage="目錄"
  26. tocimgpagename="插圖集"
  27. covername="封面"
  28. tocimgname="插图"
  29. tocmakeinfo="制作信息"
  30. tocintroname="内容简介"
  31. tocauthname="作者简介"
  32. tocpagecolor="彩页"
  33. toclistpage="目录"
  34. tocimgpagename="插图集"
  35. imagemissinginfo="找不到图片文件!"
  36. rubya="｜"
  37. rubyb="《"
  38. rubyc="》"
  39. rubycount=0
  40. rubyerror=0
  41. footnotecount=0
  42. footnoteerror=0
  43. imagepage=1
  44. numbercenter=1
  45. symbolcenter=1
  46. lineheight="1.3"
  47. textindent="2em"
  48. margintop="1em"
  49. marginbottom="1em"
  50. marginp="0.5em"
  51. vrtl="vrtl"
  52. vrtl="hltr"
  53. rtl="rtl"
  54. rtl="ltr"
  55. author=EMPTY
  56. author2=EMPTY
  57. language="zh"
  58. publisher=""
  59. dcdate=""
  60. dcid="uid"
  61. chapterbreak="<chapter>"
  62. duokanbleed="leftright"
  63. duokancover="duokan-page-fitwindow"
  64. duokancover="duokan-page-fullscreen"
  65. duokanfontfixed=1
  66. emptylineskip=0
  67. footnotetype="newline"
  68. footnotetype="duokan"
  69. footnotecolor="#a0513c"
  70. footnotefontsize="0.8em"
  71. footnoteimagesize="0.9em"
  72. htmlfontbsn=EMPTY
  73. footnotebsn=EMPTY
  74. chaptercount=0
  75. fontcount=0
  76. tocimgline=1
  77. tocnum=0
  78. txtbackup=1
  79. inputfiledelete=0

  81. arrsymbol=Array("†","*","﹡","＊","§","※","◆","◇","■","□","♣","♧","★","☆","　"," ","＋","▪","▫","▲","△","▼","▽","●","○","◌","♡","♥","❤","￭","￮","×")
  82. arrintro=Array("简介","简 介","简　介","内容简介","书籍简介","簡介","簡 介","簡　介","內容簡介","書籍簡介","简介:","简 介:","简　介:","内容简介:","书籍简介:","簡介:","簡 介:","簡　介:","內容簡介:","書籍簡介:","简介︰","简 介︰","简　介︰","内容简介︰","书籍简介︰","簡介︰","簡 介︰","簡　介︰","內容簡介︰","書籍簡介︰","简介：","简 介：","简　介：","内容简介：","书籍简介：","簡介：","簡 介：","簡　介：","內容簡介：","書籍簡介：")
  83. arrauthor=Array("作者简介","作者簡介","作者简介:","作者簡介:","作者简介︰","作者簡介︰","作者简介：","作者簡介：")
  84. arrinfo=Array("制作信息","製作信息","制作信息:","製作信息:","制作信息︰","製作信息︰","制作信息：","製作信息：")
  85. arraut=Array("作者:","作者︰","作者：","作 者:","作 者︰","作 者：","作者 :","作者 ︰","作者 ：","作 者 :","作 者 ︰","作 者 ：")
  86. arrgak=Array("插画:","插画︰","插画：","插畫:","插畫︰","插畫：","绘者:","绘者︰","绘者：","繪者:","繪者︰","繪者：","画师:","画师︰","画师：","畫師:","畫師︰","畫師：","插 画:","插 画︰","插 画：","插 畫:","插 畫︰","插 畫：","绘 者:","绘 者︰","绘 者：","繪 者:","繪 者︰","繪 者：","画 师:","画 师︰","画 师：","畫 師:","畫 師︰","畫 師：")
  87. arrfootnote=Array("注","註","译注","编注","录注","校注","譯注","編注","錄注","译註","编註","录註","校註","譯註","編註","錄註","译者注","翻译注","编者注","编辑注","录入注","校对注","譯者注","翻譯注","編者注","編輯注","錄入注","校對注","译者註","翻译註","编者註","编辑註","录入註","校对註","譯者註","翻譯註","編者註","編輯註","錄入註","校對註")
  88. arrlabel=Array("<a>","</a>","<article>","</article>","<aside>","</aside>","<audio>","</audio>","<b>","</b>","<bdi>","</bdi>","<bdo>","<bdo dir=""ltr"">","<bdodir=""rtl"">","</bdo>","<big>","</big>","<blockquote>","</blockquote>","<body>","</body>","<br>","<br/>","<br/>","<button>","</button>","<caption>","</caption>","<center>","</center>","<cite>","</cite>","<code>","</code>","<col>","</col>","<colgroup>","</colgroup>","<command>","</command>","<datalist>","</datalist>","<dd>","</dd>","<del>","</del>","<div>","</div>","<dfn>","</dfn>","<dl>","</dl>","<dt>","</dt>","<em>","</em>","<fieldset>","</fieldset>","<figcaption>","</figcaption>","<figure>","</figure>","<footer>","</footer>","<form>","</form>","<frame>","</frame>","<h1>","</h1>","<h2>","</h2>","<h3>","</h3>","<h4>","</h4>","<h5>","</h5>","<h6>","</h6>","<head>","</head>","<hr>","<hr/>","<hr/>","<html>","</html>","<i>","</i>","<iframe>","</iframe>","<img>","</img>","<ins>","</ins>","<kbd>","</kbd>","<legend>","</legend>","<li>","</li>","<mark>","</mark>","<nav>","</nav>","<noframes>","</noframes>","<noscript>","</noscript>","<object>","</object>","<ol>","</ol>","<optgroup>","</optgroup>","<option>","</option>","<p>","</p>","<pre>","</pre>","<q>","</q>","<rp>","</rp>","<rt>","</rt>","<ruby>","</ruby>","<s>","</s>","<samp>","</samp>","<script>","</script>","<section>","</section>","<select>","</select>","<small>","</small>","<span>","</span>","<strike>","</strike>","<strong>","</strong>","<style>","</style>","<sub>","</sub>","<sup>","</sup>","<table>","</table>","<td>","</td>","<time>","</time>","<title>","</title>","<tr>","</tr>","<tt>","</tt>","<u>","</u>","<ul>","</ul>","<var>","</var>","<video>","</video>","<skip>","</skip>","<split>","</split>","<chapter>","<content>","</content>")
  89. FilterAuthor
  90. author = Inputbox("author:",,author)
  91. If IsEmpty(author) Then Wscript.quit
  92. If author<>EMPTY Then author2 = Inputbox("author2:",,author2)
  93. If IsEmpty(author2) Then Wscript.quit
  94. If dcdate<>EMPTY Then pubdate=dcdate&"T16:00:00+00:00"
  95. If uid=EMPTY Then uid=LCase(Mid(CreateObject("Scriptlet.TypeLib").GUID,2,36))
  96. If rtl="rtl" Then vrtl="vrtl"

  98. epubfiletitle=objFSO.GetBaseName(Input)
  99. tempmakingfolder=objFSO.GetSpecialFolder(2)&"\"&"tempmakingfolder"
  100. metainffolder=tempmakingfolder&"\"&"META-INF"
  101. oebpsfolder=tempmakingfolder&"\"&"OEBPS"
  102. textfolder=oebpsfolder&"\"&"Text"
  103. imagesfolder=oebpsfolder&"\"&"Images"
  104. stylesfolder=oebpsfolder&"\"&"Styles"
  105. fontsfolder=oebpsfolder&"\"&"Fonts"
  106. imgfolder=objFSO.GetParentFolderName(Input)&"\"&epubfiletitle
  107. fntfolder=objFSO.GetParentFolderName(Input)&"\"&"fonts"
  108. If not objFSO.FolderExists(imgfolder) Then imgfolder=objFSO.GetParentFolderName(Input)&"\"&"Images"
  109. If not objFSO.FolderExists(imgfolder) Then imgfolder=objFSO.GetParentFolderName(Input)&"\"&"image"
  110. If not objFSO.FolderExists(fntfolder) Then fntfolder=objFSO.GetParentFolderName(Input)&"\"&"font"

  112. If objFSO.FolderExists(tempmakingfolder) Then objFSO.DeleteFolder(tempmakingfolder)
  113. If not objFSO.FolderExists(tempmakingfolder) Then objFSO.createFolder(tempmakingfolder)
  114. objFSO.createFolder(metainffolder)
  115. objFSO.createFolder(oebpsfolder)
  116. objFSO.createFolder(textfolder)
  117. objFSO.createFolder(imagesfolder)
  118. objFSO.createFolder(stylesfolder)
  119. If txtbackup=1 Then
  120.   objFSO.createFolder(tempmakingfolder&"\"&"OEBPS"&"\"&"Backup")
  121.   objFSO.GetFile(Input).Copy(tempmakingfolder&"\"&"OEBPS"&"\"&"Backup"&"\"&"backup.txt")
  122. End If

  124. If objFSO.FolderExists(imgfolder) Then
  125.   For Each i in objFSO.GetFolder(imgfolder).files
  126.     ext=LCase(objFSO.GetExtensionName(i))
  127.     If ext="jpg" or ext="png" or ext="jpeg" or ext="webp" Then
  128.       imagecopycount=imagecopycount+1
  129.       i.attributes=0
  130.       objFSO.GetFile(i).Copy(imagesfolder&"\"&i.name)
  131.     End If
  132.   Next
  133.   If imagecopycount=EMPTY Then
  134.     Wscript.echo imagemissinginfo
  135.     Wscript.quit
  136.   End If
  137. Else
  138.   Wscript.echo imagemissinginfo
  139.   Wscript.quit
  140. End If

  142. If objFSO.FolderExists(fntfolder) Then
  143.   For Each i in objFSO.GetFolder(fntfolder).files
  144.     ext=LCase(objFSO.GetExtensionName(i))
  145.     bsn=LCase(objFSO.GetBaseName(i))
  146.     If ext="ttf" or ext="otf" Then
  147.       If bsn="footnote" Then footnotebsn=objFSO.GetBaseName(i)
  148.       If bsn<>"footnote" and htmlfontbsn=EMPTY Then htmlfontbsn=objFSO.GetBaseName(i)
  149.       If not objFSO.FolderExists(fontsfolder) Then objFSO.createFolder(fontsfolder)
  150.       i.attributes=0
  151.       objFSO.GetFile(i).Copy(fontsfolder&"\"&i.name)
  152.       fontcount=fontcount+1
  153.     End If
  154.   Next
  155.   If footnotebsn=EMPTY and htmlfontbsn<>EMPTY Then footnotebsn=htmlfontbsn
  156.   If htmlfontbsn<>EMPTY and duokanfontfixed=1 Then dcid="duokan-book-id"
  157. End If

  159. If not objFSO.FileExists(imagesfolder&"\"&"footnote.png") Then footnotetype="newline"
  160. For Each i in objFSO.GetFolder(imgfolder).files
  161.   imagecount=imagecount+1
  162.   coverext=LCase(objFSO.GetExtensionName(i))
  163.   If imagecount=1 Then coverimgfn=i.name
  164.   If LCase(objFSO.GetBaseName(i))="cover" Then coverimgfn=i.name
  165. Next
  166. covermtp=LCase(coverext)
  167. If covermtp="jpg" Then covermtp="jpeg"

  169. Set mimetype = objFSO.OpenTextFile(tempmakingfolder&"\"&"mimetype",2,1,0)
  170. mimetype.Write "application/epub+zip"
  171. mimetype.close
  172. Set containerxml = objFSO.OpenTextFile(metainffolder&"\"&"container.xml",2,1,0)
  173. containerxml.Write "<?xml version=""1.0"" encoding=""UTF-8""?>"&vblf&"<container version=""1.0"" xmlns=""urn:oasis:names:tc:opendocument:xmlns:container"">"&vblf&"    <rootfiles>"&vblf&"<rootfile full-path=""OEBPS/content.opf"" media-type=""application/oebps-package+xml""/>    </rootfiles>"&vblf&"</container>"&vblf&""
  174. containerxml.close
  175. Set contentopf = objFSO.OpenTextFile(oebpsfolder&"\"&"content.opf",2,1,-1)
  176. contentopf.WriteLine "<?xml version=""1.0""  encoding=""UTF-8""?>"
  177. contentopf.WriteLine "<package xmlns=""http://www.idpf.org/2007/opf"" version=""2.0"" unique-identifier="""&dcid&""">"
  178. contentopf.WriteLine "<metadata xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:opf=""http://www.idpf.org/2007/opf"">"
  179. contentopf.WriteLine "<meta name=""cover"" content=""cover-image""/>"
  180. contentopf.WriteLine "<meta name=""output encoding"" content=""utf-8""/>"
  181. contentopf.WriteLine "<dc:title>"&epubfiletitle&"</dc:title>"
  182. If author<>EMPTY Then contentopf.WriteLine "<dc:creator id=""creator01"">"&author&"</dc:creator>"
  183. If author2<>EMPTY Then contentopf.WriteLine "<dc:creator id=""creator02"">"&author2&"</dc:creator>"
  184. If language<>EMPTY Then contentopf.WriteLine "<dc:language>"&language&"</dc:language>"
  185. If publisher<>EMPTY Then contentopf.WriteLine "<dc:publisher>"&publisher&"</dc:publisher>"
  186. If pubdate<>EMPTY Then contentopf.WriteLine "<dc:date>"&pubdate&"</dc:date>"
  187. If uid<>EMPTY Then contentopf.WriteLine "<dc:identifier id="""&dcid&""">"&uid&"</dc:identifier>"
  188. contentopf.WriteLine "</metadata>"
  189. contentopf.WriteBlankLines(1)
  190. contentopf.WriteLine "<manifest>"
  191. contentopf.WriteLine space(4)&"<item id=""ncx"" media-type=""application/x-dtbncx+xml"" href=""toc.ncx""/>"
  192. contentopf.WriteLine space(4)&"<item id=""cover-image"" media-type=""image/"&covermtp&""" href=""Images/"&coverimgfn&"""/>"
  193. contentopf.WriteLine space(4)&"<item id=""style0001.css"" media-type=""text/css"" href=""Styles/style0001.css""/>"
  194. Set stylecss = objFSO.OpenTextFile(stylesfolder&"\"&"style0001.css",2,1,-1)
  195. stylecss.WriteLine "@charSet ""UTF-8"";"
  196. stylecss.WriteBlankLines(1)
  197. If fontcount>0 Then
  198.   For Each i in objFSO.GetFolder(fontsfolder).files
  199.     stylecss.WriteLine "@font-face {"
  200.     stylecss.WriteLine "  font-family: """&objFSO.GetBaseName(i)&""";"
  201.     stylecss.WriteLine "  src: url(../Fonts/"&i.name&");"
  202.     stylecss.WriteLine "}"
  203.     stylecss.WriteBlankLines(1)
  204.   Next
  205. End If
  206. stylecss.WriteLine "* { margin: 0; padding: 0; }"
  207. stylecss.WriteBlankLines(1)
  208. stylecss.WriteLine "img {"
  209. stylecss.WriteLine "  width:               100%;"
  210. stylecss.WriteLine "  height:              auto;"
  211. stylecss.WriteLine "  margin:              0;"
  212. stylecss.WriteLine "  padding:             0;"
  213. stylecss.WriteLine "  border:              none;"
  214. stylecss.WriteLine "  vertical-align:      baseline;"
  215. stylecss.WriteLine "  background:          transparent;"
  216. stylecss.WriteLine "}"
  217. stylecss.WriteBlankLines(1)
  218. stylecss.WriteLine "html,"
  219. stylecss.WriteLine ".hltr { writing-mode:         horizontal-tb; }"
  220. stylecss.WriteLine ".vrtl { writing-mode:         vertical-rl; }"
  221. stylecss.WriteBlankLines(1)
  222. stylecss.WriteLine "body {"
  223. stylecss.WriteLine "  font-size:          100%;"
  224. If htmlfontbsn<>EMPTY Then
  225.   stylecss.WriteLine "  font-family:        "&htmlfontbsn&";"
  226. End If
  227. stylecss.WriteLine "  vertical-align:     baseline;"
  228. stylecss.WriteLine "  line-height:        "&lineheight&";"
  229. stylecss.WriteLine "  text-indent:        "&textindent&";"
  230. stylecss.WriteLine "  background:         transparent;"
  231. stylecss.WriteBlankLines(1)
  232. stylecss.WriteLine "  word-spacing:       normal;"
  233. stylecss.WriteLine "  letter-spacing:     normal;"
  234. stylecss.WriteLine "  white-space:        normal;"
  235. stylecss.WriteLine "  word-wrap:          break-word;"
  236. stylecss.WriteBlankLines(1)
  237. stylecss.WriteLine "  line-break:         normal;"
  238. stylecss.WriteLine "  -epub-line-break:   normal;"
  239. stylecss.WriteBlankLines(1)
  240. stylecss.WriteLine "  word-break:         normal;"
  241. stylecss.WriteLine "  -epub-word-break:   normal;"
  242. stylecss.WriteBlankLines(1)
  243. stylecss.WriteLine "  hyphens:            auto;"
  244. stylecss.WriteLine "  -epub-hyphens:      auto;"
  245. stylecss.WriteBlankLines(1)
  246. stylecss.WriteLine "  font-weight:        normal;"
  247. stylecss.WriteBlankLines(1)
  248. stylecss.WriteLine "  margin-top:         "&margintop&";"
  249. stylecss.WriteLine "  margin-bottom:      "&marginbottom&";"
  250. stylecss.WriteLine "}"
  251. stylecss.WriteBlankLines(1)
  252. stylecss.WriteLine "p { margin-top: "&marginp&"; }"
  253. stylecss.WriteBlankLines(1)
  254. stylecss.WriteLine "a { text-decoration: none; }"
  255. stylecss.WriteBlankLines(1)
  256. stylecss.WriteLine ".font-1em30 { font-size: 1.3em; }"
  257. stylecss.WriteLine ".align-center { text-align: center; text-indent: 0; }"
  258. stylecss.WriteLine ".align-left { text-align: left; text-indent: 0; }"
  259. stylecss.WriteLine ".align-right { text-align: right; text-indent: 0; }"
  260. stylecss.WriteLine ".duokan-bleed { duokan-bleed: "&duokanbleed&"; }"
  261. stylecss.WriteBlankLines(1)
  262. stylecss.WriteLine ".footnote-img {"
  263. stylecss.WriteLine "  height:              "&footnoteimagesize&";"
  264. stylecss.WriteLine "  width:               auto;"
  265. stylecss.WriteLine "  margin-left:         0;"
  266. stylecss.WriteLine "  margin-right:        0;"
  267. stylecss.WriteLine "  margin-top:          0;"
  268. stylecss.WriteLine "  margin-bottom:       0;"
  269. stylecss.WriteLine "  padding:             0;"
  270. stylecss.WriteLine "  text-align:          left;"
  271. stylecss.WriteLine "  vertical-align:      top;"
  272. stylecss.WriteLine "}"
  273. stylecss.WriteBlankLines(1)
  274. stylecss.WriteLine ".footnote-text {"
  275. stylecss.WriteLine "  font-size:           "&footnotefontsize&";"
  276. If footnotebsn<>EMPTY Then
  277.   stylecss.WriteLine "  font-family:         "&footnotebsn&";"
  278. End If
  279. If footnotecolor<>EMPTY Then
  280.   stylecss.WriteLine "  color:               "&footnotecolor&";"
  281. End If
  282. stylecss.WriteLine "  margin-top:          0;"
  283. stylecss.WriteLine "  margin-bottom:       0;"
  284. stylecss.WriteLine "  padding:             0;"
  285. stylecss.WriteLine "  text-indent:         0;"
  286. stylecss.WriteLine "}"
  287. stylecss.WriteBlankLines(1)
  288. stylecss.WriteLine ".footnote-size {"
  289. stylecss.WriteLine "  font-size:           "&footnotefontsize&";"
  290. stylecss.WriteLine "}"
  291. stylecss.WriteBlankLines(1)
  292. stylecss.WriteLine ".footnote-color {"
  293. stylecss.WriteLine "  color:               "&footnotecolor&";"
  294. stylecss.WriteLine "}"
  295. stylecss.WriteBlankLines(1)
  296. stylecss.WriteLine ".border-dashed {"
  297. stylecss.WriteLine "  border:              1px dashed "&footnotecolor&";"
  298. stylecss.WriteLine "  border-radius:       5px;"
  299. stylecss.WriteLine "  padding:             1px 3px;"
  300. stylecss.WriteLine "}"
  301. stylecss.WriteBlankLines(1)
  302. stylecss.close
  303. Set tocncx = objFSO.OpenTextFile(oebpsfolder&"\"&"toc.ncx",2,1,-1)
  304. tocncx.WriteLine "<?xml version='1.0' encoding='utf-8'?>"
  305. tocncx.WriteLine "<ncx xmlns=""http://www.daisy.org/z3986/2005/ncx/"" version=""2005-1"" xml:lang="""&language&""">"
  306. tocncx.WriteLine "<head>"
  307. tocncx.WriteLine "<meta content="""&uid&""" name=""dtb:uid""/>"
  308. tocncx.WriteLine "<meta content=""2"" name=""dtb:depth""/>"
  309. tocncx.WriteLine "<meta content=""0"" name=""dtb:totalPageCount""/>"
  310. tocncx.WriteLine "<meta content=""0"" name=""dtb:maxPageNumber""/>"
  311. tocncx.WriteLine "</head>"
  312. tocncx.WriteLine "<docTitle>"
  313. tocncx.WriteLine space(2)&"<text>"&epubfiletitle&"</text>"
  314. tocncx.WriteLine "</docTitle>"
  315. tocncx.WriteLine "<navMap>"
  316. Set ptoc = objFSO.OpenTextFile(textfolder&"\"&"p-toc.xhtml",2,1,-1)
  317. ptoc.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
  318. ptoc.WriteLine "<!DOCTYPE html>"
  319. ptoc.WriteLine "<html xmlns=""http://www.w3.org/1999/xhtml"" xmlns:epub=""http://www.idpf.org/2007/ops"" xml:lang="""&language&""" class="""&vrtl&""">"
  320. ptoc.WriteLine "<head>"
  321. ptoc.WriteLine "<meta charset=""UTF-8""/>"
  322. ptoc.WriteLine "<title>"&epubfiletitle&"</title>"
  323. ptoc.WriteLine "<link rel=""stylesheet"" type=""text/css"" href=""../Styles/style0001.css""/>"
  324. ptoc.WriteLine "</head>"
  325. ptoc.WriteLine "<body>"
  326. ptoc.WriteLine "<p class=""font-1em30 align-center""><a href=""cover.xhtml"">"&epubfiletitle&"</a></p>"
  327. ptoc.WriteLine "<br />"

  329. Dim ImgUsedArray
  330. ReDim ImgUsedArray(0)
  331. imgur=0
  332. ImgUsedArray(0)=coverimgfn
  333. Dim ImgMissingArray
  334. ReDim ImgMissingArray(0)
  335. imgnr=0
  336. ImgMissingArray(0)=coverimgfn

  338. epubcontentpreview=objFSO.GetSpecialFolder(2)&"\"&"epubcontentpreview.txt"
  339. Set pre = objFSO.OpenTextFile(epubcontentpreview,2,1,-1)
  340. Set fnp = objFSO.OpenTextFile(Input,1,0,-1)
  341. Do until fnp.AtEndOfStream
  342.   htline=fnp.ReadLine
  343.   htline=Trim(htline)
  344.   If htline=chapterbreak Then
  345.     chaptercount=chaptercount+1
  346.     If chaptercount>1 Then tocncx.WriteLine space(2)&"</navPoint>"
  347.     pch.WriteLine "</body></html>"
  348.     pch.close
  349.     htline=EMPTY
  350.     imgbw=EMPTY
  351.     imgbwch=EMPTY
  352.     splitbw=EMPTY
  353.     emptylinecount=0
  354.     linecountch=0
  355.     htlpn="p-ch"&Right("000"&chaptercount,3)&".xhtml"
  356.     htlpath=textfolder&"\"&htlpn
  357.     Set pch = objFSO.OpenTextFile(htlpath,2,1,-1)
  358.   End If

  360.   If chaptercount>0 Then
  361.     linecountch=linecountch+1
  362.     If linecountch=1 Then
  363.       Do while htline=EMPTY
  364.         htline=fnp.ReadLine
  365.         htline=Trim(htline)
  366.       Loop
  367.       imghtr4=LCase(Right(htline,4))
  368.       imghtr5=LCase(Right(htline,5))
  369.       If imghtr4=".jpg" or imghtr4=".png" or imghtr5=".jpeg" or imghtr5=".webp" Then
  370.         imgline=1
  371.         hta=htline
  372.         Do
  373.           htline=fnp.ReadLine
  374.           htline=Trim(htline)
  375.         Loop until htline<>EMPTY
  376.       End If
  377.       htmltitle=htline
  378.       htmltitle=ReplaceEsc(htmltitle)
  379.       htmlchapter=ReplaceRuby(htmltitle)
  380.       htmltitle=FilterRubyText(htmltitle)
  381.       htmltitle=FilterHtmlLabel(htmltitle)
  382.       htmltitle=FilterRubyText(htmltitle)
  383.       htmltitle=FilterFootnote(htmltitle)
  384.       pch.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
  385.       pch.WriteLine "<!DOCTYPE html>"
  386.       pch.WriteLine "<html xmlns=""http://www.w3.org/1999/xhtml"" xmlns:epub=""http://www.idpf.org/2007/ops"" xml:lang="""&language&""" class="""&vrtl&""">"
  387.       pch.WriteLine "<head>"
  388.       pch.WriteLine "<meta charset=""UTF-8""/>"
  389.       pch.WriteLine "<title>"&htmltitle&"</title>"
  390.       pch.WriteLine "<link rel=""stylesheet"" type=""text/css"" href=""../Styles/style0001.css""/>"
  391.       pch.WriteLine "</head>"
  392.       pch.WriteLine "<body>"
  393.       If imgline=1 Then
  394.         hta=GetJpegName(hta)
  395.         imgtextpath=imgfolder&"\"&hta
  396.         If objFSO.FileExists(imgtextpath) Then
  397.           imgtextpathfn=objFSO.GetFile(imgtextpath).name
  398.           imgur=imgur+1
  399.           ReDim Preserve ImgUsedArray(imgur)
  400.           ImgUsedArray(imgur)=imgtextpathfn
  401.          Else
  402.           imgtextpathfn=hta
  403.           imgnr=imgnr+1
  404.           ReDim Preserve ImgMissingArray(imgnr)
  405.           ImgMissingArray(imgnr)=hta
  406.         End If
  407.         pch.WriteLine "<div class=""align-center duokan-image-single duokan-bleed""><img src=""../Images/"&imgtextpathfn&""" alt=""""/></div>"
  408.       End If
  409.       If Left(htmlchapter,6)<>"<skip>" Then
  410.         chaptertitle="<p class=""font-1em30 align-center"">"&htmlchapter&"</p>"
  411.         If rtl="rtl" Then
  412.           chaptertitle="<p class=""font-1em30"">"&htmlchapter&"</p>"
  413.         End If
  414.         ReplaceFootnote chaptertitle,honntai,bunshin
  415.         pch.WriteLine honntai
  416.         If bunshin<>EMPTY Then
  417.           pch.WriteLine bunshin
  418.         End If
  419.         honntai=EMPTY
  420.         bunshin=EMPTY
  421.       End If
  422.       tocnum=tocnum+1
  423.       tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  424.       tocncx.WriteLine space(4)&"<navLabel>"
  425.       tocncx.WriteLine space(6)&"<text>"&htmltitle&"</text>"
  426.       tocncx.WriteLine space(4)&"</navLabel>"
  427.       tocncx.WriteLine space(4)&"<content src=""Text/"&htlpn&"""/>"
  428.       ptoc.WriteLine "<p class=""align-center""><a href="""&htlpn&""">"&htmltitle&"</a></p>"
  429.       pre.WriteLine htmltitle
  430.     End If
  431.     If linecountch>1 Then
  432.       hta=htline
  433.       If hta="<split>" Then hta=EMPTY
  434.       If hta=EMPTY and imgbwch<>1 and emptylineskip<>1 and splitbw<>1 Then
  435.         emptylinecount=emptylinecount+1
  436.       End If
  437.       If hta<>EMPTY Then
  438.         imghtr4=LCase(Right(hta,4))
  439.         imghtr5=LCase(Right(hta,5))
  440.         If imghtr4=".jpg" or imghtr4=".png" or imghtr5=".jpeg" or imghtr5=".webp" Then
  441.           imgline=1
  442.           imgbwch=1
  443.         End If
  444.         If imgline=1 Then
  445.           hta=GetJpegName(hta)
  446.           imgtextpath=imgfolder&"\"&hta
  447.           If objFSO.FileExists(imgtextpath) Then
  448.             imgtextpathfn=objFSO.GetFile(imgtextpath).name
  449.             imgur=imgur+1
  450.             ReDim Preserve ImgUsedArray(imgur)
  451.             ImgUsedArray(imgur)=imgtextpathfn
  452.            Else
  453.             imgtextpathfn=hta
  454.             imgnr=imgnr+1
  455.             ReDim Preserve ImgMissingArray(imgnr)
  456.             ImgMissingArray(imgnr)=hta
  457.           End If
  458.           pch.WriteLine "<div class=""align-center duokan-image-single duokan-bleed""><a name="""&imgtextpathfn&"""><img src=""../Images/"&imgtextpathfn&""" alt=""""/></a></div>"
  459.           If tocimgline=1 Then
  460.             tocimgcount=tocimgcount+1
  461.             tocnum=tocnum+1
  462.             tocncx.WriteLine space(6)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  463.             tocncx.WriteLine space(6)&"<navLabel>"
  464.             tocncx.WriteLine space(6)&"<text>"&tocimgname&""&tocimgcount&"</text>"
  465.             tocncx.WriteLine space(6)&"</navLabel>"
  466.             tocncx.WriteLine space(6)&"<content src=""Text/"&htlpn&"#"&imgtextpathfn&"""/>"
  467.             tocncx.WriteLine space(6)&"</navPoint>"
  468.             pre.WriteLine "  "&tocimgname&tocimgcount
  469.           End If
  470.         End If
  471.         If imgline<>1 Then
  472.           If imgbwch=EMPTY Then
  473.             If emptylinecount<>0 Then
  474.               For emc=1 To emptylinecount
  475.                 pch.WriteLine "<br />"
  476.               Next
  477.               emptylinecount=0
  478.             End If
  479.           End If
  480.           hta=ReplaceEsc(hta)
  481.           hta=ReplaceRuby(hta)
  482.           If CheckTagpSkip(hta)=EMPTY Then
  483.             If CheckSymbol(hta)=1 and symbolcenter=1 or IsNumeric(hta) and numbercenter=1 Then
  484.               ftn="<p class=""align-center"">"&hta&"</p>"
  485.              Else
  486.               ftn="<p>"&hta&"</p>"
  487.             End If
  488.            Else
  489.             ftn=hta
  490.           End If
  491.           ReplaceFootnote ftn,honntai,bunshin
  492.           pch.WriteLine honntai
  493.           If bunshin<>EMPTY Then
  494.             pch.WriteLine bunshin
  495.           End If
  496.           honntai=EMPTY
  497.           bunshin=EMPTY
  498.         End If
  499.       End If
  500.     End If
  501.   End If

  503.   If chaptercount=0 Then
  504.     linecountp=linecountp+1
  505.     If linecountp=1 Then
  506.       htlp=htlp+1
  507.       htmltitle=htline
  508.       htmltitle=ReplaceEsc(htmltitle)
  509.       htmlchapter=ReplaceRuby(htmltitle)
  510.       htmltitle=FilterRubyText(htmltitle)
  511.       htmltitle=FilterHtmlLabel(htmltitle)
  512.       htmltitle=FilterRubyText(htmltitle)
  513.       htmltitle=FilterFootnote(htmltitle)
  514.       htlpn="p-"&Right("000"&htlp,3)&".xhtml"
  515.       htlpath=textfolder&"\"&htlpn
  516.       Set pch = objFSO.OpenTextFile(htlpath,2,1,-1)
  517.       pch.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
  518.       pch.WriteLine "<!DOCTYPE html>"
  519.       pch.WriteLine "<html xmlns=""http://www.w3.org/1999/xhtml"" xmlns:epub=""http://www.idpf.org/2007/ops"" xml:lang="""&language&""" class="""&vrtl&""">"
  520.       pch.WriteLine "<head>"
  521.       pch.WriteLine "<meta charset=""UTF-8""/>"
  522.       pch.WriteLine "<title>"&htmltitle&"</title>"
  523.       pch.WriteLine "<link rel=""stylesheet"" type=""text/css"" href=""../Styles/style0001.css""/>"
  524.       pch.WriteLine "</head>"
  525.       pch.WriteLine "<body>"
  526.       If Left(htmlchapter,6)<>"<skip>" Then
  527.         chaptertitle="<p class=""font-1em30 align-center"">"&htmlchapter&"</p>"
  528.         If rtl="rtl" Then
  529.           chaptertitle="<p class=""font-1em30"">"&htmlchapter&"</p>"
  530.         End If
  531.         ReplaceFootnote chaptertitle,honntai,bunshin
  532.         pch.WriteLine honntai
  533.         If bunshin<>EMPTY Then
  534.           pch.WriteLine bunshin
  535.         End If
  536.         honntai=EMPTY
  537.         bunshin=EMPTY
  538.       End If
  539.       tocnum=tocnum+1
  540.       tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  541.       tocncx.WriteLine space(4)&"<navLabel>"
  542.       tocncx.WriteLine space(6)&"<text>"&covername&"</text>"
  543.       tocncx.WriteLine space(4)&"</navLabel>"
  544.       tocncx.WriteLine space(4)&"<content src=""Text/cover.xhtml""/>"
  545.       tocncx.WriteLine space(2)&"</navPoint>"
  546.       pre.WriteLine covername
  547.     End If
  548.     If linecountp>1 Then
  549.       hta=htline
  550.       If hta="<split>" Then
  551.         hta=EMPTY
  552.         splitbw=1
  553.         emptylinecount=0
  554.       End If
  555.       If imgbw=1 Then emptylinecount=0
  556.       If hta=EMPTY and imgbw<>1 and emptylineskip<>1 and splitbw<>1 Then
  557.         emptylinecount=emptylinecount+1
  558.       End If
  559.       If hta<>EMPTY Then
  560.         imghtr4=LCase(Right(hta,4))
  561.         imghtr5=LCase(Right(hta,5))
  562.         If imghtr4=".jpg" or imghtr4=".png" or imghtr5=".jpeg" or imghtr5=".webp" Then
  563.           imgline=1
  564.         End If
  565.         If imgline=1 Then
  566.           hta=GetJpegName(hta)
  567.           imgtextpath=imgfolder&"\"&hta
  568.           If objFSO.FileExists(imgtextpath) Then
  569.             imgtextpathfn=objFSO.GetFile(imgtextpath).name
  570.             imgur=imgur+1
  571.             ReDim Preserve ImgUsedArray(imgur)
  572.             ImgUsedArray(imgur)=imgtextpathfn
  573.            Else
  574.             imgtextpathfn=hta
  575.             imgnr=imgnr+1
  576.             ReDim Preserve ImgMissingArray(imgnr)
  577.             ImgMissingArray(imgnr)=hta
  578.           End If
  579.           pch.WriteLine "</body></html>"
  580.           pch.close
  581.           htlp=htlp+1
  582.           htlpn="p-"&Right("000"&htlp,3)&".xhtml"
  583.           htlpath=textfolder&"\"&htlpn
  584.           Set pch = objFSO.OpenTextFile(htlpath,2,1,-1)
  585.           colorpage=colorpage+1
  586.           If colorpage=1 Then
  587.             tocnum=tocnum+1
  588.             tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  589.             tocncx.WriteLine space(4)&"<navLabel>"
  590.             tocncx.WriteLine space(6)&"<text>"&tocpagecolor&"</text>"
  591.             tocncx.WriteLine space(4)&"</navLabel>"
  592.             tocncx.WriteLine space(4)&"<content src=""Text/"&htlpn&"""/>"
  593.             tocncx.WriteLine space(2)&"</navPoint>"
  594.             ptoc.WriteLine "<p class=""align-center""><a href="""&htlpn&""">"&tocpagecolor&"</a></p>"
  595.             pre.WriteLine tocpagecolor
  596.           End If
  597.           pch.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
  598.           pch.WriteLine "<!DOCTYPE html>"
  599.           pch.WriteLine "<html xmlns=""http://www.w3.org/1999/xhtml"" xmlns:epub=""http://www.idpf.org/2007/ops"" xml:lang="""&language&""" class="""&vrtl&""">"
  600.           pch.WriteLine "<head>"
  601.           pch.WriteLine "<meta charset=""UTF-8""/>"
  602.           pch.WriteLine "<title>"&tocpagecolor&"</title>"
  603.           pch.WriteLine "<link rel=""stylesheet"" type=""text/css"" href=""../Styles/style0001.css""/>"
  604.           pch.WriteLine "</head>"
  605.           pch.WriteLine "<body>"
  606.           pch.WriteLine "<div class=""align-center duokan-image-single duokan-bleed""><a name="""&imgtextpathfn&"""><img src=""../Images/"&htline&""" alt=""""/></a></div>"
  607.           imgbw=1
  608.         End If
  609.         If imgline<>1 Then
  610.           If CheckIntro(hta)=1 Then tocintro=1
  611.           If CheckInfo(hta)=1 Then tocinfo=1
  612.           If CheckAuthor(hta)=1 Then tocauthor=1
  613.           If Left(hta,9)="<content>" and Right(hta,10)="</content>" Then tocpage=1
  614.           hta=ReplaceEsc(hta)
  615.           hta=ReplaceRuby(hta)
  616.           If imgbw<>1 and splitbw<>1 Then
  617.             If emptylinecount<>0 Then
  618.               For emc=1 To emptylinecount
  619.                 pch.WriteLine "<br />"
  620.               Next
  621.               emptylinecount=0
  622.             End If
  623.             If CheckTagpSkip(hta)=EMPTY Then
  624.               If CheckSymbol(hta)=1 and symbolcenter=1 or IsNumeric(hta) and numbercenter=1 Then
  625.                 ftn="<p class=""align-center"">"&hta&"</p>"
  626.                Else
  627.                 ftn="<p>"&hta&"</p>"
  628.               End If
  629.              Else
  630.               ftn=hta
  631.             End If
  632.             ReplaceFootnote ftn,honntai,bunshin
  633.             pch.WriteLine honntai
  634.             If bunshin<>EMPTY Then
  635.               pch.WriteLine bunshin
  636.             End If
  637.             honntai=EMPTY
  638.             bunshin=EMPTY
  639.           End If
  640.           If imgbw=1 or splitbw=1 Then
  641.             imgbw=EMPTY
  642.             splitbw=EMPTY
  643.             pch.WriteLine "</body></html>"
  644.             pch.close
  645.             htlp=htlp+1
  646.             htlpn="p-"&Right("000"&htlp,3)&".xhtml"
  647.             htlpath=textfolder&"\"&htlpn
  648.             Set pch = objFSO.OpenTextFile(htlpath,2,1,-1)
  649.             pch.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
  650.             pch.WriteLine "<!DOCTYPE html>"
  651.             pch.WriteLine "<html xmlns=""http://www.w3.org/1999/xhtml"" xmlns:epub=""http://www.idpf.org/2007/ops"" xml:lang="""&language&""" class="""&vrtl&""">"
  652.             pch.WriteLine "<head>"
  653.             pch.WriteLine "<meta charset=""UTF-8""/>"
  654.             pch.WriteLine "<title>"&htmltitle&"</title>"
  655.             pch.WriteLine "<link rel=""stylesheet"" type=""text/css"" href=""../Styles/style0001.css""/>"
  656.             pch.WriteLine "</head>"
  657.             pch.WriteLine "<body>"
  658.             If CheckTagpSkip(hta)<>1 Then
  659.               If CheckSymbol(hta)=1 and symbolcenter=1 or IsNumeric(hta) and numbercenter=1 Then
  660.                 ftn="<p class=""align-center"">"&hta&"</p>"
  661.                Else
  662.                 ftn="<p>"&hta&"</p>"
  663.               End If
  664.              Else
  665.               ftn=hta
  666.             End If
  667.             ReplaceFootnote ftn,honntai,bunshin
  668.             pch.WriteLine honntai
  669.             If bunshin<>EMPTY Then
  670.               pch.WriteLine bunshin
  671.             End If
  672.             honntai=EMPTY
  673.             bunshin=EMPTY
  674.           End If
  675.           If tocintro=1 and tocintrowr=EMPTY Then
  676.             tocintrowr=1
  677.             tocnum=tocnum+1
  678.             tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  679.             tocncx.WriteLine space(4)&"<navLabel>"
  680.             tocncx.WriteLine space(6)&"<text>"&tocintroname&"</text>"
  681.             tocncx.WriteLine space(4)&"</navLabel>"
  682.             tocncx.WriteLine space(4)&"<content src=""Text/"&htlpn&"""/>"
  683.             tocncx.WriteLine space(2)&"</navPoint>"
  684.             ptoc.WriteLine "<p class=""align-center""><a href="""&htlpn&""">"&tocintroname&"</a></p>"
  685.             pre.WriteLine tocintroname
  686.           End If
  687.           If tocinfo=1 and tocinfowr=EMPTY Then
  688.             tocinfowr=1
  689.             tocnum=tocnum+1
  690.             tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  691.             tocncx.WriteLine space(4)&"<navLabel>"
  692.             tocncx.WriteLine space(6)&"<text>"&tocmakeinfo&"</text>"
  693.             tocncx.WriteLine space(4)&"</navLabel>"
  694.             tocncx.WriteLine space(4)&"<content src=""Text/"&htlpn&"""/>"
  695.             tocncx.WriteLine space(2)&"</navPoint>"
  696.             ptoc.WriteLine "<p class=""align-center""><a href="""&htlpn&""">"&tocmakeinfo&"</a></p>"
  697.             pre.WriteLine tocmakeinfo
  698.           End If
  699.           If tocauthor=1 and tocauthwr=EMPTY Then
  700.             tocauthwr=1
  701.             tocnum=tocnum+1
  702.             tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  703.             tocncx.WriteLine space(4)&"<navLabel>"
  704.             tocncx.WriteLine space(6)&"<text>"&tocauthname&"</text>"
  705.             tocncx.WriteLine space(4)&"</navLabel>"
  706.             tocncx.WriteLine space(4)&"<content src=""Text/"&htlpn&"""/>"
  707.             tocncx.WriteLine space(2)&"</navPoint>"
  708.             ptoc.WriteLine "<p class=""align-center""><a href="""&htlpn&""">"&tocauthname&"</a></p>"
  709.             pre.WriteLine tocauthname
  710.           End If
  711.           If tocpage=1 and tocpagewr=EMPTY Then
  712.             tocpagewr=1
  713.             tocnum=tocnum+1
  714.             contenthtmlfile=htlpn
  715.             tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  716.             tocncx.WriteLine space(4)&"<navLabel>"
  717.             tocncx.WriteLine space(6)&"<text>"&toclistpage&"</text>"
  718.             tocncx.WriteLine space(4)&"</navLabel>"
  719.             tocncx.WriteLine space(4)&"<content src=""Text/"&htlpn&"""/>"
  720.             tocncx.WriteLine space(2)&"</navPoint>"
  721.             ptoc.WriteLine "<p class=""align-center""><a href="""&htlpn&""">"&toclistpage&"</a></p>"
  722.             pre.WriteLine toclistpage
  723.           End If
  724.         End If
  725.       End If
  726.     End If
  727.   End If
  728.   imgline=EMPTY
  729. Loop

  731. pch.WriteLine "</body></html>"
  732. pch.close
  733. fnp.close
  734. tocncx.WriteLine space(2)&"</navPoint>"
  735. If contenthtmlfile=EMPTY Then
  736.   tocnum=tocnum+1
  737.   tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  738.   tocncx.WriteLine space(4)&"<navLabel>"
  739.   tocncx.WriteLine space(6)&"<text>"&toclistpage&"</text>"
  740.   tocncx.WriteLine space(4)&"</navLabel>"
  741.   tocncx.WriteLine space(4)&"<content src=""Text/p-toc.xhtml""/>"
  742.   tocncx.WriteLine space(2)&"</navPoint>"
  743.   ptoc.WriteLine "<p class=""align-center""><a href=""p-toc.xhtml"">"&toclistpage&"</a></p>"
  744.   pre.WriteLine toclistpage
  745. End If
  746. If imagepage=1 Then
  747.   tocnum=tocnum+1
  748.   tocncx.WriteLine space(2)&"<navPoint id=""np_"&tocnum&""" playOrder="""&tocnum&""">"
  749.   tocncx.WriteLine space(4)&"<navLabel>"
  750.   tocncx.WriteLine space(6)&"<text>"&tocimgpagename&"</text>"
  751.   tocncx.WriteLine space(4)&"</navLabel>"
  752.   tocncx.WriteLine space(4)&"<content src=""Text/t-img.xhtml""/>"
  753.   tocncx.WriteLine space(2)&"</navPoint>"
  754.   ptoc.WriteLine "<p class=""align-center""><a href=""t-img.xhtml"">"&tocimgpagename&"</a></p>"
  755.   pre.WriteLine tocimgpagename
  756. End If
  757. tocncx.WriteLine "</navMap>"
  758. tocncx.WriteLine "</ncx>"
  759. tocncx.close
  760. ptoc.WriteLine "</body></html>"
  761. ptoc.close
  762. If contenthtmlfile<>EMPTY Then
  763.   objFSO.DeleteFile(textfolder&"\"&contenthtmlfile)
  764.   objFSO.GetFile(textfolder&"\"&"p-toc.xhtml").name=contenthtmlfile
  765. End If
  766. pre.WriteBlankLines(1)
  767. pre.WriteLine "Image Not Used:"
  768. imgurc=0
  769. For Each ir in objFSO.GetFolder(imagesfolder).files
  770.   For iu=0 To UBound(ImgUsedArray)
  771.     If LCase(ir.name)=LCase(ImgUsedArray(iu)) Then
  772.       imu=1
  773.       Exit For
  774.      Else
  775.       imu=EMPTY
  776.     End If
  777.   Next
  778.   If imu=EMPTY Then
  779.     pre.WriteLine ir.name
  780.     imgurc=imgurc+1
  781.   End If
  782. Next
  783. If imgurc=0 Then pre.WriteLine "none"
  784. pre.WriteBlankLines(1)
  785. pre.WriteLine "Image Not Exists:"
  786. If UBound(ImgMissingArray)=0 Then
  787.   pre.WriteLine "none"
  788. Else
  789.   For i=1 To UBound(ImgMissingArray)
  790.     pre.WriteLine ImgMissingArray(i)
  791.   Next
  792. End If
  793. pre.WriteBlankLines(1)
  794. pre.WriteLine "Ruby-Count: "&rubycount
  795. pre.WriteLine "Ruby-Error: "&rubyerror
  796. pre.WriteLine "Footnote-Count: "&footnotecount
  797. pre.WriteLine "Footnote-Error: "&footnoteerror
  798. pre.close

  800. Set coverhtml = objFSO.OpenTextFile(textfolder&"\"&"cover.xhtml",2,1,-1)
  801. coverhtml.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
  802. coverhtml.WriteLine "<!DOCTYPE html>"
  803. coverhtml.WriteLine "<html xmlns=""http://www.w3.org/1999/xhtml"" xmlns:epub=""http://www.idpf.org/2007/ops"" xml:lang="""&language&""" class="""&vrtl&""">"
  804. coverhtml.WriteLine "<head>"
  805. coverhtml.WriteLine "<meta charset=""UTF-8""/>"
  806. coverhtml.WriteLine "<title>封面</title>"
  807. coverhtml.WriteLine "<link rel=""stylesheet"" type=""text/css"" href=""../Styles/style0001.css""/>"
  808. coverhtml.WriteLine "</head>"
  809. coverhtml.WriteLine "<body>"
  810. coverhtml.WriteLine "<p class=""align-center""><img src=""../Images/"&coverimgfn&""" alt=""""/></p>"
  811. coverhtml.WriteLine "</body>"
  812. coverhtml.WriteLine "</html>"
  813. coverhtml.close
  814. If imagepage=1 Then
  815.   Set timg = objFSO.OpenTextFile(textfolder&"\"&"t-img.xhtml",2,1,-1)
  816.   timg.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
  817.   timg.WriteLine "<!DOCTYPE html>"
  818.   timg.WriteLine "<html xmlns=""http://www.w3.org/1999/xhtml"" xmlns:epub=""http://www.idpf.org/2007/ops"" xml:lang="""&language&""" class="""&vrtl&""">"
  819.   timg.WriteLine "<head>"
  820.   timg.WriteLine "<meta charset=""UTF-8""/>"
  821.   timg.WriteLine "<title>"&tocimgpagename&"</title>"
  822.   timg.WriteLine "<link rel=""stylesheet"" type=""text/css"" href=""../Styles/style0001.css""/>"
  823.   timg.WriteLine "</head>"
  824.   timg.WriteLine "<body>"
  825.   For Each i in objFSO.GetFolder(imagesfolder).files
  826.     timg.WriteLine "<div class=""align-center duokan-image-single duokan-bleed""><img src=""../Images/"&i.name&""" alt=""""/></div>"
  827.   Next
  828.   timg.WriteLine "</body>"
  829.   timg.WriteLine "</html>"
  830.   timg.close
  831. End If
  832. For Each i in objFSO.GetFolder(imagesfolder).files
  833.   mtp=LCase(objFSO.GetExtensionName(i))
  834.   If mtp="jpg" Then mtp="jpeg"
  835.   contentopf.WriteLine space(4)&"<item id="""&i.name&""" media-type=""image/"&mtp&""" href=""Images/"&i.name&"""/>"
  836. Next
  837. If fontcount>0 Then
  838.   For Each i in objFSO.GetFolder(fontsfolder).files
  839.     mtp=LCase(objFSO.GetExtensionName(i))
  840.     contentopf.WriteLine space(4)&"<item id="""&i.name&""" media-type=""application/x-font-"&mtp&""" href=""Fonts/"&i.name&"""/>"
  841.   Next
  842. End If
  843. For Each i in objFSO.GetFolder(textfolder).files
  844.   contentopf.WriteLine space(4)&"<item id="""&i.name&""" media-type=""application/xhtml+xml"" href=""Text/"&i.name&"""/>"
  845. Next
  846. contentopf.WriteLine "</manifest>"
  847. contentopf.WriteBlankLines(1)
  848. contentopf.WriteLine "<spine page-progression-direction="""&rtl&""" toc=""ncx"">"
  849. For Each i in objFSO.GetFolder(textfolder).files
  850.   spinecount=spinecount+1
  851.   If spinecount=1 Then
  852.     contentopf.WriteLine space(4)&"<itemref idref="""&i.name&""" linear=""yes"" properties="""&duokancover&"""/>"
  853.    Else
  854.     contentopf.WriteLine space(4)&"<itemref idref="""&i.name&""" linear=""yes""/>"
  855.   End If
  856. Next
  857. contentopf.WriteLine "</spine>"
  858. contentopf.WriteBlankLines(1)
  859. contentopf.WriteLine "<guide>"
  860. contentopf.WriteLine "<reference type=""cover"" title=""Cover"" href=""cover.xhtml""/>"
  861. contentopf.WriteLine "</guide>"
  862. contentopf.WriteLine "</package>"
  863. contentopf.close

  865. Utf8Convert stylesfolder&"\"&"style0001.css"
  866. Utf8Convert oebpsfolder&"\"&"content.opf"
  867. Utf8Convert oebpsfolder&"\"&"toc.ncx"
  868. For Each i in objFSO.GetFolder(textfolder).files
  869.   Utf8Convert i.path
  870. Next

  872. Output=objFSO.GetParentFolderName(Input)&"\"&epubfiletitle&".zip"
  873. OutputEpub=objFSO.GetParentFolderName(Input)&"\"&epubfiletitle&".epub"
  874. If objFSO.FileExists(Output) Then
  875.   objFSO.GetFile(Output).attributes=0
  876.   objFSO.DeleteFile(Output)
  877. End If
  878. objFSO.CreateTextFile(Output,2).Write Chr(80)&Chr(75)&Chr(5)&Chr(6)&String(18,Chr(0))
  879. CreateObject("Shell.Application").NameSpace(Output).CopyHere tempmakingfolder&"\"&"mimetype"
  880. Wscript.sleep 100
  881. CreateObject("Shell.Application").NameSpace(Output).CopyHere metainffolder
  882. Wscript.sleep 100
  883. CreateObject("Shell.Application").NameSpace(Output).CopyHere oebpsfolder
  884. Wscript.sleep 1500
  885. If inputfiledelete=1 Then
  886.   objFSO.DeleteFile(Input)
  887.   If objFSO.FolderExists(imgfolder) Then objFSO.DeleteFolder(imgfolder)
  888.   If objFSO.FolderExists(fntfolder) Then objFSO.DeleteFolder(fntfolder)
  889. End If
  890. Wscript.echo "done"
  891. If objFSO.FileExists(OutputEpub) Then objFSO.DeleteFile(OutputEpub)
  892. objFSO.GetFile(Output).move(OutputEpub)
  893. objFSO.DeleteFolder(tempmakingfolder)
  894. WshShell.run epubcontentpreview,1,True
  895. objFSO.DeleteFile(epubcontentpreview)
  896. Wscript.quit

  898. Function CheckFootnote(a)
  899.   CheckFootnote=EMPTY
  900.   For kw=0 To UBound(arrfootnote)
  901.     If a=arrfootnote(kw) Then
  902.       CheckFootnote=1
  903.       Exit For
  904.     End If
  905.   Next
  906. End Function

  908. Function CheckIntro(a)
  909.   CheckIntro=EMPTY
  910.   For kw=0 To UBound(arrintro)
  911.     If a=arrintro(kw) Then
  912.       CheckIntro=1
  913.       Exit For
  914.     End If
  915.   Next
  916. End Function

  918. Function CheckAuthor(a)
  919.   CheckAuthor=EMPTY
  920.   For kw=0 To UBound(arrauthor)
  921.     If a=arrauthor(kw) Then
  922.       CheckAuthor=1
  923.       Exit For
  924.     End If
  925.   Next
  926. End Function

  928. Function CheckInfo(a)
  929.   CheckInfo=EMPTY
  930.   For kw=0 To UBound(arrinfo)
  931.     If a=arrinfo(kw) Then
  932.       CheckInfo=1
  933.       Exit For
  934.     End If
  935.   Next
  936. End Function

  938. Function CheckAut(a)
  939.   For kw=0 To UBound(arraut)
  940.     If Left(a,5)=arraut(kw) Then author=Trim(Mid(a,6))
  941.     If Left(a,4)=arraut(kw) Then author=Trim(Mid(a,5))
  942.     If Left(a,3)=arraut(kw) Then author=Trim(Mid(a,4))
  943.     If author<>EMPTY Then Exit For
  944.   Next
  945. End Function

  947. Function CheckGak(a)
  948.   For kw=0 To UBound(arrgak)
  949.     If Left(a,4)=arrgak(kw) Then author2=Trim(Mid(a,5))
  950.     If Left(a,3)=arrgak(kw) Then author2=Trim(Mid(a,4))
  951.     If author2<>EMPTY Then Exit For
  952.   Next
  953. End Function

  955. Function CheckLabel(a)
  956.   CheckLabel=EMPTY
  957.   For kw=0 To UBound(arrlabel)
  958.     If LCase(a)=arrlabel(kw) Then
  959.       CheckLabel=1
  960.       Exit For
  961.     End If
  962.   Next
  963. End Function

  965. Function CheckSymbol(a)
  966.   CheckSymbol=EMPTY
  967.   For cls=1 To Len(a)
  968.     For kw=0 To UBound(arrsymbol)
  969.       If Mid(a,cls,1)=arrsymbol(kw) Then
  970.         SymbolStat=1
  971.         Exit For
  972.        Else
  973.         SymbolStat=EMPTY
  974.       End If
  975.     Next
  976.     If SymbolStat=EMPTY Then
  977.       Exit For
  978.     End If
  979.   Next
  980.   If SymbolStat=1 Then CheckSymbol=1
  981. End Function

  983. Function ReplaceEsc(a)
  984.   Do
  985.     a1=InStr(a,"<")
  986.     a2=0
  987.     If a1>0 Then
  988.       b=b&Left(a,a1-1)
  989.       a=Right(a,Len(a)-a1+1)
  990.       a2=InStr(a,">")
  991.       If a2>0 Then
  992.         ab=Left(a,a2)
  993.         a=Right(a,Len(a)-a2)
  994.         abtrim=Mid(ab,2,Len(ab)-2)
  995.         If CheckLabel(ab)=EMPTY Then
  996.           If Left(ab,4)<>"<img" and Left(ab,5)<>"<span" and Left(ab,6)<>"<audio" and Left(ab,6)<>"video" and Left(ab,7)<>"<source" Then
  997.             ab="&lt;"&abtrim&"&gt;"
  998.           End If
  999.         End If
  1000.       End If
  1001.     End If
  1002.     b=b&ab
  1003.     ab=EMPTY
  1004.     abtrim=EMPTY
  1005.   Loop while a2>0
  1006.   b=b&a
  1007.   ReplaceEsc=b
  1008. End Function

  1010. Function Utf8Convert(UnicodeFile)
  1011.   objAdodbStream.Charset="Unicode"
  1012.   objAdodbStream.Open
  1013.   objAdodbStream.LoadFromFile UnicodeFile
  1014.   OutputText = objAdodbStream.ReadText
  1015.   objAdodbStream.Close
  1016.   objAdodbStream.Charset="Utf-8"
  1017.   objAdodbStream.Open
  1018.   objAdodbStream.WriteText OutputText
  1019.   objAdodbStream.SaveToFile UnicodeFile,2
  1020.   objAdodbStream.Close
  1021. End Function

  1023. Function ReplaceRuby(a)
  1024.   Do
  1025.     a1=InStr(a,rubya)
  1026.     If a1>0 Then
  1027.       b=Right(a,Len(a)-a1)
  1028.       a=Left(a,a1-1)
  1029.       b1=InStr(b,rubyb)
  1030.       b2=InStr(b,rubya)
  1031.       If b1>0 Then
  1032.         c=Right(b,Len(b)-b1)
  1033.         b=Left(b,b1-1)
  1034.         c1=InStr(c,rubyc)
  1035.         If c1=0 Then
  1036.           rubyerror=rubyerror+1
  1037.         End If
  1038.         If c1>0 Then
  1039.           d=Right(c,Len(c)-c1)
  1040.           c=Left(c,c1-1)
  1041.           If b=EMPTY or c=EMPTY Then
  1042.             rubyerror=rubyerror+1
  1043.           End If
  1044.         End If
  1045.       End If
  1046.     End If
  1047.     rubyint="<ruby>"
  1048.     rubymid="<rt>"
  1049.     rubyend="</rt></ruby>"
  1050.     If b<>EMPTY and c<>EMPTY Then
  1051.       rubystr=1
  1052.       rubycount=rubycount+1
  1053.       rubyinlinestr=rubyint&b&rubymid&c&rubyend
  1054.       rubyspanstr="<span id=""ruby"&rubycount&""">"&rubyinlinestr&"</span>"
  1055.       a=a&rubyspanstr&d
  1056.       b3=InStr(c,rubya)
  1057.       b4=InStr(c,rubyb)
  1058.       b5=InStr(b,rubya)
  1059.       b6=InStr(b,rubyc)
  1060.       If b3>0 or b4>0 or b5>0 or b6>0 Then
  1061.         rubyerror=rubyerror+1
  1062.       End If
  1063.       If b1>0 and b2>0 Then
  1064.         If b1>b2 Then
  1065.           rubyerror=rubyerror+1
  1066.         End If
  1067.       End If
  1068.       If rubystr=1 and rubytablestat=1 Then
  1069.         rubytablehtmlfn=rubyhref
  1070.         rubyhrefstr="<a href="""&rubytablehtmlfn&"#ruby"&rubycount&""">"&rubyinlinestr&"</a>"
  1071.         rubytexthtmlstr=rubytexthtmlstr&"　"&rubyhrefstr
  1072.         If rubycount=1 Then
  1073.           rubytexthtmlstr=rubyhrefstr
  1074.         End If
  1075.         rubyhrefstr=EMPTY
  1076.         rubytablehtmlfn=EMPTY
  1077.       End If
  1078.      Else
  1079.       a=a&b&c&d
  1080.       rubystr=EMPTY
  1081.     End If
  1082.     a1=EMPTY
  1083.     b1=EMPTY
  1084.     c1=EMPTY
  1085.     b=EMPTY
  1086.     c=EMPTY
  1087.     d=EMPTY
  1088.     b2=EMPTY
  1089.     b3=EMPTY
  1090.     b4=EMPTY
  1091.     b5=EMPTY
  1092.     b6=EMPTY
  1093.   Loop while rubystr=1
  1094.   ReplaceRuby=a
  1095. End Function

  1097. Function FilterRubyLabel(a)
  1098.   Do
  1099.     rubyfilter=EMPTY
  1100.     For i=1 To Len(a)-5
  1101.       If LCase(Mid(a,i,6))="<ruby>" Then
  1102.         b=Right(a,Len(a)-i+1)
  1103.         a=Left(a,i-1)
  1104.         b1=Right(b,Len(b)-6)
  1105.         b2=Instr(b1,"<")
  1106.         If b2>0 Then
  1107.           b3=Left(b1,b2-1)
  1108.           For r=1 To Len(b)-6
  1109.             If LCase(Mid(b,r,7))="</ruby>" Then
  1110.               c=Right(b,Len(b)-r-6)
  1111.               b=Left(b,r-1)
  1112.               rubyfilter=1
  1113.               Exit For
  1114.             End If
  1115.           Next
  1116.         End If
  1117.       End If
  1118.       If rubyfilter=1 Then
  1119.         Exit For
  1120.       End If
  1121.     Next
  1122.     If rubyfilter=1 Then
  1123.       a=a&b3&c
  1124.      Else
  1125.       a=a&b
  1126.     End If
  1127.     b=EMPTY
  1128.     c=EMPTY
  1129.   Loop while rubyfilter=1
  1130.   FilterRubyLabel=a
  1131. End Function

  1133. Function FilterHtmlLabel(a)
  1134.   Do
  1135.     a1=InStr(a,"<")
  1136.     a2=0
  1137.     If a1>0 Then
  1138.       b=b&Left(a,a1-1)
  1139.       a=Right(a,Len(a)-a1+1)
  1140.       a2=InStr(a,">")
  1141.       If a2>0 Then
  1142.         ab=Left(a,a2)
  1143.         a=Right(a,Len(a)-a2)
  1144.         If CheckLabel(ab)=1 Then
  1145.           ab=EMPTY
  1146.         End If
  1147.       End If
  1148.     End If
  1149.     b=b&ab
  1150.     ab=EMPTY
  1151.   Loop while a2>0
  1152.   b=b&a
  1153.   FilterHtmlLabel=b
  1154. End Function

  1156. Function FilterRubyText(a)
  1157.   Do
  1158.     rubytext=EMPTY
  1159.     efa=a
  1160.     For i=1 To Len(a)
  1161.       If Mid(a,i,1)=rubya Then
  1162.         b=Right(a,Len(a)-i)
  1163.         efb=Right(a,Len(a)-i+1)
  1164.         efa=Left(a,i-1)
  1165.         For r=1 To Len(b)
  1166.           If Mid(b,r,1)=rubyb Then
  1167.             c=Right(b,Len(b)-r)
  1168.             For w=1 To Len(c)
  1169.               If Mid(c,w,1)=rubyc Then
  1170.                 efd=Right(c,Len(c)-w)
  1171.                 efc=Left(c,w-1)
  1172.                 efb=Left(b,r-1)
  1173.                 rubytext=1
  1174.                 Exit For
  1175.               End If
  1176.             Next
  1177.           End If
  1178.           If rubytext=1 Then
  1179.             Exit For
  1180.           End If
  1181.         Next
  1182.       End If
  1183.       If rubytext=1 Then
  1184.         Exit For
  1185.       End If
  1186.     Next
  1187.     a=efa&efb&efd
  1188.     efa=EMPTY
  1189.     efb=EMPTY
  1190.     efc=EMPTY
  1191.     efd=EMPTY
  1192.   Loop while rubytext=1
  1193.   FilterRubyText=a
  1194. End Function

  1196. Function CheckTagpSkip(a)
  1197.   If a="<br/>" or a="<br />" or Left(a,4)="<hr " or Left(a,3)="<p>" or Left(a,3)="<p " or Left(a,4)="<div" Then
  1198.     CheckTagpSkip=1
  1199.   End If
  1200. End Function

  1202. Function ReplaceFootnote(a,HonnTaiLine,BunShinLine)
  1203.   Do
  1204.     footnotestr=EMPTY
  1205.     For i=1 To Len(a)-2
  1206.       b=Mid(a,i,3)
  1207.       a1=Mid(a,1,i-1)
  1208.       a2=Mid(a,i)
  1209.       b1=Left(b,1)
  1210.       b2=Mid(b,2,1)
  1211.       b3=Right(b,1)
  1212.       If b1="（" or b1="(" Then
  1213.         If CheckFootnote(b2)=1 Then
  1214.           If b3="：" or b3=":" or b3="︰" Then
  1215.             footnotestat=1
  1216.             footnotestrlen=1
  1217.           End If
  1218.         End If
  1219.       End If

  1221.       If footnotestat=EMPTY Then
  1222.         b=Mid(a,i,4)
  1223.         a1=Mid(a,1,i-1)
  1224.         a2=Mid(a,i)
  1225.         b1=Left(b,1)
  1226.         b2=Mid(b,2,2)
  1227.         b3=Right(b,1)
  1228.         If b1="（" or b1="(" Then
  1229.           If CheckFootnote(b2)=1 Then
  1230.             If b3="：" or b3=":" or b3="︰" Then
  1231.               footnotestat=1
  1232.               footnotestrlen=2
  1233.             End If
  1234.           End If
  1235.         End If
  1236.       End If

  1238.       If footnotestat=EMPTY Then
  1239.         b=Mid(a,i,5)
  1240.         a1=Mid(a,1,i-1)
  1241.         a2=Mid(a,i)
  1242.         b1=Left(b,1)
  1243.         b2=Mid(b,2,3)
  1244.         b3=Right(b,1)
  1245.         If b1="（" or b1="(" Then
  1246.           If CheckFootnote(b2)=1 Then
  1247.             If b3="：" or b3=":" or b3="︰" Then
  1248.               footnotestat=1
  1249.               footnotestrlen=3
  1250.             End If
  1251.           End If
  1252.         End If
  1253.       End If

  1255.       If footnotestat=1 Then
  1256.         If b1="（" Then be1="）"
  1257.         If b1="(" Then be1=")"
  1258.         be=Instr(a2,be1)
  1259.         a3=Mid(a2,2)
  1260.         be2=Instr(a3,b1)
  1261.         If be>0 and be2>0 Then
  1262.           If be>be2 Then
  1263.             footnoteerror=footnoteerror+1
  1264.           End If
  1265.         End If
  1266.         If be=0 Then
  1267.           footnoteerror=footnoteerror+1
  1268.         End If
  1269.         If be>0 Then
  1270.           If footnotestrlen=1 Then
  1271.             c=Mid(a,i+be)
  1272.             d=Mid(a,i+1,be-2)
  1273.           End If
  1274.           If footnotestrlen=2 Then
  1275.             c=Mid(a,i+be)
  1276.             d=Mid(a,i+1,be-2)
  1277.           End If
  1278.           If footnotestrlen=3 Then
  1279.             c=Mid(a,i+be)
  1280.             d=Mid(a,i+1,be-2)
  1281.           End If
  1282.           footnotestr=1
  1283.           footnotecount=footnotecount+1
  1284.           footnotestatd=footnotestatd+1
  1285.         End If
  1286.       End If

  1288.       If footnotestr=1 Then
  1289.         If footnotetype="duokan" Then
  1290.           bn="<a class=""duokan-footnote"" href=""#duokanfootnote"&footnotecount&"""><img class=""footnote-img"" src=""../Images/footnote.png""/></a>"
  1291.           a=a1&bn&c
  1292.           If footnotestatd=1 Then
  1293.             d="<ol class=""duokan-footnote-content"">"&vbcrlf&"<li class=""duokan-footnote-item"" id=""duokanfootnote"&footnotecount&"""><p class=""footnote-text"">"&d&"</p></li>"
  1294.            Else
  1295.             d="<li class=""duokan-footnote-item"" id=""duokanfootnote"&footnotecount&"""><p class=""footnote-text"">"&d&"</p></li>"
  1296.           End If
  1297.           e=e&d&vbcrlf
  1298.         End If
  1299.         If footnotetype="newline" Then
  1300.           bn="<img class=""footnote-img"" src=""../Images/footnote.png"" id=""footnote"&footnotecount&"""/>"
  1301.           a=a1&bn&c
  1302.           d="<div class=""footnote-text align-left border-dashed-color"">"&d&"</div>"
  1303.           e=e&d&vbcrlf
  1304.         End If
  1305.       End If

  1307.       a1=EMPTY
  1308.       a2=EMPTY
  1309.       a3=EMPTY
  1310.       b=EMPTY
  1311.       b1=EMPTY
  1312.       b2=EMPTY
  1313.       b3=EMPTY
  1314.       be=EMPTY
  1315.       be1=EMPTY
  1316.       be2=EMPTY
  1317.       c=EMPTY
  1318.       d=EMPTY
  1319.       bn=EMPTY
  1320.       footnotestat=EMPTY
  1321.       footnotestrlen=EMPTY
  1322.       If footnotestr=1 Then
  1323.         Exit For
  1324.       End If
  1325.     Next
  1326.   Loop while footnotestr=1
  1327.   If footnotetype="duokan" Then
  1328.     If footnotestatd>0 Then
  1329.       e=e&"</ol>"
  1330.     End If
  1331.   End If
  1332.   HonnTaiLine=a
  1333.   BunShinLine=e
  1334. End Function

  1336. Function FilterFootnote(a)
  1337.   Do
  1338.     footnotestr=EMPTY
  1339.     For i=1 To Len(a)-2
  1340.       b=Mid(a,i,3)
  1341.       a1=Mid(a,1,i-1)
  1342.       a2=Mid(a,i)
  1343.       b1=Left(b,1)
  1344.       b2=Mid(b,2,1)
  1345.       b3=Right(b,1)
  1346.       If b1="（" or b1="(" Then
  1347.         If CheckFootnote(b2)=1 Then
  1348.           If b3="：" or b3=":" or b3="︰" Then
  1349.             footnotestat=1
  1350.             footnotestrlen=1
  1351.           End If
  1352.         End If
  1353.       End If

  1355.       If footnotestat=EMPTY Then
  1356.         b=Mid(a,i,4)
  1357.         a1=Mid(a,1,i-1)
  1358.         a2=Mid(a,i)
  1359.         b1=Left(b,1)
  1360.         b2=Mid(b,2,2)
  1361.         b3=Right(b,1)
  1362.         If b1="（" or b1="(" Then
  1363.           If CheckFootnote(b2)=1 Then
  1364.             If b3="：" or b3=":" or b3="︰" Then
  1365.               footnotestat=1
  1366.               footnotestrlen=2
  1367.             End If
  1368.           End If
  1369.         End If
  1370.       End If

  1372.       If footnotestat=EMPTY Then
  1373.         b=Mid(a,i,5)
  1374.         a1=Mid(a,1,i-1)
  1375.         a2=Mid(a,i)
  1376.         b1=Left(b,1)
  1377.         b2=Mid(b,2,3)
  1378.         b3=Right(b,1)
  1379.         If b1="（" or b1="(" Then
  1380.           If CheckFootnote(b2)=1 Then
  1381.             If b3="：" or b3=":" or b3="︰" Then
  1382.               footnotestat=1
  1383.               footnotestrlen=3
  1384.             End If
  1385.           End If
  1386.         End If
  1387.       End If

  1389.       If footnotestat=1 Then
  1390.         If b1="（" Then be1="）"
  1391.         If b1="(" Then be1=")"
  1392.         be=Instr(a2,be1)
  1393.         If be>0 Then
  1394.           c=Mid(a,i+be)
  1395.           a=a1&c
  1396.           footnotestr=1
  1397.         End If
  1398.       End If
  1399.       a1=EMPTY
  1400.       a2=EMPTY
  1401.       b=EMPTY
  1402.       b1=EMPTY
  1403.       b2=EMPTY
  1404.       b3=EMPTY
  1405.       be=EMPTY
  1406.       be1=EMPTY
  1407.       c=EMPTY
  1408.       footnotestat=EMPTY
  1409.       footnotestrlen=EMPTY
  1410.       If footnotestr=1 Then
  1411.         Exit For
  1412.       End If
  1413.     Next
  1414.   Loop while footnotestr=1
  1415.   FilterFootnote=a
  1416. End Function

  1418. Function GetJpegName(a)
  1419.   GetJpegName=a
  1420.   bsn=objFSO.GetBaseName(a)
  1421.   ext=LCase(objFSO.GetExtensionName(a))
  1422.   If ext="jpg" or ext="jpeg" Then
  1423.     If objFSO.FileExists(imagesfolder&"\"&bsn&".jpg") Then GetJpegName=objFSO.GetFile(imagesfolder&"\"&bsn&".jpg").name
  1424.     If objFSO.FileExists(imagesfolder&"\"&bsn&".jpeg") Then GetJpegName=objFSO.GetFile(imagesfolder&"\"&bsn&".jpeg").name
  1425.   End If
  1426. End Function

  1428. Function FilterAuthor()
  1429.   Set autread = objFSO.OpenTextFile(Input,1,0,-1)
  1430.   Do until autread.AtEndOfStream
  1431.     autline=Trim(autread.ReadLine)
  1432.     If author=EMPTY and autline<>EMPTY Then CheckAut(autline)
  1433.     If author2=EMPTY and autline<>EMPTY Then CheckGak(autline)
  1434.     If autline=chapterbreak Then Exit Do
  1435.     If author<>EMPTY and author2<>EMPTY Then Exit Do
  1436.   Loop
  1437.   autread.Close
  1438. End Function
复制代码


实际效果:http://ritdon.com/forum.php?mod=viewthread&tid=10011
(txt备份版的epub文件内有用来转换的txt文件,可以对照格式)
这个脚本的打包方式是先创建一个空zip文件,然后把图片及网页文件复制进去,再修改后缀名为epub,用压缩软件打开即可

相当简单的脚本,不保证效果,可能有未知的Bug,请谨慎运行





评分

参与人数 1金币 +10 收起 理由
rdo2pr + 10 好长

查看全部评分

回复

使用道具 举报

hoebec

28

主题

106

帖子

3220

积分

吃书妖怪

Rank: 5Rank: 5Rank: 5

积分
3220
贡献
3220
金币
3692
 楼主| 发表于 2022-5-26 20:55:41 | 显示全部楼层
本帖最后由 hoebec 于 2022-5-26 23:56 编辑

预处理脚本

运行方式:
双击运行vbs,拖放txt文件,ENTER,得到文件名加"-r"的新txt文件,并显示统计情况

使用效果:
匹配论坛下载的txt文件,自动读取章节目录,在章节名前加标识,转化图片行,预览注释行

  1. set WshShell = CreateObject("Wscript.Shell")
  2. set objFSO = CreateObject("scripting.filesystemobject")
  3. scriptloadtempbat=objFSO.GetSpecialFolder(2)&"\"&"scriptloadtemp.bat"
  4. If Wscript.arguments.count=0 Then
  5.   WshShell.run "cmd /c echo @echo off>"&scriptloadtempbat&"",0,True
  6.   WshShell.run "cmd /c echo setlocal enabledelayedexpansion>>"&scriptloadtempbat&"",0,True
  7.   WshShell.run "cmd /c echo :input>>"&scriptloadtempbat&"",0,True
  8.   WshShell.run "cmd /c echo Set /p ""input=input txt:"">>"&scriptloadtempbat&"",0,True
  9.   WshShell.run "cmd /c echo if not defined input goto input>>"&scriptloadtempbat&"",0,True
  10.   WshShell.run "cmd /c echo start """" """&Wscript.ScriptFullName&""" !input!>>"&scriptloadtempbat&"",0,True
  11.   WshShell.run("cmd /c "&scriptloadtempbat&"")
  12.   Wscript.quit
  13. End If
  14. If Wscript.arguments.count=1 Then objFSO.DeleteFile(scriptloadtempbat)
  15. If Wscript.arguments.count=1 Then Input=Wscript.arguments(0)
  16. If not objFSO.FileExists(Input) Then Wscript.quit

  18. rubya="｜"
  19. rubyb="《"
  20. rubyc="》"
  21. rubycount=0
  22. rubyerror=0
  23. footnotecount=0
  24. footnoteerror=0
  25. chapterbreak="<chapter>"
  26. imagemissinginfo="找不到图片文件！？"
  27. chaptererrorinfo="章节列表过长！？"
  28. imagefilter=0
  29. imagemissing=0
  30. contentread=0
  31. contentend=0
  32. contentcount=0
  33. contentmaxline=100
  34. spliterror=0
  35. symbolcentercount=0
  36. numbercentercount=0
  37. contentidlecount=0
  38. imagecopycount=0
  39. imageusedcount=0
  40. imageidlecount=0
  41. footnoteline=EMPTY
  42. footnoteerrorline=EMPTY
  43. rubyerrorline=EMPTY

  45. epubfiletitle=objFSO.GetBaseName(Input)
  46. Output=objFSO.GetParentFolderName(Input)&"\"&epubfiletitle&"-new.txt"
  47. imgfolder=objFSO.GetParentFolderName(Input)&"\"&epubfiletitle
  48. If not objFSO.FolderExists(imgfolder) Then imgfolder=objFSO.GetParentFolderName(Input)&"\"&"Images"
  49. If not objFSO.FolderExists(imgfolder) Then imgfolder=objFSO.GetParentFolderName(Input)&"\"&"image"
  50. If objFSO.FolderExists(imgfolder) Then
  51.   For Each i in objFSO.GetFolder(imgfolder).files
  52.     ext=LCase(objFSO.GetExtensionName(i))
  53.     If ext="jpg" or ext="png" or ext="jpeg" or ext="webp" Then
  54.       imagecopycount=imagecopycount+1
  55.     End If
  56.   Next
  57.   If imagecopycount=0 Then
  58.     Wscript.echo imagemissinginfo
  59.     Wscript.quit
  60.   End If
  61. Else
  62.   Wscript.echo imagemissinginfo
  63.   Wscript.quit
  64. End If

  66. arrsymbol=Array("†","*","﹡","＊","§","※","◆","◇","■","□","♣","♧","★","☆","　"," ","＋","▪","▫","▲","△","▼","▽","●","○","◌","♡","♥","❤","￭","￮","×")
  67. arrfootnote=Array("注","註","译注","编注","录注","校注","譯注","編注","錄注","译註","编註","录註","校註","譯註","編註","錄註","译者注","翻译注","编者注","编辑注","录入注","校对注","譯者注","翻譯注","編者注","編輯注","錄入注","校對注","译者註","翻译註","编者註","编辑註","录入註","校对註","譯者註","翻譯註","編者註","編輯註","錄入註","校對註")
  68. arrcontent=Array("contents","content","ｃｏｎｔｅｎｔｓ","ｃｏｎｔｅｎｔ","目录","目錄","目次","目 录","目 錄","目 次","目　录","目　錄","目　次","table of contents","table of content","table　of　contents","table　of　content","ｔａｂｌｅ ｏｆ ｃｏｎｔｅｎｔｓ","ｔａｂｌｅ ｏｆ ｃｏｎｔｅｎｔ","ｔａｂｌｅ　ｏｆ　ｃｏｎｔｅｎｔｓ","ｔａｂｌｅ　ｏｆ　ｃｏｎｔｅｎｔ")
  69. arrimage=Array("插图","(插图","（插图","插圖","(插圖","（插圖","[RitImg]")

  71. Dim ContentReadArray
  72. ReDim ContentReadArray(0)
  73. ContentReadArray(0)=EMPTY
  74. Dim ContentUsedArray
  75. ReDim ContentUsedArray(0)
  76. ContentUsedArray(0)=EMPTY
  77. Dim ImgUsedArray
  78. ReDim ImgUsedArray(0)
  79. ImgUsedArray(0)=EMPTY

  81. epubcontentpreview=objFSO.GetSpecialFolder(2)&"\"&"epubcontentpreview.txt"
  82. Set pre = objFSO.OpenTextFile(epubcontentpreview,2,1,-1)
  83. Set fnp = objFSO.OpenTextFile(Input,1,0,-1)
  84. Set fop = objFSO.OpenTextFile(Output,2,1,-1)
  85. Do until fnp.AtEndOfStream
  86.   htline=fnp.ReadLine
  87.   hta=Trim(htline)
  88.   If hta=EMPTY Then
  89.     fop.WriteLine htline
  90.   End If
  91.   If chapterlinebw=1 and hta<>EMPTY Then fop.WriteBlankLines(1)
  92.   chapterlinebw=EMPTY
  93.   If hta<>EMPTY Then
  94.     hta=FilterImage(hta)
  95.     prehta=Left(htline,Len(htline)-Len(RTrim(htline)))
  96.     If imagefilter=1 Then
  97.       For Each i in objFSO.GetFolder(imgfolder).files
  98.         If LCase(objFSO.GetBaseName(i))=LCase(hta) Then
  99.           hta=i.name
  100.           imgline=1
  101.           imageusedcount=imageusedcount+1
  102.           ReDim Preserve ImgUsedArray(imageusedcount)
  103.           ImgUsedArray(imageusedcount)=hta
  104.           Exit For
  105.          Else
  106.           imgline=0
  107.         End If
  108.       Next
  109.       If imgline=0 Then
  110.         hta=Trim(htline)
  111.         imagemissing=imagemissing+1
  112.         imgmisline=imgmisline&vbcrlf&hta
  113.       End If
  114.       fop.WriteLine prehta&hta
  115.       imgbw=1
  116.     End If
  117.     If imagefilter<>1 Then
  118.       If contentcount>0 Then
  119.         For ce=1 To UBound(ContentReadArray)
  120.           If LCase(hta)=LCase(ContentReadArray(ce)) Then
  121.             contentend=1
  122.             chapterline=1
  123.             chapterlinebw=1
  124.             contentusedcount=contentusedcount+1
  125.             ReDim Preserve ContentUsedArray(contentusedcount)
  126.             ContentUsedArray(contentusedcount)=hta
  127.             Exit For
  128.           End If
  129.         Next
  130.       End If
  131.       If hta="<split>" and contentread=1 Then contentend=1
  132.       If Left(hta,9)="<content>" and Right(hta,10)="</content>" and contentread=0 Then
  133.         contentreadline=1
  134.        Else
  135.         contentreadline=EMPTY
  136.       End If
  137.       If CheckContent(hta)=1 or contentreadline=1 Then
  138.         If contentread=0 and contentend=0 Then
  139.           contentread=1
  140.           If contentreadline=EMPTY Then
  141.             htline=prehta&"<content>"&hta&"</content>"
  142.           End If
  143.         End If
  144.       End If
  145.       If CheckContent(hta)=EMPTY and contentreadline=EMPTY Then
  146.         If contentread=1 and contentend=0 and CheckEnDashUnique(hta)=0 Then
  147.           contentcount=contentcount+1
  148.           ReDim Preserve ContentReadArray(contentcount)
  149.           ContentReadArray(contentcount)=hta
  150.           If contentcount>contentmaxline Then
  151.             pre.close
  152.             fnp.close
  153.             fop.close
  154.             objFSO.DeleteFile(epubcontentpreview)
  155.             objFSO.DeleteFile(Output)
  156.             Wscript.echo chaptererrorinfo
  157.             Wscript.quit
  158.           End If
  159.          Else
  160.           If chapterline=1 and chapterbreakbw=0 Then
  161.             fop.WriteLine chapterbreak
  162.           End If
  163.         End If
  164.       End If
  165.       RubyCheck(htline)
  166.       FootnoteCheck(htline)
  167.       If CheckSymbol(hta)=1 Then symbolcentercount=symbolcentercount+1
  168.       If IsNumeric(hta) Then
  169.         numbercentercount=numbercentercount+1
  170.         numbercenter=numbercenter&hta&space(2)
  171.       End If
  172.       fop.WriteLine htline
  173.       If hta=chapterbreak Then
  174.         If chapterbreakbw=1 or splitbw=1 Then
  175.           spliterror=spliterror+1
  176.         End If
  177.         chapterbreakbw=1
  178.        Else
  179.         chapterbreakbw=0
  180.       End If
  181.       If hta="<split>" Then
  182.         If chapterbreakbw=1 or splitbw=1 or imgbw=1 Then
  183.           spliterror=spliterror+1
  184.         End If
  185.         splitbw=1
  186.        Else
  187.         splitbw=0
  188.       End If
  189.       imgbw=0
  190.     End If
  191.   End If
  192.   chapterline=EMPTY
  193.   contentreadline=EMPTY
  194. Loop

  196. For ir=1 To UBound(ContentReadArray)
  197.   For iu=1 To UBound(ContentUsedArray)
  198.     If ContentReadArray(ir)=ContentUsedArray(iu) Then
  199.       imu=1
  200.       Exit For
  201.      Else
  202.       imu=EMPTY
  203.     End If
  204.   Next
  205.   If imu=EMPTY Then
  206.     contentidlecount=contentidlecount+1
  207.     contentidle=contentidle&vbcrlf&ContentReadArray(ir)
  208.   End If
  209. Next
  210. For Each ir in objFSO.GetFolder(imgfolder).files
  211.   For iu=1 To UBound(ImgUsedArray)
  212.     If LCase(ir.name)=LCase(ImgUsedArray(iu)) Then
  213.       imu=1
  214.       Exit For
  215.      Else
  216.       imu=EMPTY
  217.     End If
  218.   Next
  219.   If imu=EMPTY Then
  220.     imageidlecount=imageidlecount+1
  221.     imageidle=imageidle&vbcrlf&ir.name
  222.   End If
  223. Next

  225. pre.WriteLine "Footnote-Count: "&footnotecount
  226. pre.WriteLine "Ruby-Count: "&rubycount
  227. pre.WriteLine "Symbol-Center: "&symbolcentercount
  228. pre.WriteLine "Number-Center: "&numbercentercount
  229. If numbercentercount>0 Then pre.WriteLine "Number-Center-Line: "&numbercenter
  230. pre.WriteBlankLines(1)
  231. pre.WriteLine "Footnote-Error: "&footnoteerror
  232. pre.WriteLine "Ruby-Error: "&rubyerror
  233. pre.WriteLine "Split-Error: "&spliterror
  234. pre.WriteBlankLines(1)
  235. If contentidlecount=0 Then contentidle="none"
  236. pre.WriteLine "Content Not Used:"
  237. pre.WriteLine contentidle
  238. pre.WriteBlankLines(1)
  239. If imageidlecount=0 Then imageidle="none"
  240. pre.WriteLine "Image Not Used:"
  241. pre.WriteLine imageidle
  242. pre.WriteBlankLines(1)
  243. If imagemissing=0 Then imgmisline="none"
  244. pre.WriteLine "Image Not Exists:"
  245. pre.WriteLine imgmisline
  246. pre.WriteBlankLines(1)
  247. If footnotecount=0 Then footnoteline="none"
  248. pre.WriteLine "Footnote-Line:"
  249. pre.WriteLine footnoteline
  250. pre.WriteBlankLines(1)
  251. If footnoteerror=0 Then footnoteerrorline="none"
  252. pre.WriteLine "Footnote-Error-Line:"
  253. pre.WriteLine footnoteerrorline
  254. pre.WriteBlankLines(1)
  255. If rubyerror=0 Then rubyerrorline="none"
  256. pre.WriteLine "Ruby-Error-Line:"
  257. pre.WriteLine rubyerrorline
  258. pre.close
  259. fnp.close
  260. fop.close

  262. Wscript.echo "done"
  263. WshShell.run epubcontentpreview,,True
  264. objFSO.DeleteFile(epubcontentpreview)
  265. Wscript.quit

  267. Function FilterImage(a)
  268.   FilterImage=a
  269.   imagefilter=0
  270.   For kw=0 To UBound(arrimage)
  271.     If LCase(Left(a,Len(arrimage(kw))))=LCase(arrimage(kw)) Then
  272.       b=Mid(a,Len(arrimage(kw))+1)
  273.       If b<>EMPTY Then
  274.         If Left(a,1)="(" or Left(a,1)="（" Then
  275.           If Len(b)>1 Then
  276.             imagefilter=1
  277.             FilterImage=Left(b,Len(b)-1)
  278.           End If
  279.          Else
  280.           imagefilter=1
  281.           FilterImage=b
  282.         End If
  283.       End If
  284.     End If
  285.   Next
  286. End Function

  288. Function CheckFootnote(a)
  289.   CheckFootnote=EMPTY
  290.   For kw=0 To UBound(arrfootnote)
  291.     If a=arrfootnote(kw) Then
  292.       CheckFootnote=1
  293.       Exit For
  294.     End If
  295.   Next
  296. End Function

  298. Function CheckContent(a)
  299.   CheckContent=EMPTY
  300.   For kw=0 To UBound(arrcontent)
  301.     If LCase(a)=arrcontent(kw) Then
  302.       CheckContent=1
  303.       Exit For
  304.     End If
  305.   Next
  306. End Function

  308. Function CheckSymbol(a)
  309.   CheckSymbol=EMPTY
  310.   For cls=1 To Len(a)
  311.     For kw=0 To UBound(arrsymbol)
  312.       If Mid(a,cls,1)=arrsymbol(kw) Then
  313.         SymbolStat=1
  314.         Exit For
  315.        Else
  316.         SymbolStat=EMPTY
  317.       End If
  318.     Next
  319.     If SymbolStat=EMPTY Then
  320.       Exit For
  321.     End If
  322.   Next
  323.   If SymbolStat=1 Then CheckSymbol=1
  324. End Function

  326. Function CheckEnDashUnique(a)
  327.   CheckEnDashUnique=1
  328.   For ti=1 To Len(a)
  329.     If Mid(a,ti,1)<>"-" Then
  330.       CheckEnDashUnique=0
  331.       Exit For
  332.     End If
  333.   Next
  334. End Function

  336. Function FootnoteCheck(a)
  337.   footnotelinetype=0
  338.   footnotelinea=a
  339.   footnoteerrortype=0
  340.   Do
  341.     footnotestr=EMPTY
  342.     For i=1 To Len(a)-2
  343.       b=Mid(a,i,3)
  344.       a1=Mid(a,1,i-1)
  345.       a2=Mid(a,i)
  346.       b1=Left(b,1)
  347.       b2=Mid(b,2,1)
  348.       b3=Right(b,1)
  349.       If b1="（" or b1="(" Then
  350.         If CheckFootnote(b2)=1 Then
  351.           If b3="：" or b3=":" or b3="︰" Then
  352.             footnotestat=1
  353.             footnotestrlen=1
  354.           End If
  355.         End If
  356.       End If

  358.       If footnotestat=EMPTY Then
  359.         b=Mid(a,i,4)
  360.         a1=Mid(a,1,i-1)
  361.         a2=Mid(a,i)
  362.         b1=Left(b,1)
  363.         b2=Mid(b,2,2)
  364.         b3=Right(b,1)
  365.         If b1="（" or b1="(" Then
  366.           If CheckFootnote(b2)=1 Then
  367.             If b3="：" or b3=":" or b3="︰" Then
  368.               footnotestat=1
  369.               footnotestrlen=2
  370.             End If
  371.           End If
  372.         End If
  373.       End If

  375.       If footnotestat=EMPTY Then
  376.         b=Mid(a,i,5)
  377.         a1=Mid(a,1,i-1)
  378.         a2=Mid(a,i)
  379.         b1=Left(b,1)
  380.         b2=Mid(b,2,3)
  381.         b3=Right(b,1)
  382.         If b1="（" or b1="(" Then
  383.           If CheckFootnote(b2)=1 Then
  384.             If b3="：" or b3=":" or b3="︰" Then
  385.               footnotestat=1
  386.               footnotestrlen=3
  387.             End If
  388.           End If
  389.         End If
  390.       End If

  392.       If footnotestat=1 Then
  393.         If b1="（" Then be1="）"
  394.         If b1="(" Then be1=")"
  395.         be=Instr(a2,be1)
  396.         a3=Mid(a2,2)
  397.         be2=Instr(a3,b1)
  398.         If be>0 Then
  399.           c=Mid(a,i+be)
  400.           a=a1&c
  401.           footnotestr=1
  402.         End If
  403.         If be>0 and be2>0 Then
  404.           If be>be2 Then
  405.             footnoteerrortype=1
  406.             footnoteerror=footnoteerror+1
  407.             Exit Do
  408.           End If
  409.         End If
  410.         If be=0 Then
  411.           footnoteerrortype=2
  412.           footnoteerror=footnoteerror+1
  413.           Exit Do
  414.         End If
  415.       End If
  416.       a1=EMPTY
  417.       a2=EMPTY
  418.       b=EMPTY
  419.       b1=EMPTY
  420.       b2=EMPTY
  421.       b3=EMPTY
  422.       be=EMPTY
  423.       be1=EMPTY
  424.       c=EMPTY
  425.       footnotestat=EMPTY
  426.       footnotestrlen=EMPTY
  427.       If footnotestr=1 Then
  428.         footnotelinetype=1
  429.         footnotecount=footnotecount+1
  430.         Exit For
  431.       End If
  432.     Next
  433.   Loop while footnotestr=1
  434.   If footnotelinetype=1 Then
  435.     footnoteline=footnoteline&vbcrlf&vbcrlf&footnotelinea
  436.   End If
  437.   If footnoteerrortype<>0 Then
  438.     footnoteerrorline=footnoteerrorline&vbcrlf&vbcrlf&footnotelinea
  439.   End If
  440. End Function

  442. Function RubyCheck(a)
  443.   rubyerrorlinea=a
  444.   rubyerrortype=0
  445.   Do
  446.     a1=InStr(a,rubya)
  447.     If a1>0 Then
  448.       b=Right(a,Len(a)-a1)
  449.       a=Left(a,a1-1)
  450.       b1=InStr(b,rubyb)
  451.       b2=InStr(b,rubya)
  452.       If b1>0 Then
  453.         c=Right(b,Len(b)-b1)
  454.         b=Left(b,b1-1)
  455.         c1=InStr(c,rubyc)
  456.         If c1=0 Then
  457.           rubyerrortype=1
  458.           rubyerror=rubyerror+1
  459.           Exit Do
  460.         End If
  461.         If c1>0 Then
  462.           d=Right(c,Len(c)-c1)
  463.           c=Left(c,c1-1)
  464.           If b=EMPTY or c=EMPTY Then
  465.             rubyerrortype=2
  466.             rubyerror=rubyerror+1
  467.             Exit Do
  468.           End If
  469.         End If
  470.       End If
  471.     End If
  472.     rubyint="<ruby>"
  473.     rubymid="<rt>"
  474.     rubyend="</rt></ruby>"
  475.     If rubyrp=1 Then
  476.       rubymid="<rp>"&rubyb&"</rp><rt>"
  477.       rubyend="</rt><rp>"&rubyc&"</rp></ruby>"
  478.     End If
  479.     If b<>EMPTY and c<>EMPTY Then
  480.       a=a&rubyint&b&rubymid&c&rubyend&d
  481.       rubystr=1
  482.       rubycount=rubycount+1
  483.       b3=InStr(c,rubya)
  484.       b4=InStr(c,rubyb)
  485.       b5=InStr(b,rubya)
  486.       b6=InStr(b,rubyc)
  487.       If b3>0 or b4>0 or b5>0 or b6>0 Then
  488.         rubyerrortype=3
  489.         rubyerror=rubyerror+1
  490.         Exit Do
  491.       End If
  492.       If b1>0 and b2>0 Then
  493.         If b1>b2 Then
  494.           rubyerrortype=4
  495.           rubyerror=rubyerror+1
  496.           Exit Do
  497.         End If
  498.       End If
  499.      Else
  500.       a=a&b&c&d
  501.       rubystr=EMPTY
  502.     End If
  503.     a1=EMPTY
  504.     b1=EMPTY
  505.     c1=EMPTY
  506.     b=EMPTY
  507.     c=EMPTY
  508.     d=EMPTY
  509.     b2=EMPTY
  510.     b3=EMPTY
  511.     b4=EMPTY
  512.     b5=EMPTY
  513.     b6=EMPTY
  514.   Loop while rubystr=1
  515.   If rubyerrortype<>0 Then
  516.     rubyerrorline=rubyerrorline&vbcrlf&vbcrlf&rubyerrorlinea
  517.   End If
  518. End Function
复制代码
回复 支持 反对

使用道具 举报

hoebec

28

主题

106

帖子

3220

积分

吃书妖怪

Rank: 5Rank: 5Rank: 5

积分
3220
贡献
3220
金币
3692
 楼主| 发表于 2022-5-26 20:56:12 | 显示全部楼层
本帖最后由 hoebec 于 2022-5-27 23:27 编辑

实际操作

以 [藤谷ある][我的现实与网游被恋爱喜剧侵蚀了][1] 为例:
http://ritdon.com/forum.php?mod= ... &extra=page%3D4

1. 下载txt文件,修改txt文件名为 我的现实与网游被恋爱喜剧侵蚀了 1.txt,文件名为EPUB的标题
2. 下载zip图片包,解压文件,把图片所在目录移动到txt的当前文件夹,重命名目录名为 我的现实与网游被恋爱喜剧侵蚀了 1 (或者重命名为Images,或image),这个目录将被识别为txt的配套图片文件夹

3. txt文件的修改1
原文:
我的现实与网游被恋爱喜剧侵蚀了[1]

制作信息:
----------------
发布：深夜读书会
论坛：ritdon.com
----------------

书籍信息
----------------
书名:我的现实与网游被恋爱喜剧侵蚀了
卷号:1
作者:藤谷ある
插画:三嶋くろね
翻译:赵圣媛
简介:
阿宅变成万人迷!?
线上被当少女宠，现实误为众人「公」!?
鹭宫慧太是沉迷于线上RPG游戏的重度玩家，不过他操纵的是女性角色，所属公会的成员也几乎都是女性玩家。某一天参加网聚的时候，他被误认成是公会里唯一的男性角色——骑士大人，导致他在现实世界与网路世界都很受女孩子欢迎！这是什么陷阱？拥有现实和网路两种不同生活的慧太被性格南辕北辙的少女们所环绕，展开了一场有趣的恋爱喜剧。
----------------

修改为:
我的现实与网游被恋爱喜剧侵蚀了 1
制作信息:
----------------
发布：深夜读书会
论坛：ritdon.com
----------------

<split>
书籍信息
----------------
书名:我的现实与网游被恋爱喜剧侵蚀了
卷号:1
作者:藤谷ある
插画:三嶋くろね
翻译:赵圣媛
简介:
阿宅变成万人迷!?
线上被当少女宠，现实误为众人「公」!?
鹭宫慧太是沉迷于线上RPG游戏的重度玩家，不过他操纵的是女性角色，所属公会的成员也几乎都是女性玩家。某一天参加网聚的时候，他被误认成是公会里唯一的男性角色——骑士大人，导致他在现实世界与网路世界都很受女孩子欢迎！这是什么陷阱？拥有现实和网路两种不同生活的慧太被性格南辕北辙的少女们所环绕，展开了一场有趣的恋爱喜剧。
----------------

修改提示:
主要是要在 书籍信息 前加一行 <split>,分割上下文为两个xhtml文件


4. 预处理脚本自动切分章节

原文
目录
----------------
＃10 【虽然是序章，却是终章，真糟糕】
＃01 【突然被表白，真糟糕】
＃02 【网聚就像后宫，真糟糕】
＃03 【我的东西被夺走了，真糟糕】
＃04 【跟猫一样的那个女孩子很像外星人，真糟糕】
＃05 【红茶水滴里飘出黑暗的香气，真糟糕】
＃06 【棉花糖染上蔷薇色，真糟糕】
＃07 【草莓乳酪冰淇淋有公主的味道，真糟糕】
＃08 【朋友列表是空的，真糟糕】
＃09 【骑士大人是骑士大人，真糟糕】
----------------

＃10 【虽然是序章，却是终章，真糟糕】
总而言之，这里是二次元世界，绝对不是三次元（现实）。

修改结果
<content>目录</content>
----------------
＃10 【虽然是序章，却是终章，真糟糕】
＃01 【突然被表白，真糟糕】
＃02 【网聚就像后宫，真糟糕】
＃03 【我的东西被夺走了，真糟糕】
＃04 【跟猫一样的那个女孩子很像外星人，真糟糕】
＃05 【红茶水滴里飘出黑暗的香气，真糟糕】
＃06 【棉花糖染上蔷薇色，真糟糕】
＃07 【草莓乳酪冰淇淋有公主的味道，真糟糕】
＃08 【朋友列表是空的，真糟糕】
＃09 【骑士大人是骑士大人，真糟糕】
----------------

<chapter>
＃10 【虽然是序章，却是终章，真糟糕】

修改提示:
以 目录 为关键词,从下一行开始读取目录列表,读取的同时检测是否为已存在的目录行,当读取到 ＃10 【虽然是序章，却是终章，真糟糕】 就判断目录行已结束,开始进入第一个章节,之后每次读取到已存在的章节名就判断达到下一章节,自动在每个章节前加 <chapter> , 目录 不是唯一的判断关键词,在脚本最开始的arrcontent部分可以自己修改
如果读取的章节名超过100行,就判断为没有目录行未结束(没有检测到第一个章节),检测的方法是除去行首及行末空格后,检测是否一致
目录 这一行会被修改为 <content>目录</content> ,并记录为xhtml目录位置,之后的内容会被实际的目录代替,不会显示

如果在目录列表与第一个章节之间还有文本内容的情况
第8卷原文
目录
----------------
＃01 【潜入，真糟糕】
＃02 【无微不至，真糟糕】
＃03 【尤克，真糟糕】
＃04 【我与她的回忆，真糟糕】
＃05 【启程，真糟糕】
＃06 【现实被雫侵蚀了，真糟糕】
＃07 【版本更新通知】
----------------

〈前情提要〉
MMORPG【杰克斯贝鲁特】的玩家鹭宫慧太

预先手动修改为
目录
----------------
＃01 【潜入，真糟糕】
＃02 【无微不至，真糟糕】
＃03 【尤克，真糟糕】
＃04 【我与她的回忆，真糟糕】
＃05 【启程，真糟糕】
＃06 【现实被雫侵蚀了，真糟糕】
＃07 【版本更新通知】
----------------

<split>
〈前情提要〉
MMORPG【杰克斯贝鲁特】的玩家鹭宫慧太

在目录列表内容后加 <split> ,之后的内容就不再读取为章节目录行,只检测是否已达到新章节
如果目录列表与第一个章节之间没有文本内容(空行不算),加<split>会记录一个章节分割错误



5.预处理脚本转换图片行

原文
「咦……我……」

[RitImg]p023

我刻意摆出忸怩害羞的少女模样。我觉得暂停对话然后模糊带过是最好的办法。

修改提示:
以 [RitImg] 为关键词,检测图片文件夹内是否有文件名为p023的图片文件(只支持jpg,png,jpeg,webp这4种后缀名,大小写通用,jpg与jpeg通用),如果找到对应的图片文件,就把 [RitImg]p023 修改为p023.jpg,如果没有匹配的文件名,就记录为图片缺失行,在最后的统计中显示

修改结果
「咦……我……」

p023.jpg

我刻意摆出忸怩害羞的少女模样。我觉得暂停对话然后模糊带过是最好的办法。


6. 手动修改注释行
原文
没想到小棉把身体更往我这边靠了过来。而且她穿的是无袖衬衫，所以整个露出来的上臂与上臂之间产生※左右合体的感觉，这实在太让人受不了！不过，她本人是因为少根筋才这么做的吧～（编注：指大型机械人的合体动作。）

修改结果
没想到小棉把身体更往我这边靠了过来。而且她穿的是无袖衬衫，所以整个露出来的上臂与上臂之间产生左右合体（编注：指大型机械人的合体动作。）的感觉，这实在太让人受不了！不过，她本人是因为少根筋才这么做的吧～

修改提示:
此处的注释是对 左右合体 的注释,预处理脚本会在统计结果中列出这一行,修改必须手动
就是把注释内容直接放在 左右合体 的后面,这个位置也是多看弹注图片及其他弹注的切入点,（和）两个符号不会在最后的EPUB中显示,除非保留行内注释的方式

注释内容内有（和）符号的情况
原文
「呵呵，的确和※纳豆很接近呢，差点儿就要出手了……不对吧！想趁乱和我缔结婚约啊！」（译注：原文是取日文中「交换聘礼」（结纳）和「纳豆」（纳豆）汉字字形相近。）

修改结果
「呵呵，的确和纳豆(译注：原文是取日文中「交换聘礼」（结纳）和「纳豆」（纳豆）汉字字形相近。)很接近呢，差点儿就要出手了……不对吧！想趁乱和我缔结婚约啊！」

修改提示:
把最外端的（和）换成 ( 和 ) ,就是键盘上的英文括号



7. 上标的格式

原文
只要吃了这个串烧，STR<臂力>和VIT<体力>就会暂时提升5，是与头目对战或进行迷宫攻略之前必要的补给品，尤其对前锋系职业的玩家来说是相当重要的食品道具。

修改结果
只要吃了这个串烧，｜STR《臂力》和｜VIT《体力》就会暂时提升5，是与头目对战或进行迷宫攻略之前必要的补给品，尤其对前锋系职业的玩家来说是相当重要的食品道具。

修改提示:
上标需要3个符号才能准确标记,但会降低txt文本的阅读连贯性,可以对比手动修改,符号可以使用任意(要使用<和>两个符号,必须修改脚本,把xxx=ReplaceEsc(xxx)这样的行删掉)

上标符号与书名号的混用
原文
《WEAPON<武器> BREAKAGE<破损>！》

修改结果
《｜WEAPON《武器》 ｜BREAKAGE《破损》！》

修改提示:
上标格式内不能有书名号,但外部可以



8. 预处理脚本的统计结果
预处理脚本运行后得到文件名加后缀-r的新txt文件,以及一个统计结果(txt,自动打开) ,显示图片文件夹内未使用的图片文件,找不到对应文件的图片行,文本手动分割的错误(<split>的位置),注释行,以及需要预先手动修改的注释行
有任何报错都需要对照重新修改原txt,重新运行预处理脚本,直到无报错为止
预处理脚本可以用手动代替



9. 运行实际转换脚本,并得到预览结果
预处理脚本运行后得到文件名加后缀-r的新txt文件,无报错后,删除原txt,把新txt文件的-r后缀去掉,运行实际转换脚本,拖放,ENTER,得到EPUB文件以及一个目录预览,一样是有出错信息就对照修改重新运行


Tips

行首及行末的空格会被忽略
图片行前后的空行会被忽略
<split>行前后的空行会被忽略
<chapter>行前后的空行会被忽略
章节第一行以<skip>开始,将不显示
章节以图片行开始,将以第二行为标题名,<skip>也起作用,其余地方的<skip>不产生效果
<split>及<chapter>不能是txt文件的第一个非空行,也不能是最后一个
<split>会切分xhtml文件,但只在第一个章节前有效
<split>不能与<split>,<chapter>,图片行连用
作者名和插画名不能留空
使用多看弹注显示必须在图片文件夹内有一个文件名为footnote.png的图片
脚本基本是固定给非图片行前后分别加<p>和</p>,如果是以"<hr "  "<p>"  "<p " "<div" 开始的行,会直接写入xhtml文件(也会处理注释和上标)
在实际转换脚本里,<content>目录</content> 这样的行是判断EPUB内目录xhtml位置的行,等效于 <content></content> ,如果在第一个章节前找不到这样的行,目录将放在卷末


设置参数(实际转换脚本的开始部分)

rubya="｜"   上标第一个符号
rubyb="《"    上标第二个符号
rubyc="》"    上标第三个符号
imagepage=1  在卷末是否生成一个图片合集的页面(1为生成,0为不生成)
numbercenter=1  数字单独一行是否居中(1为居中,0为不居中)
symbolcenter=1   全部为符号的行是否居中(1为居中,0为不居中),具体符号见arrsymbol
rtl="rtl"
rtl="ltr"  翻页方式,ltr为左到右,rtl为右到左(同时设置直排),以新的一行为准
language="zh"  语言
publisher=""  出版社
dcdate=""  发行日期(yyyy-mm-dd)
chapterbreak="<chapter>"  章节切分标志
duokanbleed="leftright"  多看图片样式
duokancover="duokan-page-fitwindow"
duokancover="duokan-page-fullscreen"  多看封面样式
duokanfontfixed=1  多看锁字体设置
emptylineskip=0  是否忽略所有空行(1为忽略,0为不忽略)
footnotetype="newline"  使用换行注释
footnotetype="duokan"  使用多看弹注(以新一行为准)
footnotecolor="#a0513c"  注释颜色
footnotefontsize="0.8em"  注释字体大小
footnoteimagesize="0.9em"  注释图片大小
txtbackup=1  是否备份txt到EPUB包内(OEBPS\Backup\backup.txt)
inputfiledelete=0  是否删除原文件(包括图片文件夹,字体文件夹,1为删除,0为不删除)

在实际转换脚本的最后有一行 Wscript.sleep 1500 ,这是EPUB文件的预估打包时间(1500毫秒/1.5秒),对20M以内的EPUB文件应该都没问题,如果打包时间不够长,后缀名变为epub时就会报错,修改增加时间重新运行即可
回复 支持 1 反对 0

使用道具 举报

hyominli

19

主题

152

帖子

1643

积分

图书委员

Rank: 4Rank: 4

积分
1643
贡献
1643
金币
186
发表于 2022-5-28 20:00:53 | 显示全部楼层
看麻了，告辞
回复 支持 反对

使用道具 举报

contract

62

主题

6724

帖子

1万

积分

图书迷宫

Rank: 7Rank: 7Rank: 7

积分
13263
贡献
13263
金币
878
发表于 2022-5-28 20:02:54 | 显示全部楼层
不得不赞叹一声 很详尽。
回复 支持 反对

使用道具 举报

huihug

3

主题

5572

帖子

8858

积分

禁书目录

Rank: 6Rank: 6

积分
8858
贡献
8858
金币
866
发表于 2022-5-29 10:45:49 | 显示全部楼层
虽然我不想否认你努力的成果。。但是用sigil做不是更方便吗。。而且还能实时看自己做的有没有bug
游客，本帖隐藏的内容需要积分高于 3117 才可浏览，您当前积分为 0

回复 支持 反对

使用道具 举报

qqq145

1

主题

390

帖子

1016

积分

小书痴

Rank: 3

积分
1016
贡献
1016
金币
2371
发表于 2022-5-29 11:25:19 | 显示全部楼层
不明觉厉，程序大佬nb，虽然我看不懂
回复 支持 反对

使用道具 举报

hoebec

28

主题

106

帖子

3220

积分

吃书妖怪

Rank: 5Rank: 5Rank: 5

积分
3220
贡献
3220
金币
3692
 楼主| 发表于 2022-5-29 19:35:22 | 显示全部楼层
本帖最后由 hoebec 于 2022-5-29 19:41 编辑
huihug 发表于 2022-5-29 10:45
虽然我不想否认你努力的成果。。但是用sigil做不是更方便吗。。而且还能实时看自己做的有没有bug
...


做封面字体消耗时间太多了,自动脚本肯定做不了的,除非把做好的行直接写入txt文件

这方面我也不熟,要做的话肯定是先考虑抠图

如果是说插图的内文的文字,用css也可以做出渐变
回复 支持 反对

使用道具 举报

april_is

1

主题

96

帖子

266

积分

初翻书页

Rank: 2Rank: 2

积分
266
贡献
266
金币
0
发表于 2022-5-29 20:48:05 | 显示全部楼层
啊这，感觉好难
回复 支持 反对

使用道具 举报

huihug

3

主题

5572

帖子

8858

积分

禁书目录

Rank: 6Rank: 6

积分
8858
贡献
8858
金币
866
发表于 2022-5-29 20:54:26 | 显示全部楼层
hoebec 发表于 2022-5-29 19:35
做封面字体消耗时间太多了,自动脚本肯定做不了的,除非把做好的行直接写入txt文件

这方面我也不熟,要做的 ...

封面那边貌似有大佬做出来了，不过只有电脑才能正确显示。。
就是把笔画打出来然后覆盖上去，不过确实有些只能抠图了
渐变的话我也看到有人做出来过，就是那个代码量太大。。
貌似使用到了自动生成，只要把首颜色和尾颜色打进去就能自动生成的样子
回复 支持 反对

使用道具 举报

hoebec

28

主题

106

帖子

3220

积分

吃书妖怪

Rank: 5Rank: 5Rank: 5

积分
3220
贡献
3220
金币
3692
 楼主| 发表于 2022-5-30 14:25:07 | 显示全部楼层
本帖最后由 hoebec 于 2022-5-30 14:33 编辑

关于封面图片的选择:
默认是以文件名为 cover 的图片为封面,如果没有这样的文件名,就以第一张图片为封面

多看弹注的附加制作:
低版本的Duokan阅读器在某些机器上不能加载系统字体(?),导致弹注内容显示为空白
正文部分在这种情况下也无法显示,但可以通过引入外置字体解决,弹注就只能通过增加EPUB包的内置字体解决
如果弹注在Duokan无法显示,就在字体文件夹加入一个文件名为 footnote 的字体文件(ttf/otf),会自动变为注释的专有字体,预处理脚本的统计结果的所有注释行字符就是字集化所需要的字符
字体文件夹存在 footnote 以外的字体文件(ttf/otf)时,第一个这样的文件会被自动设置为EPUB的全局字体(这种情况下可以不需要footnote字体文件),多看锁字体设置在这个基础上才会生效

多看弹注无法显示是一直都存在的问题,似乎也只能用内置字体解决


回复 支持 反对

使用道具 举报

香露露

8

主题

372

帖子

1401

积分

小书痴

Rank: 3

积分
1401
贡献
1401
金币
741
发表于 2022-5-30 15:10:32 | 显示全部楼层
很长的代码，做起来应该很费事吧？
但你这代码还是有一些致命的缺点
主要的问题集中如下：
1、坛子里的书的格式只能用千奇百怪形容，有的图片前会加{ritimage}，有的图片又单纯以“插图+文件名”表示
     有的txt不加彩插标记，有的txt干脆就没格式。
     这些都要制作者一个个去检查确认调整。
2、很多书籍会具有标新立异的标题格式。
     有的txt会直接用插图做标题，有的会直接以一句很长的话做标题（说的就是你，孤单一人的异世界之旅）
     还有的细分为主标题次标题章标题节标题卷标题……
     程序，除非用了复杂的机器学习人工智能，否则很难识别这些标题。
     更何况，很多txt不给出目录，甚至糟糕的是目录给出的格式和章节标题格式完全不一致。
因此想通过一劳永逸的办法，利用脚本批量制作书籍，至少在这个站点里边，只会陷入特例陷阱，会在无限的特例中死循环。
回复 支持 反对

使用道具 举报

香露露

8

主题

372

帖子

1401

积分

小书痴

Rank: 3

积分
1401
贡献
1401
金币
741
发表于 2022-5-30 15:12:29 | 显示全部楼层
基于上贴的问题：
与其制作自动制作脚本，不如制作一系列更为灵活的“导入工具”，基于使用者以灵活的编辑空间，以方便使用者进行导入检查编辑
回复 支持 反对

使用道具 举报

hoebec

28

主题

106

帖子

3220

积分

吃书妖怪

Rank: 5Rank: 5Rank: 5

积分
3220
贡献
3220
金币
3692
 楼主| 发表于 2022-5-30 16:02:58 | 显示全部楼层
本帖最后由 hoebec 于 2022-5-30 16:14 编辑
香露露 发表于 2022-5-30 15:12
基于上贴的问题：
与其制作自动制作脚本，不如制作一系列更为灵活的“导入工具”，基于使用者以灵活的编辑 ...


这个脚本能做的事也不多,只是将按格式整理好的文本转成EPUB,大部分工作还是要手动检查,不过能提供给不想动手做EPUB的人一个转换工具,适用性可靠性就不能要求更多了,对提高制作技术也没什么用

对于自己仔细制作过的EPUB总是没兴趣看,所以要想保留看书的新鲜感,最大的要诀是不要太花功夫去做
下载好txt和图包,简单几步转换,30秒后就在手机的多看里面显示了,这样不挺爽,30秒太少,2分钟也不多

现在EPUB的风声都紧了,自己做自己看才是王道
回复 支持 1 反对 0

使用道具 举报

huihug

3

主题

5572

帖子

8858

积分

禁书目录

Rank: 6Rank: 6

积分
8858
贡献
8858
金币
866
发表于 2022-5-30 16:23:45 | 显示全部楼层
香露露 发表于 2022-5-30 15:12
基于上贴的问题：
与其制作自动制作脚本，不如制作一系列更为灵活的“导入工具”，基于使用者以灵活的编辑 ...

啊这。。你这是想让他设计个类似sigil的东西诶。。
回复 支持 反对

使用道具 举报

香露露

8

主题

372

帖子

1401

积分

小书痴

Rank: 3

积分
1401
贡献
1401
金币
741
发表于 2022-5-30 23:45:52 | 显示全部楼层
huihug 发表于 2022-5-30 16:23
啊这。。你这是想让他设计个类似sigil的东西诶。。

请容我小小炫耀一下，这是我做的软件，大概就是你所说的类似sigil的东西。

                               
登录/注册后可看大图

唯一的问题是，做的书籍是自己设计的格式，而非epub。
虽然也可以保存为epub啦……但存在一些问题，比如不好处理图片什么的，反正挺……呃，麻烦，的，所以就没考虑过发布这个软件。
回复 支持 反对

使用道具 举报

香露露

8

主题

372

帖子

1401

积分

小书痴

Rank: 3

积分
1401
贡献
1401
金币
741
发表于 2022-5-31 00:00:05 | 显示全部楼层
hoebec 发表于 2022-5-30 16:02
这个脚本能做的事也不多,只是将按格式整理好的文本转成EPUB,大部分工作还是要手动检查,不过能提供给不想 ...

怎么说呢……我只是在说，这个脚本的缺点是不够灵活，泛用性不够强。
倒不是真要求作出什么大的操作。
这样吧，我给你推荐我本人制作、在用的奇怪的东西作为参考……

                               
登录/注册后可看大图

我现在差不多都是用这个玩意处理下载来的txt，然后导入到上贴中炫耀的小软件里，然后选好封面，按ctrl+s，再选WiFi传书直接传到手机的客户端里。
最快的情况下，20秒钟解决一本书（当然这是极端理想的情况）。
回复 支持 反对

使用道具 举报

林黛玉

1

主题

84

帖子

2647

积分

图书委员

Rank: 4Rank: 4

积分
2647
贡献
2647
金币
986
发表于 2022-5-31 02:55:57 | 显示全部楼层
sigil最大的问题就是处理大量字会百分百卡死。
回复 支持 反对

使用道具 举报

sqaiif

1

主题

65

帖子

190

积分

初翻书页

Rank: 2Rank: 2

积分
190
贡献
190
金币
27
发表于 2022-5-31 06:50:19 | 显示全部楼层
要不要试试calibre的txt规则转换啊.支持的导入导出格式都挺多的
回复 支持 反对

使用道具 举报

hoebec

28

主题

106

帖子

3220

积分

吃书妖怪

Rank: 5Rank: 5Rank: 5

积分
3220
贡献
3220
金币
3692
 楼主| 发表于 2022-5-31 06:58:31 | 显示全部楼层
香露露 发表于 2022-5-31 00:00
怎么说呢……我只是在说，这个脚本的缺点是不够灵活，泛用性不够强。
倒不是真要求作出什么大的操作。
这 ...

20秒还包括传输过程的话,速度也太极限了
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|小黑屋|ritdon

GMT+8, 2024-4-29 11:18 , Processed in 0.312140 second(s), 23 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表