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