Eliminar espacios

Hola amigo necesito un favor sabes de alguna función que me permita eliminar el espacio intermedio de una palabra. Ejemplo: hola mundo debe quedar así holamundo.
Antes todo muchas gracias.

1 Respuesta

Respuesta
1
Eso es sencillo, no hace falta llamara a ninguna función, fíjate coso es:
Texto1 = " Hola Mundo "
Texto2 = ""
For a = 1 To Len(Texto1)
If Not Mid(Text1, a, 1) = " " Then Texto2 = Text2 & Mid(Text1, a, 1)
Next
Así de fácil, corriendo esto en Texto2 te quedara "HolaMundo".

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas