Publicado em 27 de jul.

Converter String com iniciais maiúsculas

Olá Galera!

Preciso de uma função para converter todas as iniciais em Maiusculas.

Achei essa função, mas está me apresentando um erro e não consegui enxergar esse erro.

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

Me apresenta erro no RIGHT...

"Chamada de procedimento ou argumento inválido: 'RIGHT'"

Alguém tem alguma função melhor pra isso?

Eu estou usando MySQL, tenho um form de alteração de dados, mas não sei o porque, ao adicionar ou atualizar, tudo é adicionado em minúsculo... Não tem nenhuma função sendo usado como o LCASE... para transformar pra minúsculo... o que pode ser ?

Discussão (4)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Fagner Dos Santos· 28 de jul.

Tenho essa função que coloca as primeiras em maiúsculas em nomes de pessoas:

function firstUpper(text)
 if text <> "" then
 arrText = split(text, " ")

 for each item in arrText
 item = lcase(item)
 if item <> "" then
 largo = len(item)
 rightxt = right(item,largo-1)
 leftxt = ucase(left(item,1))
 if item = "dos" or item = "da" or item = "de" or item = "das" or item = "e" or item = "por" then
 completo = completo& " " & item
 else
 completo = completo& " " & leftxt&rightxt
 end if
 end if
 next

 firstUpper = completo
 else
 text = text
 end if

end function

luiscarlos5046· 28 de jul.

Então Fagner,

Estou com um problema que não entendi no meu form.

Ao adicionar um conteúdo.... tipo matéria ou artigo... tenho um campo com nome TITULO, outro que me deu problema o nome do form é NOME.... ao adicionar no BD o dito insiste em adicionar tudo minúsculo... isso não acontecia antes... não sei o que pode estar causando isso. Não tem nada convertendo a string, não uso nenhuma função.

Já passou por isso?

luiscarlos5046· 31 de jul.

Resolvido.

Obrigado Fagner.

xanburzum· 3 de ago.

texto = Ucase(Left(texto,1)) & Mid(texto,2)