Aug 22
Otra forma de general cadenas aleatorias; Con un buen ancho de la cadena podría servirte como llave principal de una tabla, puesto que la probabilidad que se repita es casi nula. En este ejemplo se crea un serial con un ancho de 45 caracteres.
?Serial(45)
Function Serial(nTamaño)
=Rand(-1)
cStr = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
cRetStr =
""
For i = 1 To
nTamaño
nNum = Int(36 * Rand() + 1)
cRetStr = cRetStr + Substr(cStr, nNum, 1)
Next
Return cRetStr
EndFunc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
