Page 1 of 1
Texto..
Posted: Sat Oct 29, 2005 3:25 pm
by Francisco Horta
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
Me parecio curioso e hice esta funcioncita a ver que tal...
Posted: Sat Oct 29, 2005 4:23 pm
by rbt
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
No se porque no lo Indento, lo pegue indentado y lo puso asi
Posted: Sat Oct 29, 2005 4:26 pm
by rbt
Gracias...
Re: Me parecio curioso e hice esta funcioncita a ver que tal
Posted: Sat Oct 29, 2005 6:23 pm
by Francisco Horta
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