Sobre string
Como puedo quitar todos los espacios de un string por ejemplo la cadena " Hola Mundo " se me quede en "Hola Mundo"
Un saludo cALvET
Un saludo cALvET
1 Respuesta
Respuesta de leosoft
1
Lo que tienes que hacer es verificar carácter por carácter, si es un espacio en blanco satas de lo contrario acumulas los caracteres, te paso una idea de como hacerlo:
Supongamos que tienes dos textbox:
Text2.Text = ""
For a = 1 To Len(Text1.Text)
If Not Mid(Text1.Text, a, 1) = " " Then
Text2.Text = Text2.Text & Mid(Text1.Text, a, 1)
End If
Next
Así lo que escribes en el text1, luego de ejecutar el código te aparecerá en el text2 sin los espacios en blanco.
Supongamos que tienes dos textbox:
Text2.Text = ""
For a = 1 To Len(Text1.Text)
If Not Mid(Text1.Text, a, 1) = " " Then
Text2.Text = Text2.Text & Mid(Text1.Text, a, 1)
End If
Next
Así lo que escribes en el text1, luego de ejecutar el código te aparecerá en el text2 sin los espacios en blanco.
