Ce code source est très simple. Il permet de créer une chaine aléatoire (pratique pour une demande de confirmation par mail pour des votes ou autres...)
Je sais bien qu'il est possible par d'autres moyens d'arriver à la même chose => variables de sessions), mais avec ce code, on peut choisir son dictionnaire et surtout la taille de la chaine à générer.
Source / Exemple :
function CreateAleatoire(StrTaille)
'--------------------------------------------------'
'Création d'une chaine de caractères aléatoire '
' ----------------------------- '
' strTaille : Longueur de la chaine de sortie'
'--------------------------------------------------'
Dim l, s, i, Dictionnaire
if StrTaille = 0 then exit function
Dictionnaire = "abcdefghijklmnopqrstuvwxyz1234567890"
l = len(Dictionnaire)
for i = 0 to StrTaille -1
randomize
s = s & mid(Dictionnaire, int(rnd * l)+1, 1)
next
CreateAleatoire = s
end function
Conclusion :
le parametre strTaille permet de définir la longueur de la chaine qui sera renvoyée.
Amusez vous bien ;)
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.