by cnavarro » Sat Apr 10, 2021 10:38 am
Creo recordar que eso se llama
Capital Letter o algo así, e incluso es posible que exista la function harbour que lo hace, pero en cualquier caso prueba esto ( está sin probar )
- Code: Select all Expand view
#include "Fivewin.ch"
Function Main()
Local cNomFormato
Local cNombre := "leandro alfonso arevalo suarez"
cNomFormato := LetterCapital( cNombre )
? cNomFormato //Leandro Alfonso Arevalo Suarez
Return nil
//
Function LetterCapital( cCad )
local x
local aWords := hb_ATokens( cCad, " " )
For x = 1 to Len( aWords )
if Len( aWords[ x ] ) > 2 // palabras cortas ?
aWords[ x ] := Lower( aWords[ x ] )
aWords[ x ] := Upper( Left( aWords[ x ], 1 ) ) + Substr( aWords[ x ], 2 )
endif
Next x
cCad := ""
AEVal( aWords, { | c | cCad += c + " " } )
Return AllTrim( cCad )
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces