如何重命名列表框中所有文件的后缀？

Question

我有一个包含两个列表框和两个工具条标签（按钮）的窗体。

按下第一个按钮（打开文件夹）时，文件浏览器打开，您可以选择多个文件，然后将这些文件加载​​到列表框 1（ListFilesLoaded）中，现在我要做的是在列表框 2 中显示转换后的文件名（转换名称）。比如……

• apple_001.jpg > apple_Ambrosia.jpg
• apple_002.jpg > apple_Melba.jpg
• apple_003.jpg > apple_Granny.jpg

然后按我的第二个按钮（重命名文件）将重命名的文件保存在其原始目录中（删除旧文件/名称）。

到目前为止，我已经让加载 listbox1 (ListFilesLoaded) 工作正常。我只是不确定如何在列表框 2 (ConvertedNames) 中更改它们的显示名称并将它们保存为新文件名。

Imports System.IO
Public Class Form1
Private openFile As OpenFileDialog 'window to open files

Private Sub ToolStripLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripLabel1.Click
    Try
        openFile = New OpenFileDialog
        openFile.Title = "Select files."
        openFile.CheckFileExists = True
        openFile.Multiselect = True
        openFile.RestoreDirectory = False

        If openFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            openFile.SafeFileNames.Count()
            For i As Integer = 0 To openFile.SafeFileNames.Count() - 1
                ListFilesLoaded.Items.Add(openFile.SafeFileNames(i))
                ConvertedNames.Items.Add(openFile.SafeFileNames(i))
            Next

        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    End Try


End Sub

Private Sub ToolStripLabel2_Click(sender As Object, e As EventArgs) Handles ToolStripLabel2.Click

End Sub

所以基本上我认为我需要类似...

If ConvertedNames.Items.string.contains "_001" then
   ConvertedNames.Items.string = ConvertedNames.Items.string -4 + _Ambrosia
else if
   ConvertedNames.Items.string.contains "_002" then
   ConvertedNames.Items.string = ConvertedNames.Items.string -4 + _Melba
else if
   ConvertedNames.loaded.name.contains "_003" then
   ConvertedNames.Items.string = ConvertedNames.Items.string -4 + _Granny
End If

说到保存名字部分，我完全不知道。

也感谢您抽出宝贵的时间。

Answer 1

我更改了控件的名称以匹配我的测试程序。

我使用List(Of Tuple(Of String, String) 来存储原始文件的路径和文件名。 https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/data-types/tuples 和 https://docs.microsoft.com/en-us/dotnet/api/system.tuple?view=net-5.0 如果没有命名项，则元组元素在第一个字符串中称为 Item1，第二个字符串称为 Item2。由于我们的方法很小，我觉得没有必要命名元素或使用结构或类。

Item1 is the full path (with file name and extension)
Item2 is the file name only with extension

接下来，我们将列表绑定到第一个设置显示和值成员的列表框。现在我们可以遍历列表框。请记住，列表框中的每个项目都是一个Tuple(Of String, String)，我们可以使用Item1 和Item2 来引用它的元素。我们将文件名发送给返回新文件名的函数

要实际更改磁盘上的文件名，我们可以使用 Visual Basic 特定的FileIO.FileSystem.Rename 方法。 https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.fileio.filesystem.renamefile?view=net-5.0该方法以原文件全路径和新文件名为参数。

最后，新名称被添加到第二个列表框中。

GetNewName 函数使用Select Case 和String.Replace 方法来完成这项工作。https://docs.microsoft.com/en-us/dotnet/api/system.string.replace?view=净5.0

Private Sub ToolStripLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripLabel1.Click
    Dim openFile = New OpenFileDialog
    openFile.Title = "Select files."
    openFile.CheckFileExists = True
    openFile.Multiselect = True
    openFile.RestoreDirectory = False

    If openFile.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim lstPathAndFile As New List(Of Tuple(Of String, String))
        For Each filePath In openFile.FileNames
            lstPathAndFile.Add(Tuple.Create(filePath, Path.GetFileName(filePath)))
        Next
        ListBox1.DisplayMember = "Item2"
        ListBox1.ValueMember = "Item1"
        ListBox1.DataSource = lstPathAndFile
        For Each t As Tuple(Of String, String) In ListBox1.Items
            Dim NewName = GetNewName(t.Item2)
            FileIO.FileSystem.RenameFile(t.Item1, NewName)
            ListBox2.Items.Add(NewName)
        Next
    End If
End Sub

Private Function GetNewName(OriginalFileName As String) As String
    Dim NewFileName As String = ""
    Select Case True
        Case OriginalFileName.Contains("001")
            NewFileName = OriginalFileName.Replace("001", "Ambrosia")
        Case OriginalFileName.Contains("002")
            NewFileName = OriginalFileName.Replace("002", "Melba")
        Case OriginalFileName.Contains("003")
            NewFileName = OriginalFileName.Replace("003", "Granny")
    End Select
    Return NewFileName
End Function