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:  Retirar mais de um Espaço
Postada em 5/11/2003 por [_Chuck_]            
Use esta função para retirar mais de um Espaço de uma string..

Function RetiraEspacos(Str As String) As String
Dim S As String
S = Str
While InStr(S, "  ") > 0
   S = Replace(S, "  ", " ")
Wend
RetiraEspacos = S
End Function

RetiraEspacos ("Este é   um      texte   simples") = "Este é um texte simples"
Legau né?? Cortesia do Caco
 


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