AutoEpub3/AutoEpub7.vb (diff) AutoEpub3/cEpub6.vb (diff)| @@ -248,11 +248,6 @@ | ||
| 248 | 248 | |
| 249 | 249 | Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click |
| 250 | 250 | |
| 251 | - | |
| 252 | - | |
| 253 | - | |
| 254 | - | |
| 255 | - | |
| 256 | 251 | Dim dEpubPath As String = "C:\Users\DataTrade\Downloads\CD1\text\" |
| 257 | 252 | Dim mEpub As New List(Of modelChapter) |
| 258 | 253 | Dim mChapter As New modelChapter |
| @@ -293,7 +288,7 @@ | ||
| 293 | 288 | |
| 294 | 289 | |
| 295 | 290 | Dim cEpub As New cEpub6(emEpub6.emEncCode.GB2321, emEpub6.emLan.ZH, "SP0", "画梁春尽落香尘", "刘心武", "HLCJLXC_202002") |
| 296 | - cEpub.bConvertToMobi = True | |
| 291 | + cEpub.bConvertToMobi = False | |
| 297 | 292 | cEpub.CreateEpub(mEpub) |
| 298 | 293 | MessageBox.Show("Finished") |
| 299 | 294 |
| @@ -674,7 +674,7 @@ | ||
| 674 | 674 | Dim sJson As String = JsonConvert.SerializeObject(oEpub) |
| 675 | 675 | Dim sPath As String = Path.Combine("D:\Soft\Json\Epub\", Date.Now.ToString("yyyyMMdd")) |
| 676 | 676 | cTools.CreateDirectory(sPath) |
| 677 | - Dim sFileFullName As String = Path.Combine(sPath, sBookName, ".txt") | |
| 677 | + Dim sFileFullName As String = Path.Combine(sPath, sBookName & ".txt") | |
| 678 | 678 | System.IO.File.WriteAllText(sFileFullName, sJson, encUTF8) |
| 679 | 679 | |
| 680 | 680 | End Sub |
