Transformar em maiúsculo primeira letra de cada sentença

Aprenda a Transformar em maiúsculo primeira letra de cada sentença. Muito usado para ajuste de nome de pessoas nos cadastros.

Por | @oficinadanet Programação
Aprenda a Transformar em maiúsculo primeira letra de cada sentença. Muito usado para ajuste de nome de pessoas nos cadastros.

Um exemplo é se temos em uma string : joão mendes da silva ou JOÃO MENDES DA SILVA é retornado João Mendes da Silva.

Dessa forma podemos armazenar em nosso cadastro nomes de clientes na mesma formatação padrão, evitando que em alguns caso tenhamos um cadastro como nome ou titulo em maiúsculo e outro minúsculo.

Segue abaixo a função que eu dei o nome de toUPPER, não sei por que, mas.

Abaixo o código:
'	------------------------------------------------
' @ ROTINA : toUPPER()
' @ PARAMETRO : texto
' @ SINOPSE : transforma primeira letra em de cada setença em maiusculo.
' @ ATUOR : ADRIANO ROSA
' ------------------------------------------------
Function toUPPER(texto)
    Dim str, i, termo, cont, quebra

        quebra = Replace(texto,".","")
        str = Split(quebra," ") ' criamos um vetor

        For i = LBound(str) to UBound(str)
            cont = Len(str(i))
                If ( cont = 1 ) Then
                    If ( isNumeric(str(i)) ) Then
                        termo = termo & str(i) & " "
                    Else
                        termo = termo & LCase(str(i)) & " "
                    End If
                ' Se caso usar abreviação EX adriano r souza Retorna R.
                ElseIf ( cont = 2 ) Then
                    termo = termo & LCase(str(i)) & " "
                ElseIf ( cont > 2 ) Then
                    termo = termo & UCase(Mid(str(i),1,1)) & LCase(Mid(str(i),2))& " "
                End If
            Next

        toUPPER = Trim(termo)
End Function

Mais sobre: asp, função, nomes
Share Tweet
DESTAQUESRecomendado
Mais compartilhados
Comentários