GERADOR SEQUENCIAL COM NUMEROS E LETRAS

ALDAIR 02/07/2012 10:32:00
#405309
Olá, Senhores

Gostaria de um programa para realizar a seguinte questão, gerar sequencialmente contendo
números e letras ou até mesmos caracteres especiais e com limitador de digitos, ou seja :

Com o que preencher: abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUWXYZ
1234567890
/*-+.,!@#$%¨&*()_-?:^}{''[]~/;

Tamanho especificado 5 digitos

abcde
abcdf
....
..
..
abcd1
abcd2

podendo salvar em um .txt
ALEVALE 02/07/2012 12:49:36
#405316
Fonte:
http://www.dreamincode.net/forums/topic/80537-generate-random-alpha-numeric-string-18-characters-long/

Public Function GenerateRandomString(ByRef len As Integer, ByRef upper As Boolean) As String
Dim rand As New Random()
Dim allowableChars() As Char = [Ô]abcdefghighlmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789[Ô].ToCharArray()
Dim final As String = String.Empty

For i As Integer = 0 To 18 - 1
final += allowableChars(rand.Next(allowableChars.Length - 1))

Next
Return IIf(upper, final.ToUpper(), final)
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GenerateRandomString = TextBox1.Text

End Sub
PEGUDO 02/07/2012 12:51:37
#405317
Veja se te serve:
        Dim Ram As Random = New Random
        Dim aleatorio As UInt16 = 0
        Dim Codigo As String = [Ô][Ô]

        For A = 1 To 5
            aleatorio = Ram.Next(33, 126)
            Codigo += Chr(aleatorio)
        Next

        MsgBox(Codigo)
ALDAIR 02/07/2012 14:56:26
#405331
Testei e nenhum funcionou...

Obs.

Eu quero gerar uma lista seguêncial dos números e salvar em um arquivo .txt.

E no programa eu quero poder selecionar a quantidade de digitos e quais letras ou caracteres eu posso usar para
fazer esse gerador.

Me ajuda ai meu....
To me matando aqui...
KERPLUNK 02/07/2012 15:14:13
#405336
Você deve atribuir valores numéricos à cada dígito, pode usar a posição:
abcd... = 1234...
Assim até o final. Então faça uma função para transformar em valores novamente...
ALDAIR 02/07/2012 15:25:19
#405339
Sim, mas eu sou novato será que pode me dar um exemplo.
PEGUDO 02/07/2012 15:43:05
#405342
Pega este exemplo aí.
ALDAIR 02/07/2012 16:02:02
#405348
Blz, Gera um número sequencial mas onde eu determino quais caracteres usar.
Vou dar uma trabalhada com esse exemplo, mas se alguem tiver alguma solução diferente favor
enviar.
ALDAIR 03/07/2012 08:19:39
#405395
Vou tentar ser mais claro no meu objetivo.

Tenho que criar um dicionário para linux ( se alguem já tiver melhor ainda)

já vi vários exemplos de como fazer, mas nenhum em VB 08 como esse abaixo em DELPHI

Adicione o numero tbm ao Edit1.Text := [ô][ô];

var
i: integer;
const
str = [ô]ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890[ô];{Code a ser gerado}
max = 16;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}
begin
Edit1.Text := [ô]4234532[ô];
for i := 1 to max do
Edit1.Text := Edit1.Text + str[random(length(str))+1];
end;

end.

Tem certinho o que eu quero só faltando a parte de salvar o que foi gerado em um arquivo.txt

No aguardo... ME AJUDAI MEU...
ALDAIR 03/07/2012 08:38:13
#405398
Achei outro exemplo bem bacana, quem puder dar uma olhada e verificar como
inserir letras e dar o resultado na seguencia.
PEGUDO 03/07/2012 08:40:02
#405399
Cara,
O quê o exemplo que te passei não está fazendo?
Veja a explicação abaixo:



Veja que coloquei vários caracteres, separados por vírgula, para gerar o código;
Depois defini o número 7 para que meu código tenha 7 caracteres, mas posso colocar quantos caracteres eu quiser;
Aí ele gerou o código: dyylo7n com 7 caracteres e com as letras e os números que eu defini na caixa de textos.
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar