• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Revision161 (tree)
Time2019-01-29 16:14:17
Authorhilinwei

Log Message

Change Summary

Incremental Difference

--- AutoEpub3/AutoEpub6.vb (revision 160)
+++ AutoEpub3/AutoEpub6.vb (revision 161)
@@ -13,7 +13,12 @@
1313 Dim fs As System.IO.FileStream = New System.IO.FileStream(ncxFilePath, System.IO.FileMode.Open)
1414 Dim serializer As System.Xml.Serialization.XmlSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ncx))
1515 Dim model As ncx = CType(serializer.Deserialize(fs), ncx)
16+ fs.Dispose()
17+ fs = Nothing
1618
19+
20+
21+
1722 Dim listRemove As New List(Of String)
1823 listRemove.Add("坑双肝血。")
1924 listRemove.Add("坑有双技。")
@@ -167,8 +172,6 @@
167172
168173
169174
170-
171-
172175 End Sub
173176
174177 Private Sub btnNCXDep2_Click(sender As Object, e As EventArgs) Handles btnNCXDep2.Click
--- AutoEpub3/cEpub6.vb (revision 160)
+++ AutoEpub3/cEpub6.vb (revision 161)
@@ -538,9 +538,21 @@
538538
539539 Private Sub ConvertToMobi()
540540
541+
541542 If bConvertToMobi Then
542543 Dim sEpubPath As String = "C:\Soft\Mobi\temp.epub"
544+ Dim sSaveEpub As String = Path.Combine(sOutPutPathFolder, "book.epub")
545+ Dim sSaveMobi As String = Path.Combine(sOutPutPathFolder, "book.mobi")
543546
547+ If File.Exists(sSaveEpub) Then
548+ File.Delete(sSaveEpub)
549+ End If
550+
551+ If File.Exists(sSaveMobi) Then
552+ File.Delete(sSaveMobi)
553+ End If
554+
555+
544556 If File.Exists(sEpubPath) Then
545557 File.Delete(sEpubPath)
546558 End If
@@ -564,7 +576,6 @@
564576 Dim output As String = p.StandardOutput.ReadToEnd() ' 標準出力の読み取り
565577 p.Dispose()
566578 File.Copy("C:\Soft\Mobi\book.mobi", Path.Combine(sOutPutPathFolder, "book.mobi"), True)
567-
568579 End If
569580
570581 End If
Show on old repository browser