@@ -534,8 +534,8 @@ | ||
534 | 534 | Dim sPickUp As String = String.Join(vbCrLf, listPickUp) |
535 | 535 | |
536 | 536 | |
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 | |
539 | 539 | cEpub.CreateEpub(mEpub) |
540 | 540 | MessageBox.Show("Finished") |
541 | 541 |
@@ -47,10 +47,8 @@ | ||
47 | 47 | |
48 | 48 | Public Property bTitleDIY01 As Boolean = False |
49 | 49 | Public Property bScaceLine As Boolean = True |
50 | - | |
51 | 50 | Public Property bConvertToMobi As Boolean = False |
52 | 51 | |
53 | - | |
54 | 52 | Sub New(ByVal _emEnc As emEpub6.emEncCode, ByVal _emLang As emEpub6.emLan, |
55 | 53 | ByVal _sBookName As String, _sCreatorName As String, ByVal _sFileNB As String) |
56 | 54 | Select Case _emEnc |
@@ -77,6 +75,38 @@ | ||
77 | 75 | |
78 | 76 | End Sub |
79 | 77 | |
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 | + | |
80 | 110 | Public Sub CreateEpub(ByVal listSection As List(Of modelSection)) |
81 | 111 | |
82 | 112 | kbnDEP = emEpub6.emDep.Dep3 |