jersahin
23 de Abril del 2004

como podria voltear una cadena de forma quede asi:

hola como estas
aloh omoc satse

FernandoC
23 de Abril del 2004

Me parece que te complicas mucho la vida, pero puedes hacer la siguiente función:

function Volteada(Cad)
NC=len(CAD)
Volteada=""
for I=NC to 1 step -1
Volteada=Volteada & mid(Cad,i,1)
next
end function

Para subdividir la cadena primitiva :

Pos=instr(CadComp," ")
while pos > 0
Cad=left(CadComp,pos-1)
CadComp=Mid(cadComp,pos+1)
Pos=instr(CadComp," ")
CadSal=CadSal & " " & Voltea(Cad)
wend
CadSal=CadSal & " " & Voltea(CadComp)

Espero que te oriente (mejor si te vale directamente)

luis angel b
23 de Abril del 2004

gracias por el codigo pero tengo un problema. nesecito un programa de encriptacion en vb urgentemente.
espero y me puedas ayudar

carlos
23 de Abril del 2004

cadena="Hola como estas"
numero=Len(cadena)
cadena=Mid(cadena, numero, 1)


Sino te funciona asi, hazlo con numero-1

carlos
23 de Abril del 2004

Oye que antes me rallao, esto esta hecho con un command y textbox, pruebalo.

Option Explicit

Dim cadena, cadena1 As String
Dim numero, I As Integer


Private Sub Command1_Click()
cadena1 = ""
cadena = Text1.Text
numero = Len(cadena)
Do While numero <> 0
cadena1 = cadena1 & Mid(cadena, numero, 1)
numero = numero - 1
Loop
Text1.Text = cadena1
End Sub