SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FEckEZ en Martes 21 de Enero de 2003, 17:05

Título: Re: filtrar espacios.....
Publicado por: FEckEZ en Martes 21 de Enero de 2003, 17:05

bueno, como puedo filtrar el numero de espacios que hay en una cadena de texto... por ejemplo.. tengo la siguiente cadena:
"falta____de__imaginacion______en   este___momento"

que me devuelta: "falta de imaginacion en este momento"



parece que el foro filtra los espacios (jeje, justo lo que yo quiero hacer).. para que el ejemplo se entieda voy a colocar los espacios con _

Título: Re: filtrar espacios.....
Publicado por: javierbalk en Martes 21 de Enero de 2003, 18:58

Hola:

    Dim s As String
    Dim a
    Dim s2 As String
    Dim c As Long
   
    s = "falta     de  imaginacion      en este          momento"
    a = Split(s, " ")
   
    For c = 0 To UBound(a)
        If a(c) <> "" Then
            s2 = s2 & " " & a(c)
        End If
    Next
    MsgBox s2


Saludos,
Javier

Título: filtrar espacios.....
Publicado por: FEckEZ en Martes 21 de Enero de 2003, 20:39

gracias, me ha funcionado perfectamente el codigo...