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:  Corrigir brancos entre palavras em uma string
Postada em 28/2/2001 por Wagner      Clique aqui para enviar email para o autor  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
 


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