• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Revisão318 (tree)
Hora2020-02-04 10:38:27
Autorhilinwei

Mensagem de Log

Mudança Sumário

Diff

--- AutoEpub3/AutoEpub6.vb (revision 317)
+++ AutoEpub3/AutoEpub6.vb (revision 318)
@@ -1273,16 +1273,36 @@
12731273
12741274 Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
12751275
1276+ Dim sDTL As String = cTools.sFileReader("D:\Soft\Ruby\Temp.txt", cEpub6.encShift_JIS)
12761277
1277- Dim ke As String = cAutoRuby.sSetRuby("が流れると")
1278+ Dim listLine As List(Of String) = sDTL.Split({vbCrLf}, StringSplitOptions.None).ToList()
12781279
1279- Dim sHtml As String = cTools.sHtmlSample(ke)
1280+ Dim listNewLine As New List(Of String)
1281+ For Each uLine As String In listLine
12801282
1281- System.IO.File.WriteAllText("D:\Soft\TEMP\HtmlSample.html", sHtml, cEpub6.encUTF8)
12821283
1283- System.Diagnostics.Process.Start("D:\Soft\TEMP\")
1284+ Dim sRuby As String = cAutoRuby.sSetRuby(uLine)
1285+ listNewLine.Add(sRuby)
12841286
1287+ Next
12851288
1289+ Dim sOutPut As String = String.Join("</br></br>", listNewLine)
1290+
1291+
1292+ System.IO.File.WriteAllText("D:\Soft\Ruby\Temp1.txt", sOutPut)
1293+
1294+
1295+
1296+
1297+ 'Dim ke As String = cAutoRuby.sSetRuby("が流れると")
1298+
1299+ 'Dim sHtml As String = cTools.sHtmlSample(ke)
1300+
1301+ 'System.IO.File.WriteAllText("D:\Soft\TEMP\HtmlSample.html", sHtml, cEpub6.encUTF8)
1302+
1303+ 'System.Diagnostics.Process.Start("D:\Soft\TEMP\")
1304+
1305+
12861306 'Dim kk As Integer = ke.Length
12871307
12881308
--- AutoEpub3/My Project/Application.Designer.vb (revision 317)
+++ AutoEpub3/My Project/Application.Designer.vb (revision 318)
@@ -32,7 +32,7 @@
3232
3333 <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
3434 Protected Overrides Sub OnCreateMainForm()
35- Me.MainForm = Global.AutoEpub3.StudyCode
35+ Me.MainForm = Global.AutoEpub3.AutoEpub6
3636 End Sub
3737 End Class
3838 End Namespace
Show on old repository browser