form1.vb

文件内容批量修改器,通过关键字直接修改文件内容

Public Class Form1
    Public a As String
    Public k As Integer
    Public c, d As Boolean
    Public number As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label4.Text = ""
        k = 0
        c = False
        d = True
        Me.Width = 365
        number = 6
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        FolderBrowserDialog1.ShowDialog()
        Label4.Text = FolderBrowserDialog1.SelectedPath
        c = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'On Error GoTo label2
        If c = False Then
            MsgBox("您还没有选择操作路径呢！", MsgBoxStyle.Information)
            Exit Sub
        End If

        If TextBox1.Text = "" Then Exit Sub
        For Each foundfile As String In My.Computer.FileSystem.GetFiles(Label4.Text & "\", FileIO.SearchOption.SearchAllSubDirectories, TextBox3.Text)
            RadioButton1.Enabled = False
            RadioButton2.Enabled = False
            RadioButton3.Enabled = False
            RadioButton4.Enabled = False
            RadioButton5.Enabled = False
            RadioButton6.Enabled = False
            RadioButton7.Enabled = False
            RadioButton8.Enabled = False
            Select Case number
                Case 1
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.ASCII)
                Case 2
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.BigEndianUnicode)
                Case 3
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.Default)
                Case 4
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.Unicode)
                Case 5
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.UTF7)
                Case 6
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.UTF8)
                Case 7
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.UTF32)
                Case 8
                    a = My.Computer.FileSystem.ReadAllText(foundfile, System.Text.Encoding.GetEncoding("gb2312"))
            End Select
            If a.Contains(TextBox1.Text) Then
                k = k + 1
                a = a.Replace(TextBox1.Text, TextBox2.Text)
                TextBox4.Text = a
                If My.Computer.FileSystem.FileExists(foundfile & ".bak") = False Then
                    If CheckBox1.Checked = True Then My.Computer.FileSystem.CopyFile(foundfile, foundfile & ".bak")
                ElseIf k = 1 Then
                    MsgBox("备份文件已存在！")
                End If

                Select Case number
                    Case 1
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.ASCII)
                    Case 2
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.BigEndianUnicode)
                    Case 3
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.Default)
                    Case 4
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.Unicode)
                    Case 5
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.UTF7)
                    Case 6
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.UTF8)
                    Case 7
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.UTF32)
                    Case 8
                        My.Computer.FileSystem.WriteAllText(foundfile, a, False, System.Text.Encoding.GetEncoding("gb2312"))
                End Select

            End If
        Next
        If k = 0 Then
            MsgBox("没有搜到任何包含该字符的指定文件", MsgBoxStyle.Information)
        Else
            MsgBox("一共替换了" & k & "个文件", MsgBoxStyle.Information)
            RadioButton1.Enabled = True
            RadioButton2.Enabled = True
            RadioButton3.Enabled = True
            RadioButton4.Enabled = True
            RadioButton5.Enabled = True
            RadioButton6.Enabled = True
            RadioButton7.Enabled = True
            RadioButton8.Enabled = True
        End If
        GoTo label1
        'label2: MsgBox("可惜啊，产生了错误，软件无法继续运行下去咯", MsgBoxStyle.Critical)
label1:
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If d = True Then
            Me.Width = 606
            d = False
            Button3.Text = "普通显示"
        Else
            Me.Width = 365
            d = True
            Button3.Text = "显示更多"
        End If
    End Sub

    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
        number = 6
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        number = 1
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        number = 2
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        number = 3
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        number = 4
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        number = 5
    End Sub

    Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
        number = 7
    End Sub

    Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
        number = 8
    End Sub
End Class