Как изменить мой код на работу определенное количество раз?

Question

Мой код получает список слов из txt-файла и выбирает слова случайным образом. Однако одно и то же слово может появляться более одного раза, и мне нужно знать, как остановить это?

Вот код:

Dim aryName As String() = Nothing 
aryName = File.ReadAllLines(Application.StartupPath & "\Random\fnames.txt") 

Dim randomWords As New List(Of String) 
For i = 0 To aryName.Length - 1 
If randomWords.Contains(aryName(i)) = False Then 
    randomWords.Add(aryName(i)) 
End If 
Next 

Dim random As New Random 
Label2.Text = (randomWords(random.Next(0, randomWords.Count - 1)).ToString) 

Может быть, это могло бы работать, хотя это на английском языке, а не код :(

if label1.text is changed then 
    Get label1.text 
    if label.text becomes this word again then 
    run the random code 
    end if 
end if 

Answer 1

Это должно предотвратить непосредственные повторы:

Dim random As New Random 

'Just create a temporary holder for comparison 
Dim word As String = Label2.Text 

'Run a while loop that works as long as there 
'is no change to the word. This should prevent 
'back to back repeats. 
While word = Label2.Text 
    word = (randomWords(random.Next(0, randomWords.Count - 1)).ToString) 
End While 

Label2.Text = word 

Если вы не хотите, чтобы он повторялся снова, вы должны, вероятно, удалить использованное слово из списка случайных слов.

Dim random As New Random 
Label2.Text = (randomWords(random.Next(0, randomWords.Count - 1)).ToString) 
randomWords.Remove(Label2.Text) 

Answer 2

Изменить ваш цикл, чтобы предотвратить простофили в aryName от попадания в randomWords:

For i = 0 To aryName.Length - 1 
    If randomWords.Contains(aryName(i)) = False Then 
     randomWords.Add(aryName(i)) 
    End If 
Next 

Answer 3

Вы можете а) удалить выбранное слово из списка, или б) вы можете случайным образом сортировать список первым , Опция a) уже обращена в другом ответе Вариант b) позволяет сохранить все слова в памяти. Вот код:

Dim randomWords As New List(Of String)(File.ReadAllLines(Application.StartupPath & "\Random\fnames.txt")) 

    Dim random As New Random 

    randomWords.Sort(Function(s1 As String, s2 As String) random.Next(-1, 1)) 

    For index As Integer = 0 To randomWords.Count - 1 
     Label2.Text = randomWords(index) 
    Next