• R/O
  • SSH
  • HTTPS

autocodeforsql: 提交


Commit MetaInfo

修订版404 (tree)
时间2020-11-06 12:44:16
作者hilinwei

Log Message

更改概述

差异

--- AutoEpub3/Logic/DEP3/cDep3_006.vb (revision 403)
+++ AutoEpub3/Logic/DEP3/cDep3_006.vb (revision 404)
@@ -11,13 +11,10 @@
1111 Dim listSkip As List(Of String) = {"版权", "目录", "书名页", "版权页", "作家榜经典文库", "勇者物语", "书籍导读", "封面", "书名页", "扉页", "书名", "麒麟之翼", "作者简介", "内容简介", "版权信息", "总目录"}.ToList
1212 Dim listMobiRight As List(Of String) = {"inscribe"}.ToList()
1313
14-
15-
1614 Sub New(_bookPath As String)
1715 bookPath = _bookPath
1816 End Sub
1917
20-
2118 Public Sub CreadEpub()
2219
2320 Dim sText As String = String.Empty
@@ -71,7 +68,6 @@
7168 End If
7269
7370 If ncxVolume.navPoint Is Nothing Then
74-
7571 mVolume.Title = ncxVolume.navLabel.text
7672 mVolume.Scr = ncxVolume.content.src
7773 Dim sPath As String = Path.Combine(bookPath, mVolume.Scr).Split("#").ToList(0)
@@ -103,17 +99,10 @@
10399 Dim listText As List(Of String) = GetListText(sChapter)
104100
105101 mChapter.listText = listText
106-
107-
108102 mVolume.listChapter.Add(mChapter)
109103
110-
111-
112104 Next
113105
114-
115-
116-
117106 mSection.listVolume.Add(mVolume)
118107
119108 Next
@@ -129,7 +118,6 @@
129118 spSeciont.listText = mEpub(0).listVolume(0).listText
130119 mEpub.Insert(0, spSeciont)
131120
132-
133121 mEpub(1).listVolume.RemoveAt(0)
134122
135123
Show on old repository browser