SoloCodigo

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
  1.  
  2. Private Sub Voltear_Click
  3.     Dim frase As String, i As Integer
  4.     For i = Len(txtvoltear.text) To 1 Step -1
  5.         frase = frase & Mid(txtvoltear.text, i, 1)
  6.     Next i
  7.     txtvoltear.text=frase
  8. End Sub
  9.  
  10.  

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.

http://geocities.com/igmario/index2.html (http://geocities.com/igmario/index2.html)