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


Commenter

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

S'inscrire maintenant

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.

Du même auteur (PCPT)