COMO SEPARAR LETRAS ALEATORIAS COM UM - HIFEN

NICKREDMR 29/10/2012 11:50:56
#413052
Galera criei um gerador de senhas aleatórias e gostaria de saber como faço para que possa dividir de 4 em 4 letras com um hifen [ô][ô] - [ô][ô]

EXEMPLO :

SADS-ADSS-GTRY-TEER-XXXD

O meu gerador gera smt as letras estou usando este codigo aqui

Citação:


Dim alfabeto As String = [Ô][Ô]
For i = 65 To 90
alfabeto += Chr(i)
Next

Dim numero As New Random
Dim letra As String = [Ô][Ô]
For i = 0 To 19
letra += alfabeto(numero.Next(0, 24).ToString())
Next

TextBox1.Text = letra



Alguem edita ele pra mim ja com o hifen vlw
ALTAIR148 29/10/2012 11:55:31
#413053 Resposta escolhida
Neste TÓPICO eu expliquei como fazer isso.
NICKREDMR 29/10/2012 12:33:38
#413057
Man eu tentei mais nao entendi sera q teria como me fazer o favor , por esses código no meu se nao for abusa de vocÊ
ALTAIR148 29/10/2012 12:51:26
#413058
Poste o código de como você tentou.
NICKREDMR 29/10/2012 12:58:07
#413059
Dim alfabeto As String = [Ô][Ô]
For i = 65 To 90
alfabeto += Chr(i)
Next

Dim numero As New Random
Dim letra As String = [Ô][Ô]
For i = 0 To 19
letra += alfabeto(numero.Next(0, 24).ToString())
Next

TextBox1.Text = letra
ALTAIR148 29/10/2012 13:04:13
#413060
Amigo, peço desculpas, pensei que queria remover o hífen e não colocar. para colocar faça assim:

 Dim alfabeto As String = [Ô][Ô]
        For i = 65 To 90
            alfabeto += Chr(i)
        Next

        Dim numero As New Random
        Dim letra As String = [Ô][Ô]
        For i = 0 To 19
            letra += alfabeto(numero.Next(0, 24).ToString())
        Next
        Dim Contador As Integer = 4
        For x = 0 To letra.Length - 1
            If x = Contador Then
                letra = letra.Insert(Contador, [Ô]-[Ô])
                Contador += 5
            End If
        Next
        TextBox1.Text = letra
NICKREDMR 29/10/2012 14:06:42
#413070
Deus Lhe pague amigos
Tópico encerrado , respostas não são mais permitidas
Voltar