コードを一定回数動作させるにはどうすればよいですか？

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 

それをもう一度繰り返さないようにするには、おそらく、randomWordsリストから使用された単語を削除する必要があります。

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

Answer 2

randomWordsに入るからaryNameでdupesを防ぐために、ループのために、あなたを変更します。

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）あなたが最初のリストランダム並べ替えをすることができます。 オプション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