Récupérer aléatoirement une valeur unique d'un tableau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 822 fois - Téléchargée 8 fois


Contenu du snippet

Private _rand As New System.Random
Public Function GetSingleValue(ByVal list As List(Of String), ByRef value As String) As Boolean
    Dim result As Boolean = False
    value = String.Empty
    If (list.Count > 0) Then
        Dim lastIdx As Integer = list.Count - 1
        Dim idx = _rand.Next(0, lastIdx)
        Value = list(idx) 'retourne une valeur aléatoire
        list(idx) = list(lastIdx) 'remplace par le dernier élément
        list.RemoveAt (lastIdx) 'efface le dernier élément
        result = True
    End If
    Return result
End FunctionBy Renfield

Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.