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?
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
mira el problema que tnes es que estas usando mal el split el split divide una cadena en arrays pasandole un delimitados
ej:
a="hola-mundo"
b=split(a,"-")
msgbox b(0) 'muestra hola
msgbox b(1) 0muestra mundo
tu solucion seria:
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
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