• R/O
  • SSH
  • HTTPS

autocodeforsql: 提交


Commit MetaInfo

修订版403 (tree)
时间2020-11-05 15:07:30
作者hilinwei

Log Message

更改概述

差异

--- AutoEpub3/Logic/DEP3/cDep3_006.vb (revision 402)
+++ AutoEpub3/Logic/DEP3/cDep3_006.vb (revision 403)
@@ -46,11 +46,10 @@
4646 mSection.Title = mSection.Title.Split("(")(1).Replace(")", "").Replace("岩波日本史", "") & " " & mSection.Title.Split("(")(0)
4747
4848 If ncxSection.navPoint Is Nothing Then
49-
5049 mSection.Title = ncxSection.navLabel.text
5150 mSection.Scr = ncxSection.content.src
5251 Dim sPath As String = Path.Combine(bookPath, mSection.Scr).Split("#").ToList(0)
53- Dim sTemp As String = sFileEditRead(sPath, emEpub6.emDep.Dep0)
52+ Dim sTemp As String = sFileEditRead(sPath)
5453 Dim listText As List(Of String) = GetListText(sTemp)
5554 mSection.listText = listText
5655 mEpub.Add(mSection)
@@ -60,7 +59,7 @@
6059
6160 For ctrVolume As Integer = 0 To ncxSection.navPoint.Count - 1
6261
63- emCurreDep = emEpub6.emUrlImgDep.Volume
62+ emCurreDep = emEpub6.emUrlImgDep.Chapter
6463 Dim ncxVolume As ncxNavPointNavPoint = ncxSection.navPoint(ctrVolume)
6564
6665
@@ -76,7 +75,7 @@
7675 mVolume.Title = ncxVolume.navLabel.text
7776 mVolume.Scr = ncxVolume.content.src
7877 Dim sPath As String = Path.Combine(bookPath, mVolume.Scr).Split("#").ToList(0)
79- Dim sTemp As String = sFileEditRead(sPath, emEpub6.emDep.Dep0)
78+ Dim sTemp As String = sFileEditRead(sPath)
8079 Dim listText As List(Of String) = GetListText(sTemp)
8180 mVolume.listText = listText
8281 mSection.listVolume.Add(mVolume)
@@ -100,7 +99,7 @@
10099
101100 Dim sPath As String = Path.Combine(bookPath, mChapter.Scr).Split("#").ToList(0)
102101
103- Dim sChapter As String = sFileEditRead(sPath, emEpub6.emDep.Dep3)
102+ Dim sChapter As String = sFileEditRead(sPath)
104103 Dim listText As List(Of String) = GetListText(sChapter)
105104
106105 mChapter.listText = listText
@@ -180,7 +179,7 @@
180179 End Function
181180
182181
183- Private Function sFileEditRead(ByVal sPath As String, ByVal KBN_DEP As emEpub6.emDep) As String
182+ Private Function sFileEditRead(ByVal sPath As String) As String
184183 sFileEditRead = cTools.sFileReader(sPath, cEpub6.encUTF8)
185184
186185 DelHtml(sFileEditRead)
Show on old repository browser