|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função capitular texto
|
 |
|
|
|
Postada em 25/11/2003 por Martini
'CAPITULAR TEXTO
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
|
|
|
|
|
