• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Revision160 (tree)
Time2019-01-29 16:05:45
Authorhilinwei

Log Message

Change Summary

Incremental Difference

--- AutoEpub3/AutoEpub6.vb (revision 159)
+++ AutoEpub3/AutoEpub6.vb (revision 160)
@@ -70,6 +70,20 @@
7070 listRemove.Add("纵夹在圾。")
7171 listRemove.Add("纵木央巴。")
7272 listRemove.Add("纵沟阵号。")
73+ listRemove.Add("坑华女技。")
74+ listRemove.Add("坑刚扑扛。")
75+ listRemove.Add("坑丰圣扛。")
76+ listRemove.Add("坑丸在才。")
77+ listRemove.Add("阵在页弟。")
78+ listRemove.Add("岛台丸血。")
79+ listRemove.Add("呆妖节血。")
80+ listRemove.Add("贞介节血。")
81+ listRemove.Add("贞以华才。")
82+ listRemove.Add("贞亩助技。")
83+ listRemove.Add("纵引余划。")
84+ listRemove.Add("纵尽巨号。")
85+ listRemove.Add("纵木找才。")
86+ listRemove.Add("纵他团血。")
7387
7488
7589 Dim listPickString As New List(Of String)
@@ -87,6 +101,24 @@
87101
88102 Dim sTemp5 As String = cTools.sFileReader(Path.Combine(bookPath, sSCR), cEpub6.encUTF8)
89103
104+
105+ 'Dim listK1 As List(Of String) = cTools.listNav_SE(sTemp5, Convert.ToChar(8221), "。", True)
106+
107+ 'For Each eachK As String In listK1
108+
109+ ' If eachK.Length = 6 Then
110+
111+ ' If (eachK.IndexOf("问道") = -1 AndAlso eachK.IndexOf("说道") = -1) Then
112+ ' listPickString4.Add(eachK)
113+ ' End If
114+
115+
116+ ' End If
117+
118+ 'Next
119+
120+
121+
90122 For Each eachRemove As String In listRemove
91123
92124 sTemp5 = sTemp5.Replace(eachRemove, "")
@@ -128,7 +160,7 @@
128160
129161 Dim a1 As String = String.Join(vbCrLf, listPickString4)
130162
131- Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.ZH, "童亮", "鬼称骨", "GCG_201901")
163+ Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.ZH, "鬼称骨", "童亮", "GCG_201901")
132164 cEpub.bConvertToMobi = True
133165 cEpub.CreateEpub(mEpub)
134166 MessageBox.Show("Finished")
@@ -147,7 +179,7 @@
147179
148180
149181
150- Dim bookPath As String = "C: \Users\vmware\Downloads\121432\"
182+ Dim bookPath As String = "C: \Users\vmware\Downloads\121432\"
151183 Dim ncxFilePath As String = Path.Combine(bookPath, "toc.ncx")
152184
153185 Dim fs As System.IO.FileStream = New System.IO.FileStream(ncxFilePath, System.IO.FileMode.Open)
Show on old repository browser