@@ -181,67 +181,67 @@ | ||
181 | 181 | |
182 | 182 | |
183 | 183 | |
184 | - Dim sText As String = String.Empty | |
185 | - Dim listLine As New List(Of String) | |
186 | - Dim listSkip As New List(Of String) | |
184 | + 'Dim sText As String = String.Empty | |
185 | + 'Dim listLine As New List(Of String) | |
186 | + 'Dim listSkip As New List(Of String) | |
187 | 187 | |
188 | 188 | |
189 | 189 | |
190 | - Dim bookPath As String = "C:\Users\DataTrade\Downloads\JD\OEBPS\" | |
191 | - Dim ncxFilePath As String = Path.Combine(bookPath, "toc.ncx") | |
190 | + 'Dim bookPath As String = "C:\Users\DataTrade\Downloads\JD\OEBPS\" | |
191 | + 'Dim ncxFilePath As String = Path.Combine(bookPath, "toc.ncx") | |
192 | 192 | |
193 | - Dim fs As System.IO.FileStream = New System.IO.FileStream(ncxFilePath, System.IO.FileMode.Open) | |
194 | - Dim serializer As System.Xml.Serialization.XmlSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ncx)) | |
195 | - Dim model As ncx = CType(serializer.Deserialize(fs), ncx) | |
193 | + 'Dim fs As System.IO.FileStream = New System.IO.FileStream(ncxFilePath, System.IO.FileMode.Open) | |
194 | + 'Dim serializer As System.Xml.Serialization.XmlSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ncx)) | |
195 | + 'Dim model As ncx = CType(serializer.Deserialize(fs), ncx) | |
196 | 196 | |
197 | - Dim mEpub As New List(Of modelChapter) | |
197 | + 'Dim mEpub As New List(Of modelChapter) | |
198 | 198 | |
199 | - For iCtr As Integer = 1 To model.navMap.Length - 1 | |
199 | + 'For iCtr As Integer = 1 To model.navMap.Length - 1 | |
200 | 200 | |
201 | - Dim unitOne As ncxNavPoint = model.navMap(iCtr) | |
201 | + ' Dim unitOne As ncxNavPoint = model.navMap(iCtr) | |
202 | 202 | |
203 | - Dim uChapter As New modelChapter | |
204 | - uChapter.Title = unitOne.navLabel.text | |
203 | + ' Dim uChapter As New modelChapter | |
204 | + ' uChapter.Title = unitOne.navLabel.text | |
205 | 205 | |
206 | - Dim src As String = unitOne.content.src.Split("#")(0) | |
206 | + ' Dim src As String = unitOne.content.src.Split("#")(0) | |
207 | 207 | |
208 | - Dim sTemp5 As String = cTools.sFileReader(Path.Combine(bookPath, src), cEpub6.encUTF8) | |
208 | + ' Dim sTemp5 As String = cTools.sFileReader(Path.Combine(bookPath, src), cEpub6.encUTF8) | |
209 | 209 | |
210 | - sTemp5 = sTemp5.Replace("lk", "normaltext") | |
211 | - sTemp5 = sTemp5.Replace("normaltext1", "title2") | |
210 | + ' sTemp5 = sTemp5.Replace("lk", "normaltext") | |
211 | + ' sTemp5 = sTemp5.Replace("normaltext1", "title2") | |
212 | 212 | |
213 | 213 | |
214 | 214 | |
215 | 215 | |
216 | - Dim listTemp2 As List(Of String) = cTools.listNav_SE(sTemp5, "<p", "</p>", False) | |
216 | + ' Dim listTemp2 As List(Of String) = cTools.listNav_SE(sTemp5, "<p", "</p>", False) | |
217 | 217 | |
218 | 218 | |
219 | - For Each sAdd As String In listTemp2 | |
219 | + ' For Each sAdd As String In listTemp2 | |
220 | 220 | |
221 | - If sAdd.IndexOf("title1") > -1 Then | |
222 | - Continue For | |
223 | - End If | |
221 | + ' If sAdd.IndexOf("title1") > -1 Then | |
222 | + ' Continue For | |
223 | + ' End If | |
224 | 224 | |
225 | - If sAdd.IndexOf("title2") > -1 Then | |
226 | - sAdd = sAdd.Replace(" class=""title2"">", emEpub6.spText_SubTitle) | |
227 | - Else | |
228 | - sAdd = sAdd.Replace(" class=""normaltext"">", "") | |
229 | - End If | |
225 | + ' If sAdd.IndexOf("title2") > -1 Then | |
226 | + ' sAdd = sAdd.Replace(" class=""title2"">", emEpub6.spText_SubTitle) | |
227 | + ' Else | |
228 | + ' sAdd = sAdd.Replace(" class=""normaltext"">", "") | |
229 | + ' End If | |
230 | 230 | |
231 | - uChapter.listText.Add(sAdd) | |
232 | - Next | |
231 | + ' uChapter.listText.Add(sAdd) | |
232 | + ' Next | |
233 | 233 | |
234 | 234 | |
235 | - mEpub.Add(uChapter) | |
235 | + ' mEpub.Add(uChapter) | |
236 | 236 | |
237 | 237 | |
238 | - Next | |
238 | + 'Next | |
239 | 239 | |
240 | 240 | |
241 | - Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.ZH, "S2", "顾艳", "顾艳短篇小说集", "GY_201904") | |
242 | - cEpub.bConvertToMobi = True | |
243 | - cEpub.CreateEpub(mEpub) | |
244 | - MessageBox.Show("Finished") | |
241 | + 'Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.ZH, "S2", "顾艳", "顾艳短篇小说集", "GY_201904") | |
242 | + 'cEpub.bConvertToMobi = True | |
243 | + 'cEpub.CreateEpub(mEpub) | |
244 | + 'MessageBox.Show("Finished") | |
245 | 245 | |
246 | 246 | |
247 | 247 |
@@ -250,81 +250,81 @@ | ||
250 | 250 | |
251 | 251 | |
252 | 252 | |
253 | - 'Dim sText As String = String.Empty | |
254 | - 'Dim listLine As New List(Of String) | |
255 | - 'Dim listSkip As New List(Of String) | |
253 | + Dim sText As String = String.Empty | |
254 | + Dim listLine As New List(Of String) | |
255 | + Dim listSkip As New List(Of String) | |
256 | 256 | |
257 | 257 | |
258 | 258 | |
259 | - 'Dim bookPath As String = "C:\Users\DataTrade\Downloads\K1\OEBPS\" | |
260 | - 'Dim ncxFilePath As String = Path.Combine(bookPath, "toc.ncx") | |
259 | + Dim bookPath As String = "C:\Users\DataTrade\Downloads\K1\OEBPS\" | |
260 | + Dim ncxFilePath As String = Path.Combine(bookPath, "toc.ncx") | |
261 | 261 | |
262 | - 'Dim fs As System.IO.FileStream = New System.IO.FileStream(ncxFilePath, System.IO.FileMode.Open) | |
263 | - 'Dim serializer As System.Xml.Serialization.XmlSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ncx)) | |
264 | - 'Dim model As ncx = CType(serializer.Deserialize(fs), ncx) | |
262 | + Dim fs As System.IO.FileStream = New System.IO.FileStream(ncxFilePath, System.IO.FileMode.Open) | |
263 | + Dim serializer As System.Xml.Serialization.XmlSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ncx)) | |
264 | + Dim model As ncx = CType(serializer.Deserialize(fs), ncx) | |
265 | 265 | |
266 | - 'Dim mEpub As New List(Of modelVolume) | |
266 | + Dim mEpub As New List(Of modelVolume) | |
267 | 267 | |
268 | - 'For iCtr As Integer = 2 To model.navMap.Length - 1 | |
268 | + For iCtr As Integer = 2 To model.navMap.Length - 1 | |
269 | 269 | |
270 | - ' Dim unitOne As ncxNavPoint = model.navMap(iCtr) | |
270 | + Dim unitOne As ncxNavPoint = model.navMap(iCtr) | |
271 | 271 | |
272 | - ' For Each eachNax As ncxNavPointNavPoint In unitOne.navPoint | |
272 | + For Each eachNax As ncxNavPointNavPoint In unitOne.navPoint | |
273 | 273 | |
274 | - ' Dim unitVolume As New modelVolume | |
275 | - ' unitVolume.Title = eachNax.navLabel.text | |
274 | + Dim unitVolume As New modelVolume | |
275 | + unitVolume.Title = eachNax.navLabel.text | |
276 | 276 | |
277 | 277 | |
278 | - ' For Each eachNaxSetp2 As ncxNavPointNavPointNavPoint In eachNax.navPoint | |
279 | - ' Dim mChapter As New modelChapter | |
278 | + For Each eachNaxSetp2 As ncxNavPointNavPointNavPoint In eachNax.navPoint | |
279 | + Dim mChapter As New modelChapter | |
280 | 280 | |
281 | - ' mChapter.Title = eachNaxSetp2.navLabel.text | |
281 | + mChapter.Title = eachNaxSetp2.navLabel.text | |
282 | 282 | |
283 | - ' Dim src As String = eachNaxSetp2.content.src.Split("#")(0) | |
283 | + Dim src As String = eachNaxSetp2.content.src.Split("#")(0) | |
284 | 284 | |
285 | - ' Dim sTemp5 As String = cTools.sFileReader(Path.Combine(bookPath, src), cEpub6.encUTF8) | |
285 | + Dim sTemp5 As String = cTools.sFileReader(Path.Combine(bookPath, src), cEpub6.encUTF8) | |
286 | 286 | |
287 | - ' Dim listTemp As List(Of String) = cTools.listNav_SE(sTemp5, "<p", "</p>", False) | |
287 | + Dim listTemp As List(Of String) = cTools.listNav_SE(sTemp5, "<p", "</p>", False) | |
288 | 288 | |
289 | - ' Dim listKK As New List(Of String) | |
289 | + Dim listKK As New List(Of String) | |
290 | 290 | |
291 | - ' For Each edit As String In listTemp | |
291 | + For Each edit As String In listTemp | |
292 | 292 | |
293 | - ' If edit.IndexOf("quote") > -1 Then | |
294 | - ' listKK.Add(edit.Replace(" class=""quote"">", emEpub6.spText_EmDash)) | |
293 | + If edit.IndexOf("quote") > -1 Then | |
294 | + listKK.Add(edit.Replace(" class=""quote"">", emEpub6.spText_EmDash)) | |
295 | 295 | |
296 | - ' Else | |
297 | - ' listKK.Add(edit.Replace(">", "")) | |
298 | - ' End If | |
296 | + Else | |
297 | + listKK.Add(edit.Replace(">", "")) | |
298 | + End If | |
299 | 299 | |
300 | 300 | |
301 | - ' Next | |
301 | + Next | |
302 | 302 | |
303 | 303 | |
304 | 304 | |
305 | 305 | |
306 | - ' mChapter.listText = listKK | |
306 | + mChapter.listText = listKK | |
307 | 307 | |
308 | - ' unitVolume.listChapter.Add(mChapter) | |
308 | + unitVolume.listChapter.Add(mChapter) | |
309 | 309 | |
310 | - ' Next | |
310 | + Next | |
311 | 311 | |
312 | 312 | |
313 | - ' mEpub.Add(unitVolume) | |
313 | + mEpub.Add(unitVolume) | |
314 | 314 | |
315 | 315 | |
316 | 316 | |
317 | - ' Next | |
317 | + Next | |
318 | 318 | |
319 | 319 | |
320 | 320 | |
321 | - 'Next | |
321 | + Next | |
322 | 322 | |
323 | 323 | |
324 | - 'Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.ZH, "有匪", "牧牧", "YF_201904") | |
325 | - 'cEpub.bConvertToMobi = True | |
326 | - 'cEpub.CreateEpub(mEpub) | |
327 | - 'MessageBox.Show("Finished") | |
324 | + Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.ZH, "有匪", "牧牧", "YF_201904") | |
325 | + cEpub.bConvertToMobi = True | |
326 | + cEpub.CreateEpub(mEpub) | |
327 | + MessageBox.Show("Finished") | |
328 | 328 | |
329 | 329 | End Sub |
330 | 330 |