|
|
|
|
|
|
|
|
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
|
|
|
|
|
