AutoEpub3/AutoEpub8.vb (diff) AutoEpub3/Logic/DEP2/cDep2_006.vb (diff)| @@ -224,8 +224,8 @@ | ||
| 224 | 224 | cAutoEpub.CreadEpub() |
| 225 | 225 | |
| 226 | 226 | |
| 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 | |
| 229 | 229 | cEpub.CreateEpub(cAutoEpub.mEpub) |
| 230 | 230 | MessageBox.Show("Finished") |
| 231 | 231 | System.Diagnostics.Process.Start(cEpub.sOutPutPathFolder) |
| @@ -143,7 +143,17 @@ | ||
| 143 | 143 | |
| 144 | 144 | Private Sub DelHtml(ByRef sHtml As String) |
| 145 | 145 | |
| 146 | + Dim hapHtmlEdit As HtmlAgilityPack.HtmlDocument = New HtmlAgilityPack.HtmlDocument() | |
| 147 | + hapHtmlEdit.LoadHtml(sHtml) | |
| 148 | + Dim linqHap = hapHtmlEdit.DocumentNode.SelectNodes(("//img")) | |
| 146 | 149 | |
| 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 | + | |
| 147 | 157 | End Sub |
| 148 | 158 | |
| 149 | 159 | Private Sub EditHref00(ByRef sHtml As String) |
