Como Trocar RUA BARÃO DO ITAIM POR Rua Barão do Itaim. Trocar as primeiras letras maiúsculas por letras minúsculas.
Obrigado
Moderador: Moderadores
UpperLower( @cTexto )
FUNCTION UpperLower( cTexto )
LOCAL cTextoNovo, lUpper := .T., nCont, cLetra
cTextoNovo := ""
FOR nCont = 1 TO Len( cTexto )
cLetra := Substr( cTexto, nCont, 1 )
IF cLetra == " "
lUpper := .T.
ELSEIF lUpper
cLetra := Upper( cLetra )
lUpper := .F.
ENDIF
cTextoNovo += cLetra
NEXT
RETURN cTextoNovo
Function Captular(texto)
LOCA i, excecao, fim, tamanho, novotexto, ini
excecao:={" Do "," Dos "," Da "," Das "," De "," Em "," A "," E "," O "}
novotexto=Space(1)+Lower(texto)
fim:=Len(texto)
FOR i=1 TO fim
IF SubStr(novotexto,i,1)=" "
novotexto=Stuff(novotexto,i+1,1,MAIUSC(SubStr(novotexto,i+1,1)))
ENDI
NEXT
tamanho=Len(excecao)
FOR i=1 TO tamanho
IF excecao[i] $ novotexto
novotexto=Stuff(novotexto,At(EXCECAO[i],novotexto),;
Len(excecao[i]),Lower(excecao[i]))
ENDI
NEXT
novotexto=Stuff(novotexto,2,1,MAIUSC(SubStr(novotexto,2,1)))
RETU LTrim(novotexto)
FOR nCont =1 TO Len( Exceção )
NovoTexto := StrTran( NovoTexto, Exceção[ nCont ], Lower( Exceção[ nCont ] )
NEXT
Func Maiusc( Arg1 )
Local t
Arg1 := Upper( Arg1 )
For t:=1 To 11
Arg1 := StrTran( Arg1, SubStr( "çáàêâèéãõüí", t, 1 ), SubStr( "ÇÁÀÊÂÈÉÃÕÜI", t, 1 ) )
Next
Return Arg1
Usuários vendo este fórum: Google [Bot] e 5 visitantes