Eliminar espacios
Necesito un favor sabes de alguna función que me permita eliminar el espacio intermedio de dos palabra. Ejemplo: "hola mundo" debe quedar así "holamundo".
3 Respuestas
Respuesta de diegodiazr
Existe una función en visual basic que elimina los espacios en blanco contenidos en una cadena, Trim$
Ejemplo:
cadena = "Hola mundo"
cadena_resul = trim$(cadena)
Cadena_resul tendrá como resultado el valor "Holamundo"
Ejemplo:
cadena = "Hola mundo"
cadena_resul = trim$(cadena)
Cadena_resul tendrá como resultado el valor "Holamundo"
Respuesta de Roberto Alvarado
1
Genial gracias. Eres un tigre en esto. Tus ayudas han sido muy valiosas. Gracias en verdad amigo no sabes como te lo agradezco y a propósito yo también soy colombiano de cali
Respuesta de xabi
1
Prueba con esto:
Public Function CambiarXporY(X As String, Y As String, Cadena As String)
Dim i As Integer
Dim s As String
Dim Aux As String
s = ""
For i = 1 To Len(Cadena)
Aux = Mid(Cadena, i, Len(X))
If Aux = X Then
s = s & Y
Else
s = s & Left(Aux, 1)
End If
Next i
CambiarXporY = s
End Function
Lo usarias asi:
s="hola mundo"
s=cambiarxpory(" ","",s)
Public Function CambiarXporY(X As String, Y As String, Cadena As String)
Dim i As Integer
Dim s As String
Dim Aux As String
s = ""
For i = 1 To Len(Cadena)
Aux = Mid(Cadena, i, Len(X))
If Aux = X Then
s = s & Y
Else
s = s & Left(Aux, 1)
End If
Next i
CambiarXporY = s
End Function
Lo usarias asi:
s="hola mundo"
s=cambiarxpory(" ","",s)