• R/O
  • SSH
  • HTTPS

autocodeforsql: 提交


Commit MetaInfo

修订版409 (tree)
时间2020-11-11 13:57:43
作者hilinwei

Log Message

更改概述

差异

--- AutoEpub3/AutoEpub8.vb (revision 408)
+++ AutoEpub3/AutoEpub8.vb (revision 409)
@@ -224,8 +224,8 @@
224224 cAutoEpub.CreadEpub()
225225
226226
227- Dim cEpub As New cEpub6(emEpub6.emEncCode.GB2321, emEpub6.emLan.ZH, "中短篇合集", "合集", "ZDPXS_202011")
228- cEpub.bConvertToMobi = False
227+ Dim cEpub As New cEpub6(emEpub6.emEncCode.GB2321, emEpub6.emLan.ZH, "中短篇合集", "人民文学社", "ZDPXS_202011")
228+ cEpub.bConvertToMobi = True
229229 cEpub.CreateEpub(cAutoEpub.mEpub)
230230 MessageBox.Show("Finished")
231231 System.Diagnostics.Process.Start(cEpub.sOutPutPathFolder)
--- AutoEpub3/Logic/DEP2/cDep2_006.vb (revision 408)
+++ AutoEpub3/Logic/DEP2/cDep2_006.vb (revision 409)
@@ -143,7 +143,17 @@
143143
144144 Private Sub DelHtml(ByRef sHtml As String)
145145
146+ Dim hapHtmlEdit As HtmlAgilityPack.HtmlDocument = New HtmlAgilityPack.HtmlDocument()
147+ hapHtmlEdit.LoadHtml(sHtml)
148+ Dim linqHap = hapHtmlEdit.DocumentNode.SelectNodes(("//img"))
146149
150+ If linqHap IsNot Nothing Then
151+ For Each uHap As HtmlNode In linqHap
152+ uHap.Remove()
153+ Next
154+ End If
155+ sHtml = hapHtmlEdit.DocumentNode.InnerHtml
156+
147157 End Sub
148158
149159 Private Sub EditHref00(ByRef sHtml As String)
Show on old repository browser