• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Revision159 (tree)
Time2019-01-28 10:56:44
Authorhilinwei

Log Message

Change Summary

Incremental Difference

--- AutoEpub3/AutoEpub6.vb (revision 158)
+++ AutoEpub3/AutoEpub6.vb (revision 159)
@@ -16,17 +16,68 @@
1616
1717 Dim listRemove As New List(Of String)
1818 listRemove.Add("坑双肝血。")
19- listRemove.Add("坑华女技。")
20- listRemove.Add("坑刚扑扛。")
2119 listRemove.Add("坑有双技。")
2220 listRemove.Add("坑乐每号。")
23- listRemove.Add("坑丰圣扛。")
24- listRemove.Add("坑丸在才。")
21+ listRemove.Add("阵圣狂技。")
2522 listRemove.Add("坑岁池圾。")
23+ listRemove.Add("阵广叼血。")
24+ listRemove.Add("阵肝布巴。")
25+ listRemove.Add("阵引丽技。")
26+ listRemove.Add("阵纵节技。")
27+ listRemove.Add("阵尽双圾。")
28+ listRemove.Add("阵庄来划。")
29+ listRemove.Add("阵土有巴。")
30+ listRemove.Add("阵役岁划。")
31+ listRemove.Add("阵记扔圾。")
32+ listRemove.Add("阵爪边技。")
33+ listRemove.Add("岛向爪扛。")
34+ listRemove.Add("岛长记才。")
35+ listRemove.Add("岛广上扛。")
36+ listRemove.Add("岛东乐技。")
37+ listRemove.Add("岛叨爪弟。")
38+ listRemove.Add("岛巨庄划。")
39+ listRemove.Add("岛估岛血。")
40+ listRemove.Add("岛布亩技。")
41+ listRemove.Add("岛役在扛。")
42+ listRemove.Add("岛沟华号。")
43+ listRemove.Add("呆大私弟。")
44+ listRemove.Add("呆场丰圾。")
45+ listRemove.Add("呆住肠才。")
46+ listRemove.Add("阵记肝技。")
47+ listRemove.Add("阵围反血。")
48+ listRemove.Add("呆夹司弟。")
49+ listRemove.Add("呆扔记号。")
50+ listRemove.Add("呆叼有圾。")
51+ listRemove.Add("呆妖吐技。")
52+ listRemove.Add("将门虚掩。")
53+ listRemove.Add("呆沟名划。")
54+ listRemove.Add("呆肠页号。")
55+ listRemove.Add("呆狂休扛。")
56+ listRemove.Add("贞页讨亡。")
57+ listRemove.Add("贞杂帅亡。")
58+ listRemove.Add("贞岛以亡。")
59+ listRemove.Add("贞贞匠圾。")
60+ listRemove.Add("贞贞丽号。")
61+ listRemove.Add("贞纵医技。")
62+ listRemove.Add("贞系华划。")
63+ listRemove.Add("贞以丽技。")
64+ listRemove.Add("贞爪协弟。")
65+ listRemove.Add("贞欢肠圾。")
66+ listRemove.Add("贞在刚划。")
67+ listRemove.Add("贞史见技。")
68+ listRemove.Add("纵私序圾。")
69+ listRemove.Add("纵助宏血。")
70+ listRemove.Add("纵夹在圾。")
71+ listRemove.Add("纵木央巴。")
72+ listRemove.Add("纵沟阵号。")
2673
2774
75+ Dim listPickString As New List(Of String)
2876
2977
78+ Dim listPickString4 As New List(Of String)
79+
80+
3081 Dim mEpub As New List(Of modelChapter)
3182
3283 For Each eachPoint As ncxNavPoint In model.navMap
@@ -42,7 +93,10 @@
4293
4394 Next
4495
96+ sTemp5 = cTools.sSimplifiedChinese(sTemp5)
4597
98+
99+
46100 Dim mChapter As New modelChapter
47101 mChapter.Title = sTitle
48102
@@ -49,7 +103,7 @@
49103 Dim listTemp As List(Of String) = cTools.listNav_SE(sTemp5, "<p>", "</p>", False)
50104
51105 For Each sVolumLine As String In listTemp
52- Dim listPickString As New List(Of String)
106+
53107 cTools.PickUpString(sVolumLine.Trim(), listPickString)
54108
55109 Dim listREP = listPickString.OrderByDescending((Function(x) x.Length))
@@ -70,8 +124,9 @@
70124
71125 Next
72126
127+ Dim kk1 = listPickString4.Count
73128
74- Dim a1 As String = String.Join(", ", listSkip)
129+ Dim a1 As String = String.Join(vbCrLf, listPickString4)
75130
76131 Dim cEpub As New cEpub6(emEpub6.emEncCode.SHIFT_JIS, emEpub6.emLan.ZH, "童亮", "鬼称骨", "GCG_201901")
77132 cEpub.bConvertToMobi = True
@@ -285,9 +340,11 @@
285340
286341 For Each eachNax As ncxNavPointNavPoint In unitOne.navPoint
287342
343+ Dim sPath As String = (bookPath & eachNax.content.src).Split("#").ToList(0)
344+
288345 Dim mChapter As New modelChapter
289346 mChapter.Title = eachNax.navLabel.text
290- Dim sHtml As String = cTools.sFileReader(bookPath & unitOne.content.src, cEpub6.encUTF8)
347+ Dim sHtml As String = cTools.sFileReader(sPath, cEpub6.encUTF8)
291348 sHtml = sHtml.Replace("../stylesheet.css", "../../stylesheet.css")
292349 sHtml = sHtml.Replace("../page_styles.css", "../../page_styles.css")
293350 sHtml = sHtml.Replace("../images/", "../../images/")
@@ -364,6 +421,11 @@
364421
365422 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
366423
424+ Dim sREX As String = "。^.{4}$。"
425+
426+ Dim sTest As String = "有。位。小数的正。实。数数的正。实数"
427+
428+
367429 Dim sbCmd As String = ""
368430 Dim iMax As Decimal = 1000
369431
--- AutoEpub3/cTools.vb (revision 158)
+++ AutoEpub3/cTools.vb (revision 159)
@@ -973,7 +973,14 @@
973973 End Sub
974974
975975
976+ Public Shared Function sSimplifiedChinese(ByVal sText) As String
976977
978+ sSimplifiedChinese = Strings.StrConv(sText, VbStrConv.SimplifiedChinese, 2052)
979+
980+ End Function
981+
982+
983+
977984 #Region "暗号化"
978985 ''' <summary>
979986 ''' 文字列を暗号化する
Show on old repository browser