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