Manzana
10 de Mayo del 2003

Hola, quiero saber como hago para cambiar una cadena aleatoriamente???, por ejemplo: "hola" y que quede "lhao" 贸 "aloh" 贸 como sea, desde ya gracias
saludos

Observador
10 de Mayo del 2003

Bien... Mira, aqui esta un codigo de que hace eso que tu dices... para probarlo crea un nuevo proyecto, al formulario insertale un control CommandButton y un control TextBox... Copea el siguiente codigo y pegalo en la seccion (General) (Declaraciones) de el Form... ejecutalo...

Option Explicit

Private Sub Command1_Click()
Dim I As Integer
Dim Texto As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Posicion1 As Integer
Dim Posicion2 As Integer

Randomize 'Inicializa el generador de n煤meros aleatorios

Texto = Text1.Text 'Almecena el Texto la cadena a modificar

For I = 1 To Len(Texto)
Posicion1 = Int((Len(Texto) * Rnd) + 1)
Posicion2 = Int((Len(Texto) * Rnd) + 1)

Tmp1 = Mid(Texto, Posicion1, 1) 'Lee un caracter en una posicion aleatoria de la cadena
Tmp2 = Mid(Texto, Posicion2, 1) 'Lee otro caracter en una posicion aleatoria de la cadena

Mid(Texto, Posicion1, 1) = Tmp2 'Inserta el segundo caracter leido en donde estaba el primer caracter
Mid(Texto, Posicion2, 1) = Tmp1 'Inserta el primer caracter leido en donde estaba el segundo caracter
Next
Text1.Text = Texto 'Muestra el resultado en el control de cuadro de texto
End Sub

Private Sub Form_Load()
Command1.Caption = "Aleatorio"
End Sub

Pues ahi esta... eso todo tuyo...(Probado en VB5)... Cualquier duda sobre ese codigo hazmela saber...

Hasta pronto...

Manzana
10 de Mayo del 2003

Gracias, muy amable de tu parte amigo
Hasta pronto...

Observador
10 de Mayo del 2003

Ok... You know!