Com esta função é possível fazer a geração de textos e números randômicos. Basta passar por parâmetro o número de caracteres que serão gerados.
Dica: Esta função pode ser utilizada para a geração de senhas automáticas, códigos para validação entre outras utilidades.
'----------------------------------------------------- 'Funcao: GerarTextoRandomico(ByVal TamanhoChave) 'Sinopse: Gerador de textos randômicos 'Parâmetros: ' TamanhoChave: Optional (se vazio tamanho = 40) 'Retorno: String '----------------------------------------------------- Public Function GerarTextoRandomico(ByVal TamanhoChave) Dim Chave Dim Num Dim arrValores(35) arrValores(0) = "0" arrValores(1) = "1" arrValores(2) = "2" arrValores(3) = "3" arrValores(4) = "4" arrValores(5) = "5" arrValores(6) = "6" arrValores(7) = "7" arrValores(8) = "8" arrValores(9) = "9" arrValores(10) = "A" arrValores(11) = "B" arrValores(12) = "C" arrValores(13) = "D" arrValores(14) = "E" arrValores(15) = "F" arrValores(16) = "G" arrValores(17) = "H" arrValores(18) = "I" arrValores(19) = "J" arrValores(20) = "K" arrValores(21) = "L" arrValores(22) = "M" arrValores(23) = "N" arrValores(24) = "O" arrValores(25) = "P" arrValores(26) = "Q" arrValores(27) = "R" arrValores(28) = "S" arrValores(29) = "T" arrValores(30) = "U" arrValores(31) = "V" arrValores(32) = "W" arrValores(33) = "X" arrValores(34) = "Y" arrValores(35) = "Z" 'Randomize em todo Array Randomize If TamanhoChave = "" Then TamanhoChave = 40 End If Do While Len(Chave) < TamanhoChave Num = arrValores(Int(35 * Rnd )) Chave = Chave + Num Loop 'Retornando a função GerarTextoRandomico = Chave End Function
