大きなリストにはどのようなループを使用するのが最適ですか？

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

このループが必要です。 forループ

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

Answer 2

の必要はありません：

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