Imprimir Página - Lio con Arrays

Título: Lio con Arrays
Publicado por: X-TN en 27 Junio 2006, 00:56 am

Muy buenas

Esto es un código que tengo, y lo que supuestamente hace es coger una cadena "cifrada" de un textbox y "desencriptarlo" y mandarlo a otro textbox. La cosa es que cada letra o numero, esta alli "cifrada" en tres numeros. Por eso use el split, pero no estoy convencido de haberlo usado correctamente. Aunque luego me tira error en la parte del array. Alguien podría tirarme un cable? o orientarme un poco?

Código:

Private Sub Command2_Click()
Dim Tamaño As String
Dim Carac As String
Dim Cadena As String
Dim tArray() As String
Dim Traduc As String
Dim Decrip As String
Dim valor As Byte
Tamaño = Len(Text5.Text)
Carac = Tamaño \ 3
Cadena = Text5.Text
tArray = Split(Cadena, Carac)
valor = 101
Text3.Text = Carac
    For i = 1 To Carac
        Traduc = tArray(i) - valor
        Decrip = Chr(Traduc)
        txto = Text2.Text
        Text2.Text = txto & Decrip
    Next i
End Sub

tambien probe con el LBound y UBound pero alli me enrolle más todavía

Gracias :D

Salu2

Título: Re: Lio con Arrays
Publicado por: Cicklow en 28 Junio 2006, 09:57 am

mira el problema que tnes es que estas usando mal el split el split divide una cadena en arrays pasandole un delimitados
ej:

Código:

a="hola-mundo"
b=split(a,"-")
msgbox b(0) 'muestra hola
msgbox b(1) 0muestra mundo

tu solucion seria:

Código:

valor = 101
txto=""
for i=1 to len(text5)
 Traduc = mid(text5,i,3) - valor
 Decrip = Chr(Traduc)
 txto = txto & Decrip
next
text2=txto

espero que te sirva y suerte!!!

saludos

Título: Re: Lio con Arrays
Publicado por: X-TN en 28 Junio 2006, 20:03 pm

Hola!

Muchas gracias

Alfinal tambien habia dado con el Mid, es que antes no me funcionaba porque algunas cosas no tenian 3 carcteres, pero al sumarle los 100 si. Y es que tarde en darme cuenta xDDDDDD

Gracias

Salu2

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: X-TN en 27 Junio 2006, 00:56 am