对于 ListBox1 中的每个项目执行一些操作，然后将项目添加到 listbox2 vb

我制作了一个应用程序来将某些数字转换为其他格式
i.e

• 1 = A
• 2 = B
• 3 = C
• 4 = D
• 5 = E
• ETC

我已经毫无问题地实现了该功能，并且已经使用它相当长一段时间了，但现在我想更快地批量完成操作。
所以对我来说，从文本文件复制到 Textbox1 然后按 button1 然后将 textbox2 复制到其他文本文件真的很困难。

因此，我正在考虑将文本文件加载到列表框中，然后将该列表中的每个项目循环到第二个列表中，我可以将其导出到另一个文本文件。

我已经涵盖了导入和导出，但我遇到的问题是进行循环。

这是我所拥有的，如果您知道更好的方法，请告诉我或告诉我如何以这种方式修复它。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Using FD As New OpenFileDialog()
        FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If FD.ShowDialog = Windows.Forms.DialogResult.OK Then
            ListBox1.Items.Clear()
            ListBox1.Items.AddRange(IO.File.ReadAllLines(FD.FileName))
        End If
    End Using
End Sub


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Do
    Dim Item As String = ""
    For Each i As String In ListBox1.Items
        Item &= i
        TextBox1.Text = Item
        TextBox2.Text = MYFUNCTION(TextBox1.Text)
        ListBox2.Items.Add(TextBox2.Text)
        TextBox1.Text = ""
        TextBox2.Text = ""
    Next
    Loop Until TextBox1.Text = "END"

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    'TextBox2.Text = MeidHexToDec(TextBox1.Text)

    Using FD As New SaveFileDialog()
        FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If FD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim FileContent As String = ""
            For Each i As String In ListBox2.Items
                FileContent &= i & vbCrLf
            Next
            IO.File.WriteAllText(FD.FileName, FileContent)
        End If
    End Using
End Sub

所以我的最终目标是做这样的事情：

文本文件1.txt

• 1
• 2
• 5
• 5
• 1
• 3
• 2
• END

然后转换后输出

文本文件2.txt

• A
• B
• E
• E
• A
• C
• B

文本文件大小会有所不同，有时只有 10 个项目，有时会是 50 个... 谢谢。

您不需要Do完全循环，您可以简化其余的循环逻辑，如下所示：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    For Each i As String In ListBox1.Items
        ListBox2.Items.Add(MYFUNCTION(i))
    Next
End Sub

您无需留意END标记，因为文件中的所有内容都被读入ListBox1.Items集合，因此一旦您循环遍历了中的所有字符串值ListBox1.Items，那么您就位于文件末尾。

The MYFUNCTION逻辑返回从数字到字母的转换，因此只需将该函数的结果添加到ListBox2.Items你就完成了。