Visual Basic - INVERTIR CADENA

Life is soft - evento anual de software empresarial
 
Vista:

INVERTIR CADENA

Publicado por Iván (4 intervenciones) el 28/05/2002 11:29:03
Hola,
Haber si alguien me puede ayudar en lo siguiente: "Resulta que tengo que invertir una cadena de texto de la forma en que se obtenga el siguiente resultado:
ESTO ES UN EJEMPLO
OTSE SE NU OLPMEJE
estoy haciendo un bucle para ir buscando los espacios en blanco y luego utilizo la funcion strreverse() para dar la vuelta a las palabras, pero no me lo hace bien. Alguien me puede ayudar...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:INVERTIR CADENA

Publicado por POLA (522 intervenciones) el 28/05/2002 12:24:25
TE ENVÍO A TU CORREO UNA FUNCIÓN QUE ESPERO TE SIRVA. SI TIENES ALGUNA DUDA POR FAVOR DIMELO.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:INVERTIR CADENA

Publicado por Gerdikus (4 intervenciones) el 28/05/2002 19:31:08
Podrías probar recursividad distinguiendo las palabras con los espacios en blanco.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

UNA SOLUCION

Publicado por jose carlos (243 intervenciones) el 29/05/2002 01:04:04
ES FACIL

CADENA=""
FOR X=LEN(TEXT1) TO 1 STEP -1
CADENA=CADENA+MID(TEXT1,X,1)
NEXT
EN LA VARIABLE CADENA TIENES LO QUE QUIERES
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Te lo he mandado por mail

Publicado por XcUiDi (30 intervenciones) el 29/05/2002 08:14:57
Bien, pos te lo he mandado por mail, un programita que hace lo que dices :D

Atte : -=)XcUiDi(=-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Te lo he mandado por mail

Publicado por alejandro (1 intervención) el 19/02/2020 13:33:54
me lo podrias enviar porfavor nesesito lo mismo =)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Te lo he mandado por mail

Publicado por Andres Leonardo (1798 intervenciones) el 19/02/2020 19:11:31
Espero te ayude
crea un proyecto agrega un text y un boton, y pega este codigo

escribe en el texto Esto es un Ejemplo y listo

Pd, no me gusta hacer tareas .. pero sera interesante cuando el profesor pida que justifiques el codigo o que te pida un cambio y no sepas que hacer

Recomiendo leas que hace cada linea


1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
    MsgBox reversaXPalabra(Text1.Text & " ")
End Sub
 
Public Function reversaXPalabra(x As String) As String
    reversaXPalabra = ""
    Y = 1
        For i = 1 To Len(x)
            If Mid(x, i, 1) = " " Then
              reversaXPalabra = reversaXPalabra & StrReverse(Mid(x, Y, i - Y + 1))
            Y = i
            End If
        Next i
End Function
reversaPalabras
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar