FiveTech Software tech support forums

by **Francisco Horta** » Sat Oct 29, 2005 3:25 pm

Hola foro,
tengo un dbf con el nombre del cliente en mayusculas,
en consultas tengo un browse y despliega el campo del nombre del cliente en mayusculas, lo que quiero es si se muestra asi "FRANCISCO JAVIER HORTA GONZALEZ" cambiarlo y que se muestre asi "Francisco Javier Horta Gonzalez", la primer letra de cualquier texto siempre en mayuscula y lo demas en minuscula, hay alguna funcion?
Gracias
Paco

by **rbt** » Sat Oct 29, 2005 4:23 pm

function main ()
? CapsFirst('PRIMERO SEGUNDO TERCERO')
? CapsFirst('primero segundo tercero')
? CapsFirst('pRIMero SeGUNdo terceRO')
? CapsFirst('1er 2do 3ero')
Return NIL

Function CapsFirst( cTxt )
Local nFor, cRet := ''
lCaps := .t.
For nFor := 1 to Len( cTxt )
if lCaps
cChar := Upper( SubStr( cTxt,nFor,1 ) )
lCaps := .f.
Else
cChar := Lower( SubStr( cTxt,nFor,1 ) )
Endif
cRet += cChar
if SubStr( cTxt,nFor,1 ) = ' '
lCaps := .t.
Endif
Next
Return cRet

// Saludos al Foro

by **rbt** » Sat Oct 29, 2005 4:26 pm

Gracias...

by **Francisco Horta** » Sat Oct 29, 2005 6:23 pm

rbt wrote:function main ()
? CapsFirst('PRIMERO SEGUNDO TERCERO')
? CapsFirst('primero segundo tercero')
? CapsFirst('pRIMero SeGUNdo terceRO')
? CapsFirst('1er 2do 3ero')
Return NIL

Function CapsFirst( cTxt )
Local nFor, cRet := ''
lCaps := .t.
For nFor := 1 to Len( cTxt )
if lCaps
cChar := Upper( SubStr( cTxt,nFor,1 ) )
lCaps := .f.
Else
cChar := Lower( SubStr( cTxt,nFor,1 ) )
Endif
cRet += cChar
if SubStr( cTxt,nFor,1 ) = ' '
lCaps := .t.
Endif
Next
Return cRet

// Saludos al Foro

la probare
Gracias

FiveTech Software tech support forums

Texto..

Texto..

Me parecio curioso e hice esta funcioncita a ver que tal...

No se porque no lo Indento, lo pegue indentado y lo puso asi

Re: Me parecio curioso e hice esta funcioncita a ver que tal

Who is online