Comment répéter la liste (de chaîne) après l'index de liste randomize hors de portée

Question

Je suis un programmeur débutant pour VB.net

donc je suis coincé dans ce code, cela est pour le générateur de nom aléatoire.

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

Je continue à faire exception ArgumentOutOfRangeException après quelques terme, quelqu'un pourrait-il me aider? J'ai besoin du script pour lire la liste dès le début quand il atteindra la liste. Quelqu'un pourrait-il avoir une idée?

Toute aide serait appréciée.

Answer 1

Ce:

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

devrait être le suivant:

line = rnd.Next(lines.Count) 

La limite supérieure est exclusive lors de l'appel Random.Next et l'indice maximum dans une collection est 1 inférieure à la Count.

Answer 2

Essayez ceci:

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 

est ici une implémentation plus simple pour vous:

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