どの範囲

Question

のうち、ランダマイズリストインデックスの後に（文字列の）リストを繰り返すために、私はので、私はこのコードで立ち往生してきた、これはランダムな名前ジェネレータのあるVB.net

のための初心者プログラマです。

Private Function RandomLname(ByRef ranLname As String) As String 
 

 
     Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader("[pathto file.txt]", Encoding.Default) 
 
     Dim lines As New List(Of String) 
 
     Dim rnd As New Random() 
 
     Dim line As Integer 
 
     While reader.Peek <> -1 
 
      lines.Add(reader.ReadLine()) 
 
     End While 
 

 
     line = rnd.Next(lines.Count + 1) 
 
     'the error shown in this line 
 
     ranLname = lines(line) 
 
     Return ranLname 
 
     reader.Close() 
 
     reader.Dispose() 
 

 
    End Function

私はいくつかの実行後に例外ArgumentOutOfRangeException例外を得続ける、誰も私を助けることができますか？ 私はlist.countに到達したときにリストを最初から読み直す必要があります。

ご協力いただければ幸いです。

Answer 1

この：

line = rnd.Next(lines.Count + 1) 

はこのようになります。Random.Nextを呼び出して、コレクション内の最大インデックスがCountより1少ないとき

line = rnd.Next(lines.Count) 

上限は排他的です。

Answer 2

はこれを試してみてください：

Private Function RandomLname() As String 

    Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader("[pathto file.txt]", Encoding.Default) 
    Dim lines As New List(Of String) 
    Dim rnd As New Random() 
    Dim line As Integer 
    While reader.Peek <> -1 
     lines.Add(reader.ReadLine()) 
    End While 

    line = rnd.Next(lines.Count) 
    Return lines(line) 
    reader.Close() 
    reader.Dispose() 

End Function 

ここにあなたのためのシンプルな実装です：

Private rnd As New Random() 
Private Function RandomLname() As String 
    Return File.ReadAllLines("[pathto file.txt]").OrderBy(Function(x) rnd.Next()).FirstOrDefault() 
End Function