PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → New Capitalize
New Capitalize
Iniciado por BOLLER, out., 17 2019 9:38 PM - Sem resposta
Membro registado
2.969 mensagems
Popularité : +89 (91 votes)
Publicado em outubro, 17 2019 - 9:38 PM
Procedure New_Capitalize(Texto)

x is int = 0

Nome, newNome is string =""

IF Texto <> "" THEN

nQtdeEspaco is int = StringCount(Texto," ")

LOOP(nQtdeEspaco)
x++
Nome = ExtractString(Texto,x," ",FromBeginning)
Nome = Upper(Middle(Nome,1,1)) + Middle(Nome,2,Length(Nome)) + " "
newNome += Nome
END

newNome = Replace(newNome," Da ", " da ")

newNome = Replace(newNome," Das ", " das ")

newNome = Replace(newNome," De ", " de ")

newNome = Replace(newNome," Do ", " do ")

newNome = Replace(newNome," Dos ", " dos ")

END

RESULT newNome


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/