|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Corrigir brancos entre palavras em uma string
|
 |
|
|
|
Postada em 28/2/2001 por Wagner
wagner.moura@uol.com.br
Public Function AjustaNome(ByVal Nome As String) As String
Dim s As String, u As String, p As String
s = "": u = " "
While Nome <> ""
p = Left(Nome, 1)
If p = " " And u = " " Then GoTo seg
s = s & p: u = p
seg:
Nome = Mid(Nome, 2)
Wend
AjustaNome = trim(s)
'Trocar para AjustaNome=trim(format(s,">")) se quiser tudo maisculo
End Function
|
|
|
|
|
