Chaîne aléatoire / random string

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 081 fois - Téléchargée 18 fois

Contenu du snippet

Voila une petite fonction pour avoir une chaîne de caractère aléatoire composer de lettres(maj , min) et de nombres , vous pouvez bien sur ajouter des caractères si bien simple .

Source / Exemple :


Public Function rAndom(Strlong As Integer) As String
'Usage : rAndom(15) => 64cR7nrR8r8uxGf
Randomize
Dim tbl() As String 'le tableau des caracteres
Dim strx As String 'la chaine qu'on va créer
tbl = Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,K,R,S,T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9", ",") 'Vous pouvez ajouter/suppr des caracteres .
For I = 1 To Strlong
strx = strx & tbl(Int((UBound(tbl) + 1) * Rnd))
Next I
rAndom = strx
End Function

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
lundi 1 février 2010
Statut
Membre
Dernière intervention
31 mai 2010

+1 Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
variables non déclarées ; et code non optimisé...

un peu remodelé :

Public Function RandomString(ByVal vnDesiredLength As Long, Optional ByRef vsChars As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPKRSTUVWXYZ0123456789") As String
Dim nCharCount As Long
Dim i As Long
nCharCount = Len(vsChars)
If vnDesiredLength > 0 And nCharCount > 1 Then
Randomize
RandomString = Space$(vnDesiredLength)
For i = 1 To vnDesiredLength
Mid$(RandomString, i, 1) = Mid$(vsChars, Rnd * nCharCount + 1, 1)
Next
End If
End Function

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.