random

[biocco]

come si fa a fare random string of e.g. 8 characters (example: 4FHG7YRG) ??? GRAZIE !!!

[willybit]

Ciao biocco,

non credo esista una funzione già pronta... puoi fartela... tipo così

Function CodiceCasuale(lunghezza)
  strCasuale = ""
  caratteri = Split("0,1,2,3,4,5,6,7,8,9,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=UBound(caratteri)
  for i=1 to lunghezza
    strCasuale = strCasuale & caratteri(Int((a + 1) *  Rnd))
  next
  CodiceCasuale = strCasuale
End Function