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:  Primeiras Letras das Palavras de uma String em Maiusculo
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Esta função converte o texto para Maiusculo/Minusculo, deixando as primeiras letras das palavras em maiusculo, respeitando as exceções da lingua portuguesa como: de, da, do, das, dos, a, e.

Public Function MMCase(Texto As String) As String
  Dim sPalavra As String, iPosIni As Integer
  Dim iPosFim As Integer, sResultado As String
  iPosIni  = 1
  Texto = LCase(Texto) & " "

  Do Until InStr(iPosIni, Texto, " ") = 0
    iPosFim = InStr(iPosIni, Texto, " ")
    sPalavra = Mid(Texto, iPosIni, iPosFim - iPosIni)
    iPosIni = iPosFim + 1
    If sPalavra <> "de" And sPalavra <> "da" And _
          sPalavra <> "do" And sPalavra <> "das" _
          And sPalavra <> "dos" And sPalavra <> _
          "a" And sPalavra <> "e" Then
      sPalavra = UCase(Left(sPalavra, 1)) & _
                 LCase(Mid(sPalavra, 2))
    End If
    sResultado = sResultado & " " & sPalavra
  Loop
  MMCase = Trim(sResultado)
End Function

'P/ usar:
Dim sResult As String
sResult = MMCase("JOSÉ CARLOS DA SILVA")
'Ou:
sResult = MMCase("josé carlos da silva")
'Ou:
sResult = MMCase("jOSÉ cARLOS dA sILVA")
Enfim, com isso, sResult conterá "José Carlos da Silva"
 


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