Pessoal,
Existe alguma função postada aqui no fórum que transforme um nome onde a primeira silaba seja caixa alta?
Exemplo:
jose maria dos santos
Jose Maria dos Santos

Moderador: Moderadores
itamar@itamar-desktop:~/fontes/exemplos$ hbmk2 captular.prg hbct.hbc
REQUEST HB_CODEPAGE_UTF8EX
function main
hb_cdpSelect("UTF8EX")
cString:= Lower("josÉ marIA dos saNtos")
alert(TokenUpper(cString))
Function fPrimeiramaiuscula(cString)
Local cChar, cRet:= [], lStatus:= .T., aString:= {[ Do ], [ Dos ], [ Da ], [ Das ], [ De ], [ E ], [ Del ], [ Ii ], [ É ]}
HB_SETCODEPAGE([PTISO])
For EACH cChar In cString
cRet+= Iif(lStatus, Upper(cChar), Lower(cChar))
lStatus:= (cChar == [ ])
Next
For EACH cChar In aString
If cChar $ cRet
cRet:= Stuff(cRet, At(cChar, cRet), Len(cChar), Lower(cChar))
Endif
Next
HB_SETCODEPAGE([PT850])
Return (Alltrim(cRet))
FOR EACH cChar IN @cString
IF lToUpper
cChar := Upper( cChar )
ENDIF
lToUpper := ( cChar == " " )
NEXT
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes