Deixar somente as iniciais da string em maiúsculo

Função que deixa somente as iniciais da string em maiúsculo.

Muito útil para escrever nomes próprios.

Por exemplo:

Ao utilizar “rodrigo araujo” a função retornará “Rodrigo Araujo”.

<%
Function maiuscula(str)
  MeuArray = Split(str," ")
  for i = LBound(MeuArray) to UBound(MeuArray)
     resultado = resultado & UCase(LEFT(MeuArray(i),1)) & LCase(RIGHT(MeuArray(i),Len(MeuArray(i))-1)) & " "
  next
  maiuscula = resultado
End Function

call maiuscula("rodrigo araujo")
'retorno: Rodrigo Araujo
%>

Tags:

• ASP,
• String