• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Revisão319 (tree)
Hora2020-02-10 10:56:24
Autorhilinwei

Mensagem de Log

Mudança Sumário

Diff

--- AutoEpub3/AutoEpub6.vb (revision 318)
+++ AutoEpub3/AutoEpub6.vb (revision 319)
@@ -1273,6 +1273,9 @@
12731273
12741274 Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
12751275
1276+ Dim kke As String = cAutoRuby.sSetRuby("名もなき毒")
1277+
1278+
12761279 Dim sDTL As String = cTools.sFileReader("D:\Soft\Ruby\Temp.txt", cEpub6.encShift_JIS)
12771280
12781281 Dim listLine As List(Of String) = sDTL.Split({vbCrLf}, StringSplitOptions.None).ToList()
--- AutoEpub3/AutoRuby.Designer.vb (nonexistent)
+++ AutoEpub3/AutoRuby.Designer.vb (revision 319)
@@ -0,0 +1,73 @@
1+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2+Partial Class AutoRuby
3+ Inherits System.Windows.Forms.Form
4+
5+ 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
6+ <System.Diagnostics.DebuggerNonUserCode()> _
7+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8+ Try
9+ If disposing AndAlso components IsNot Nothing Then
10+ components.Dispose()
11+ End If
12+ Finally
13+ MyBase.Dispose(disposing)
14+ End Try
15+ End Sub
16+
17+ 'Windows フォーム デザイナーで必要です。
18+ Private components As System.ComponentModel.IContainer
19+
20+ 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
21+ 'Windows フォーム デザイナーを使用して変更できます。
22+ 'コード エディターを使って変更しないでください。
23+ <System.Diagnostics.DebuggerStepThrough()> _
24+ Private Sub InitializeComponent()
25+ Me.txtInput = New System.Windows.Forms.RichTextBox()
26+ Me.btnSetRuby = New System.Windows.Forms.Button()
27+ Me.txtOutPut = New System.Windows.Forms.RichTextBox()
28+ Me.SuspendLayout()
29+ '
30+ 'txtInput
31+ '
32+ Me.txtInput.Location = New System.Drawing.Point(12, 12)
33+ Me.txtInput.Name = "txtInput"
34+ Me.txtInput.Size = New System.Drawing.Size(660, 570)
35+ Me.txtInput.TabIndex = 0
36+ Me.txtInput.Text = ""
37+ '
38+ 'btnSetRuby
39+ '
40+ Me.btnSetRuby.Location = New System.Drawing.Point(678, 228)
41+ Me.btnSetRuby.Name = "btnSetRuby"
42+ Me.btnSetRuby.Size = New System.Drawing.Size(111, 88)
43+ Me.btnSetRuby.TabIndex = 1
44+ Me.btnSetRuby.Text = "btnSetRuby"
45+ Me.btnSetRuby.UseVisualStyleBackColor = True
46+ '
47+ 'txtOutPut
48+ '
49+ Me.txtOutPut.Location = New System.Drawing.Point(800, 12)
50+ Me.txtOutPut.Name = "txtOutPut"
51+ Me.txtOutPut.Size = New System.Drawing.Size(660, 570)
52+ Me.txtOutPut.TabIndex = 2
53+ Me.txtOutPut.Text = ""
54+ '
55+ 'AutoRuby
56+ '
57+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
58+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
59+ Me.ClientSize = New System.Drawing.Size(1486, 595)
60+ Me.Controls.Add(Me.txtOutPut)
61+ Me.Controls.Add(Me.btnSetRuby)
62+ Me.Controls.Add(Me.txtInput)
63+ Me.Name = "AutoRuby"
64+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
65+ Me.Text = "AutoRuby"
66+ Me.ResumeLayout(False)
67+
68+ End Sub
69+
70+ Friend WithEvents txtInput As RichTextBox
71+ Friend WithEvents btnSetRuby As Button
72+ Friend WithEvents txtOutPut As RichTextBox
73+End Class
--- AutoEpub3/AutoRuby.vb (nonexistent)
+++ AutoEpub3/AutoRuby.vb (revision 319)
@@ -0,0 +1,21 @@
1+Public Class AutoRuby
2+ Private Sub Button1_Click(sender As Object, e As EventArgs)
3+
4+
5+ End Sub
6+
7+ Private Sub btnSetRuby_Click(sender As Object, e As EventArgs) Handles btnSetRuby.Click
8+
9+ Dim sRuby As String = cAutoRuby.sSetRuby(txtInput.Text)
10+
11+ sRuby = "<div style=""font-size:14pt;"">" & sRuby & "</div>"
12+
13+ 'sRuby = sRuby.Replace(vbLf, vbLf & "</br>")
14+
15+ txtOutPut.Text = sRuby
16+
17+
18+ End Sub
19+
20+
21+End Class
\ No newline at end of file
--- AutoEpub3/My Project/Application.Designer.vb (revision 318)
+++ AutoEpub3/My Project/Application.Designer.vb (revision 319)
@@ -32,7 +32,7 @@
3232
3333 <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
3434 Protected Overrides Sub OnCreateMainForm()
35- Me.MainForm = Global.AutoEpub3.AutoEpub6
35+ Me.MainForm = Global.AutoEpub3.AutoRuby
3636 End Sub
3737 End Class
3838 End Namespace
--- AutoEpub3/StudyCode.Designer.vb (revision 318)
+++ AutoEpub3/StudyCode.Designer.vb (revision 319)
@@ -43,6 +43,7 @@
4343 Me.btnTblToList = New System.Windows.Forms.Button()
4444 Me.Button16 = New System.Windows.Forms.Button()
4545 Me.Button17 = New System.Windows.Forms.Button()
46+ Me.Button18 = New System.Windows.Forms.Button()
4647 Me.SuspendLayout()
4748 '
4849 'Button1
@@ -234,11 +235,21 @@
234235 Me.Button17.Text = "RecetClass"
235236 Me.Button17.UseVisualStyleBackColor = True
236237 '
238+ 'Button18
239+ '
240+ Me.Button18.Location = New System.Drawing.Point(441, 482)
241+ Me.Button18.Name = "Button18"
242+ Me.Button18.Size = New System.Drawing.Size(173, 46)
243+ Me.Button18.TabIndex = 35
244+ Me.Button18.Text = "RecetClass listStyleBtn.Add"
245+ Me.Button18.UseVisualStyleBackColor = True
246+ '
237247 'StudyCode
238248 '
239249 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
240250 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
241251 Me.ClientSize = New System.Drawing.Size(1340, 592)
252+ Me.Controls.Add(Me.Button18)
242253 Me.Controls.Add(Me.Button17)
243254 Me.Controls.Add(Me.Button16)
244255 Me.Controls.Add(Me.btnTblToList)
@@ -287,4 +298,5 @@
287298 Friend WithEvents btnTblToList As Button
288299 Friend WithEvents Button16 As Button
289300 Friend WithEvents Button17 As Button
301+ Friend WithEvents Button18 As Button
290302 End Class
--- AutoEpub3/StudyCode.vb (revision 318)
+++ AutoEpub3/StudyCode.vb (revision 319)
@@ -2399,8 +2399,45 @@
23992399
24002400 End Sub
24012401
2402+ Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
2403+ Dim sPath As String = "D:\SVN\03_POS\POS_SG\GPOS\MLF\modTools.vb"
2404+ Dim sCode As String = cTools.sFileReader(sPath)
24022405
24032406
2407+ Dim listCode As List(Of String) = sCode.Split({vbCrLf}, StringSplitOptions.None).ToList()
2408+ Dim listNewCode As New List(Of String)
2409+
2410+ For Each eachCode As String In listCode
2411+
2412+ If eachCode.IndexOf(" listStyleBtn.Add") > -1 AndAlso eachCode.IndexOf("emTem") > -1 Then
2413+ Dim listValue As List(Of String) = eachCode.Split(",").ToList()
2414+ Dim sID As String = listValue(0).Trim().Substring(31).Split(".")(0).Trim()
2415+ Dim keyTemp = listValue(1).Trim()
2416+ Dim keyEna = listValue(2).Substring(0, listValue(2).Length - 2).Trim()
2417+
2418+ Dim sNewCode As String = " cTools.subSetAcc01Btn(idBtn." & sID & ", " & keyEna & ", " & keyTemp & ", emVis.Skip)"
2419+
2420+ listNewCode.Add(sNewCode)
2421+ Else
2422+
2423+ listNewCode.Add(eachCode)
2424+ End If
2425+
2426+
2427+ Next
2428+
2429+
2430+
2431+ Dim sOutPut As String = String.Join(vbCrLf, listNewCode)
2432+ System.IO.File.WriteAllText(sPath, sOutPut, cEpub6.encUTF8)
2433+
2434+
2435+
2436+
2437+ End Sub
2438+
2439+
2440+
24042441 End Class
24052442
24062443
--- AutoEpub3/cAutoRuby.vb (revision 318)
+++ AutoEpub3/cAutoRuby.vb (revision 319)
@@ -27,7 +27,7 @@
2727
2828 Private Shared Function sConvertBasic(args As String) As String
2929
30- Dim fel = TryCast(Activator.CreateInstance(Type.GetTypeFromProgID(“MSIME.Japan”)), IFELanguage)
30+ Dim fel = TryCast(Activator.CreateInstance(Type.GetTypeFromProgID("MSIME.Japan")), IFELanguage)
3131 Dim str As String
3232 fel.Open()
3333 str = fel.GetPhonetic(args, 1, -1)
Show on old repository browser