USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Remover todos os espaços de uma string
Postada em 3/2/2003 por Felipe            
Crie uma função:
Public Function TrimALL(ByVal TextIN As String) As String
    TrimALL = Trim(TextIN)
    While InStr(TrimALL, String(2, " ")) > 0
        TrimALL = Replace(TrimALL, String(2, " "), " ")
    Wend
End Function

E chame a função assim:
Private Sub Command1_Click()
    MsgBox TrimALL("Hello     !    !    ! This function     removes all    extra spaces      from     strings")
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página