Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

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 ?

 

Compartilhar este post


Link para o post
Compartilhar em outros 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

Compartilhar este post


Link para o post
Compartilhar em outros 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?

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.