AutoEpub3/Logic/DEP3/cDep3_006.vb (diff)| @@ -11,13 +11,10 @@ | ||
| 11 | 11 | Dim listSkip As List(Of String) = {"版权", "目录", "书名页", "版权页", "作家榜经典文库", "勇者物语", "书籍导读", "封面", "书名页", "扉页", "书名", "麒麟之翼", "作者简介", "内容简介", "版权信息", "总目录"}.ToList |
| 12 | 12 | Dim listMobiRight As List(Of String) = {"inscribe"}.ToList() |
| 13 | 13 | |
| 14 | - | |
| 15 | - | |
| 16 | 14 | Sub New(_bookPath As String) |
| 17 | 15 | bookPath = _bookPath |
| 18 | 16 | End Sub |
| 19 | 17 | |
| 20 | - | |
| 21 | 18 | Public Sub CreadEpub() |
| 22 | 19 | |
| 23 | 20 | Dim sText As String = String.Empty |
| @@ -71,7 +68,6 @@ | ||
| 71 | 68 | End If |
| 72 | 69 | |
| 73 | 70 | If ncxVolume.navPoint Is Nothing Then |
| 74 | - | |
| 75 | 71 | mVolume.Title = ncxVolume.navLabel.text |
| 76 | 72 | mVolume.Scr = ncxVolume.content.src |
| 77 | 73 | Dim sPath As String = Path.Combine(bookPath, mVolume.Scr).Split("#").ToList(0) |
| @@ -103,17 +99,10 @@ | ||
| 103 | 99 | Dim listText As List(Of String) = GetListText(sChapter) |
| 104 | 100 | |
| 105 | 101 | mChapter.listText = listText |
| 106 | - | |
| 107 | - | |
| 108 | 102 | mVolume.listChapter.Add(mChapter) |
| 109 | 103 | |
| 110 | - | |
| 111 | - | |
| 112 | 104 | Next |
| 113 | 105 | |
| 114 | - | |
| 115 | - | |
| 116 | - | |
| 117 | 106 | mSection.listVolume.Add(mVolume) |
| 118 | 107 | |
| 119 | 108 | Next |
| @@ -129,7 +118,6 @@ | ||
| 129 | 118 | spSeciont.listText = mEpub(0).listVolume(0).listText |
| 130 | 119 | mEpub.Insert(0, spSeciont) |
| 131 | 120 | |
| 132 | - | |
| 133 | 121 | mEpub(1).listVolume.RemoveAt(0) |
| 134 | 122 | |
| 135 | 123 |
