Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
18 mai 2010 à 11:10
novocaine67
Messages postés2Date d'inscriptionlundi 1 février 2010StatutMembreDernière intervention31 mai 2010
-
1 juin 2010 à 10:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
novocaine67
Messages postés2Date d'inscriptionlundi 1 février 2010StatutMembreDernière intervention31 mai 2010 1 juin 2010 à 10:22
+1 Renfield
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 mai 2010 à 11:10
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
1 juin 2010 à 10:22
18 mai 2010 à 11:10
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