Una funcioncita bastante simple que devuelve caracteres aleatorios de una cadena.

'cadena de la que tomamos los caracteres
Private Const c_caracteres = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890abcdefghijklmnñopqrstuvwxyz"

'parámetros opcionales'cuantos caracteres necesitas y la ubicación de la cadena de donde sacarlos
Private Function dame_text_rnd(optional cuantos As Integer=1, optional cadena as string=c_caracteres) As String
Dim i As Integer
Dim longitud as integer
longitud=Len(cadena)
Randomize   For i = 1 To cuantos
dame_text_rnd = dame_text_rnd && Mid(cadena, Int((longitud * Rnd) + 1), 1)
Next i
End Function

Share

Entradas relacionadas