Select With Random

[sina.lor.boy]

دوستان سلام . من یه textbox رو split کردم . اگه بخوام یک ایتم رو به صورت راندم بگیرم به ای صورت :

Dim Rna As New Random

Rna.Next(splitedtext.Length)

اما سوالم اینه که اگه بخوایم چنتا ایتم رو بگیریم چطور میشه ؟ مثلا به جای یه ایتم 5 ایتم به صورت راندوم انتخاب شه .

[aliagamon]

5 بار رندوم بزنید و چک کنید با قبلی ها برابر نباشه ...

[sina.lor.boy]

میخوام که اگه 10 تا ایتم داشته باشم اون 5 تا تکراری در نیاد . کد رو لطفا بدید

[aliagamon]

همچین چیزی میشه ...
البته اگه رو دات نت 2 کار میکنین اون تیکه که linq استفاده کردم رو با یه حلقه انجام بدین ..

        Dim rnd As Random = New Random()

        Dim rand(5) As Integer

        For i As Integer = 0 To 4

            rand(i) = -1

        Next

        Dim myrand As Integer

        For i As Integer = 0 To 4

            myrand = rnd.Next(10)

            If (rand.Where(Function(x) x = myrand).ToArray().Length > 0) Then

                i = i - 1

            Else

                rand(i) = myrand

            End If





            Next