• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Revision170 (tree)
Time2019-03-06 17:32:10
Authorhilinwei

Log Message

Change Summary

Incremental Difference

--- AutoEpub3/AutoEpub6.vb (revision 169)
+++ AutoEpub3/AutoEpub6.vb (revision 170)
@@ -534,8 +534,8 @@
534534 Dim sPickUp As String = String.Join(vbCrLf, listPickUp)
535535
536536
537- Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.JA, "横溝正史", "水上勉", "GMD_201903")
538- cEpub.bConvertToMobi = False
537+ Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.JA, "1", "横溝正史", "水上勉", "GMD_201903")
538+ cEpub.bConvertToMobi = True
539539 cEpub.CreateEpub(mEpub)
540540 MessageBox.Show("Finished")
541541
--- AutoEpub3/cEpub6.vb (revision 169)
+++ AutoEpub3/cEpub6.vb (revision 170)
@@ -47,10 +47,8 @@
4747
4848 Public Property bTitleDIY01 As Boolean = False
4949 Public Property bScaceLine As Boolean = True
50-
5150 Public Property bConvertToMobi As Boolean = False
5251
53-
5452 Sub New(ByVal _emEnc As emEpub6.emEncCode, ByVal _emLang As emEpub6.emLan,
5553 ByVal _sBookName As String, _sCreatorName As String, ByVal _sFileNB As String)
5654 Select Case _emEnc
@@ -77,6 +75,38 @@
7775
7876 End Sub
7977
78+ Sub New(ByVal _emEnc As emEpub6.emEncCode, ByVal _emLang As emEpub6.emLan, ByVal _sCollection As String,
79+ ByVal _sBookName As String, _sCreatorName As String, ByVal _sFileNB As String)
80+ Select Case _emEnc
81+ Case emEpub6.emEncCode.GB2321
82+ ENC = encGB2321
83+ Case emEpub6.emEncCode.SHIFT_JIS
84+ ENC = encShift_JIS
85+ Case emEpub6.emEncCode.UTF8
86+ ENC = encUTF8
87+ End Select
88+
89+ Select Case _emLang
90+ Case emEpub6.emLan.JA
91+ sLang = "ja"
92+ Case emEpub6.emLan.ZH
93+ sLang = "zh"
94+ End Select
95+
96+
97+ sBookName = _sBookName
98+ sCreator = _sCreatorName
99+ sFileNB = _sFileNB
100+
101+ sOutPutPathFolder = ConfigurationManager.AppSettings("OutPutPath") & Date.Now.ToString("yyyyMMdd") & "_" & _sCollection & "\"
102+ sOutPutPathEpub = sOutPutPathFolder & "OEBPS" & "\"
103+
104+ StartEpub()
105+
106+ End Sub
107+
108+
109+
80110 Public Sub CreateEpub(ByVal listSection As List(Of modelSection))
81111
82112 kbnDEP = emEpub6.emDep.Dep3
Show on old repository browser