Texto..

Texto..

Postby 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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

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

Postby 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
Gracias

:-) Carlos Velazquez
rbt
 
Posts: 7
Joined: Fri Oct 07, 2005 4:52 am
Location: Guadalajara, Mexico

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

Postby rbt » Sat Oct 29, 2005 4:26 pm

Gracias...
Gracias

:-) Carlos Velazquez
rbt
 
Posts: 7
Joined: Fri Oct 07, 2005 4:52 am
Location: Guadalajara, Mexico

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

Postby 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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests