Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: cucaracha en Miércoles 10 de Marzo de 2004, 16:07
Título: Porfavor, Ayuda Para Voltear Una Cadena
Publicado por: cucaracha en Miércoles 10 de Marzo de 2004, 16:07
quiero voltear una cadena, que se lea al revez; tengo este codigo, pero no me sale, se aceptan sugerencias y metodos para hacerlo. sub voltear_click() dim frase as string dim loncadena as integer, i as integer frase=txtvoltear.text ' texto a voltear loncadena=len(frase) for i =1 to int(loncadena/2) mid(frase,loncadena + 1 -i,1)=mid(frase,i,1)
mid(frase,i,1)=mid(frase,loncadena + 1 -i,1) next txtvoltear.text=frase end sub
gracias
Título: Re: Porfavor, Ayuda Para Voltear Una Cadena
Publicado por: Brroz en Miércoles 10 de Marzo de 2004, 16:21
Hola cucaracha.
El código que deberías utilizar sería algo asÍ:
Código: Text
Private Sub Voltear_Click
Dim frase As String, i As Integer
For i = Len(txtvoltear.text) To 1 Step -1
frase = frase & Mid(txtvoltear.text, i, 1)
Next i
txtvoltear.text=frase
End Sub
Abur.
Título: Re: Porfavor, Ayuda Para Voltear Una Cadena
Publicado por: cucaracha en Miércoles 10 de Marzo de 2004, 17:18
gracias por la respuesta Brroz, al rato la voy a probar
Título: Re: Porfavor, Ayuda Para Voltear Una Cadena
Publicado por: cpmario en Jueves 11 de Marzo de 2004, 05:39
Más fácil es usar la funcion StrReverse("")
Text2.text = StrReverse(Text1.text ) :)
--------------------- "Corrector Ortográfico de Notas", útil para revisar los textos en los programas. Escrito en Visual Basic, con diccionario propio.