Jump to content
luiscarlos5046

Converter String com iniciais maiúsculas

Recommended Posts

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 ?

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.