AutoEpub3/AutoEpub3.vbproj (diff) AutoEpub3/AutoEpub8.Designer.vb (diff) AutoEpub3/MainTools.Designer.vb (diff) AutoEpub3/MainTools.resx (diff) AutoEpub3/MainTools.vb (diff) AutoEpub3/My Project/Application.Designer.vb (diff) AutoEpub3/My Project/Application.myapp (diff)| @@ -1,9 +1,9 @@ | ||
| 1 | -<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ | |
| 1 | +<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> | |
| 2 | 2 | Partial Class AutoEpub8 |
| 3 | 3 | Inherits System.Windows.Forms.Form |
| 4 | 4 | |
| 5 | 5 | 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 |
| 6 | - <System.Diagnostics.DebuggerNonUserCode()> _ | |
| 6 | + <System.Diagnostics.DebuggerNonUserCode()> | |
| 7 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) |
| 8 | 8 | Try |
| 9 | 9 | If disposing AndAlso components IsNot Nothing Then |
| @@ -20,7 +20,7 @@ | ||
| 20 | 20 | 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。 |
| 21 | 21 | 'Windows フォーム デザイナーを使用して変更できます。 |
| 22 | 22 | 'コード エディターを使って変更しないでください。 |
| 23 | - <System.Diagnostics.DebuggerStepThrough()> _ | |
| 23 | + <System.Diagnostics.DebuggerStepThrough()> | |
| 24 | 24 | Private Sub InitializeComponent() |
| 25 | 25 | Me.Button5 = New System.Windows.Forms.Button() |
| 26 | 26 | Me.Button1 = New System.Windows.Forms.Button() |
| @@ -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 |
| @@ -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 |
| @@ -32,7 +32,7 @@ | ||
| 32 | 32 | |
| 33 | 33 | <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ |
| 34 | 34 | Protected Overrides Sub OnCreateMainForm() |
| 35 | - Me.MainForm = Global.AutoEpub3.AutoEpub8 | |
| 35 | + Me.MainForm = Global.AutoEpub3.MainTools | |
| 36 | 36 | End Sub |
| 37 | 37 | End Class |
| 38 | 38 | End Namespace |
