EMBARALHAR STRING

VB6MASTER 15/07/2005 14:49:46
#94359
Como embaralhar uma string e demonstrar na tela todas as possibilidades?
O Capela me indicou aqui no site o link de mesmo nome, soh que apresenta palavra por palavra, após um click.
Private Sub Command1_Click()
   Dim Palavra As String
   Dim Letra   As String * 1
   Dim NumAleatorio As Integer
   Dim Posicao() As Integer
   Dim i As Integer

   Palavra = Text1.Text
    'Embaralha palavra
   ReDim Posicao(Len(Palavra))
   Randomize   ' Inicialize o gerador de números randà'micos.
   For i = 1 To Len(Palavra)
      NumAleatorio = Int((Len(Palavra) * Rnd) + 1) ' Gera numero randà'mico entre 1 e LenPalavra).
      Letra = Mid(Palavra, i, 1)                   ' Salva letra da posicao i
      Mid(Palavra, i, 1) = Mid(Palavra, NumAleatorio, 1)
      Mid(Palavra, NumAleatorio, 1) = Letra
      Posicao(i) = NumAleatorio
   Next i
    Text2.Text = Text2.Text & Palavra & vbCrLf
End Sub

Elaborei a Função:
Private Function Palavras() As String
    For X = 1 To 6
        Anagrama(X) = Mid(Text1.Text, X, 1)
        Posicao(X) = X
        Palavras = Palavras & Anagrama(X) & Replace(Text1.Text, Anagrama(X), "") & vbCrLf
    Next
End Function

que me retorna apenas seis (6) hipóteses.
será que alguém poderia me ajudar nessa lógica?
JEAN.JEDSON 19/07/2005 08:03:36
#94840
vc quer ver todas as possibilidades... tente utilizar a lógica que utilizei em meu Gerador de Cartões para Loteria: ele combina todas as possibilidades entre "N" números, basta vc adequar para usar com palavras.
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar