Question

出于某种原因，我从来没有对循环有任何好处，但是没有它们就无法生存。以下是我用来读取XXXX：XXXX格式的用户详细信息列表的代码。（完全不是4个字符，但你知道）我可以加载第一个用户并且能够拆分字符串并从冒号添加回listbox1，但是只是无法获得循环工作并且无法离开直到完成。通常情况下，工作休息可以解决战争，但现在不能解决问题。

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    Dim R As New IO.StreamReader(OpenFileDialog1.FileName)
    Dim str As String() = R.ReadLine().Split(":")
    Dim Info As String = str(1)

    ListBox1.Items.Add(Info)



    ListBox1.SelectedIndex = 0
    TextBox5.Text = ListBox1.SelectedItem
    R.Close()

End Sub

我知道它在我面前。我只是尝试了下一个循环，我认为肯定会工作和没有。请帮忙。有人

Answer 1

无需循环：

Dim lines = IO.File.ReadAllLines(OpenFileDialog1.FileName)
Dim items = Array.ConvertAll(lines, Function(line) line.Split(":"c)(1))
ListBox1.Items.AddRange(items)

Answer 2

你需要这个循环。

Using sr As New StreamReader(OpenFileDialog1.FileName)
  While Not sr.EndOfStream
    ListBox1.Items.Add(sr.ReadLine().Split(":")(1))
  End While
End Using

用于大清单的最佳循环是什么？

2 个答案: