小编GHo*_*iRo的帖子

我做了一个应用程序将某些数字转换为其他格式
即

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

我已经完成了这个功能没有问题,我已经使用了很长一段时间,但现在我想更快地批量做事.
因此,我很难从文本文件复制到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 …