• R/O
  • SSH
  • HTTPS

autocodeforsql: 提交


Commit MetaInfo

修订版410 (tree)
时间2020-11-17 10:21:16
作者hilinwei

Log Message

更改概述

差异

--- AutoEpub3/AutoEpub8.Designer.vb (revision 409)
+++ AutoEpub3/AutoEpub8.Designer.vb (revision 410)
@@ -1,9 +1,9 @@
1-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
1+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
22 Partial Class AutoEpub8
33 Inherits System.Windows.Forms.Form
44
55 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
6- <System.Diagnostics.DebuggerNonUserCode()> _
6+ <System.Diagnostics.DebuggerNonUserCode()>
77 Protected Overrides Sub Dispose(ByVal disposing As Boolean)
88 Try
99 If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@
2020 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
2121 'Windows フォーム デザイナーを使用して変更できます。
2222 'コード エディターを使って変更しないでください。
23- <System.Diagnostics.DebuggerStepThrough()> _
23+ <System.Diagnostics.DebuggerStepThrough()>
2424 Private Sub InitializeComponent()
2525 Me.Button5 = New System.Windows.Forms.Button()
2626 Me.Button1 = New System.Windows.Forms.Button()
--- AutoEpub3/MainTools.Designer.vb (nonexistent)
+++ AutoEpub3/MainTools.Designer.vb (revision 410)
@@ -0,0 +1,50 @@
1+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2+Partial Class MainTools
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.btnReName = New System.Windows.Forms.Button()
26+ Me.SuspendLayout()
27+ '
28+ 'btnReName
29+ '
30+ Me.btnReName.Location = New System.Drawing.Point(29, 31)
31+ Me.btnReName.Name = "btnReName"
32+ Me.btnReName.Size = New System.Drawing.Size(221, 93)
33+ Me.btnReName.TabIndex = 0
34+ Me.btnReName.Text = "btnReName"
35+ Me.btnReName.UseVisualStyleBackColor = True
36+ '
37+ 'MainTools
38+ '
39+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
40+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
41+ Me.ClientSize = New System.Drawing.Size(800, 450)
42+ Me.Controls.Add(Me.btnReName)
43+ Me.Name = "MainTools"
44+ Me.Text = "MainTools"
45+ Me.ResumeLayout(False)
46+
47+ End Sub
48+
49+ Friend WithEvents btnReName As Button
50+End Class
--- AutoEpub3/MainTools.vb (nonexistent)
+++ AutoEpub3/MainTools.vb (revision 410)
@@ -0,0 +1,25 @@
1+Imports System.IO
2+
3+Public Class MainTools
4+ Private Sub btnReName_Click(sender As Object, e As EventArgs) Handles btnReName.Click
5+
6+
7+ Dim di As New System.IO.DirectoryInfo("D:\Temp\Kimetsu no Yaiba\")
8+ Dim listFile As List(Of FileInfo) = di.GetFiles("*.ass", SearchOption.AllDirectories).ToList()
9+
10+
11+ For Each unitFile As FileInfo In listFile
12+
13+ Dim sNewFullName As String = unitFile.FullName.Replace("[BeanSub&FZSD&VCB-Studio] ", "").Replace("[Ma10p_1080p][x265_flac_aac]", "")
14+ sNewFullName = sNewFullName.Replace("[Ma10p_1080p]", "").Replace("[x265_flac]", "")
15+ Console.WriteLine(sNewFullName)
16+
17+ File.Move(unitFile.FullName, sNewFullName)
18+
19+ Next
20+
21+
22+ End Sub
23+
24+
25+End Class
\ No newline at end of file
--- AutoEpub3/My Project/Application.Designer.vb (revision 409)
+++ AutoEpub3/My Project/Application.Designer.vb (revision 410)
@@ -32,7 +32,7 @@
3232
3333 <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
3434 Protected Overrides Sub OnCreateMainForm()
35- Me.MainForm = Global.AutoEpub3.AutoEpub8
35+ Me.MainForm = Global.AutoEpub3.MainTools
3636 End Sub
3737 End Class
3838 End Namespace
Show on old repository browser