VB.NET ComboBox所选项目的保留效果不超过2次

Question

我有一个 VB Windows 窗体应用程序，它有 02 ComboBox，为重命名文件事件提供新名称输入。第一个组合框提供新名称的前缀，包括项目（aa，bb，cc，...可以通过 keydown 按钮单击事件添加更多），另一个组合框提供主名称包括项目（XX，YY，ZZ，..也可以添加更多通过 keydown 按钮点击事件）。当我从第一个组合框中选择“aa”，从另一个组合框中选择“XX”然后触发重命名事件时，新文件名应该是“aa - XX”，如果文件“aa - XX”已经存在则添加“1”到最后一个为“aa - XX 1”等等，如果在前缀组合框中没有选择任何项目，则新名称只是“XX”并递增。我通过系统 openfiledialog 获取旧文件名。我的重命名代码如下：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim var As String, prfix As String
        var = ComboBox1.Text
        prfix = ComboBox2.Text
        If ComboBox2.Text = Nothing Then
            If File.Exists(n & "\" & var & extn) = False Then
                My.Computer.FileSystem.RenameFile(OpenFD.FileName, var & extn)
            Else
                Dim i As Integer = 1
                Dim newfn As String = var & " " & i & extn
                Dim m As String = n & "\" & newfn
                While File.Exists(m)
                    newfn = var & " " & i & extn
                    m = n & "\" & newfn
                    i += 1
                End While
                My.Computer.FileSystem.RenameFile(OpenFD.FileName, newfn)
            End If
        Else
            If File.Exists(n & "\" & prfix & " - " & var & extn) = False Then
                My.Computer.FileSystem.RenameFile(OpenFD.FileName, prfix & " - " & var & extn)
            Else
                Dim j As Integer = 1
                Dim newfn1 As String = prfix & " - " & var & " " & j & extn
                Dim k As String = n & "\" & newfn1
                While File.Exists(k)
                    newfn1 = var & " " & j & extn
                    k = n & "\" & newfn1
                    j += 1
                End While
                My.Computer.FileSystem.RenameFile(OpenFD.FileName, newfn1)
            End If
        End If
        MessageBox.Show("Select a next file")
    End Sub

我的代码运行良好2次。当我选择“aa”和“XX”并保留其重命名后，第一个结果是“aa - XX”，第二个结果是“aa - XX 1”，但第三个结果是“XX”，第四个结果是“XX 1” ”，然后递增，依此类推，而结果应该是“aa - XX 2”并进行下一个递增。我不明白为什么组合框1仍然有效，但组合框2在没有重新选择两个组合框中的项目（2次）后什么也没有。我对 VB 很陌生，所以任何建议都值得感激。谢谢。

Answer 1

在较低的 Else 块中，您错误地构建了文件名。

您使用以下命令构建第一个“newfn1”：

Dim newfn1 As String = prfix & " - " & var & " " & j & extn

但在下面，您使用了：

newfn1 = var & " " & j & extn

注意开头缺少的前缀和破折号部分。

这是完整的更正版本：

Dim j As Integer = 1
Dim newfn1 As String = prfix & " - " & var & " " & j & extn
Dim k As String = Path.Combine(n, newfn1)
While File.Exists(k)
    j = j + 1
    newfn1 = prfix & " - " & var & " " & j & extn
    k = Path.Combine(n, newfn1)
End While
My.Computer.FileSystem.RenameFile(OpenFD.FileName, newfn1)

Answer 2

我对你的解释有点困惑，但如果我理解正确的话，这应该会有所帮助，

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    CreateFile()
End Sub

Private BasePath As String = "" 'TODO
Private Ext As String = "txt"
Private Sub CreateFile()
    If ComboBox1.SelectedIndex < 0 OrElse
            ComboBox2.SelectedIndex < 0 OrElse
            ComboBox1.SelectedItem.ToString = "" OrElse
            ComboBox2.SelectedItem.ToString = "" Then
        'error message
        Exit Sub
    End If
    Dim fileName As String = String.Format("{0}-{1}.{2}",
                                            ComboBox1.SelectedItem.ToString,
                                            ComboBox2.SelectedItem.ToString,
                                            Ext)

    fileName = IO.Path.Combine(BasePath, fileName)
    Dim ct As Integer = 1
    Do While IO.File.Exists(fileName)
        fileName = String.Format("{0}-{1}{3}.{2}",
                                  ComboBox1.SelectedItem.ToString,
                                  ComboBox2.SelectedItem.ToString,
                                  Ext,
                                  ct)
        fileName = IO.Path.Combine(BasePath, fileName)
        ct += 1
    Loop
    Dim fs As IO.FileStream = IO.File.Create(fileName)
    fs.Close()
    fs.Dispose()
End Sub