Cambiar letra de Mayuscula a Minuscula

[Noe]

Hola Estimado Foro !! Me pueden Ayudar ?

Temgo una Tabla con 15000 registros y lo que pretendo es cambia la
primera letra de mayuscula a minuscula
de todos los reg les muestro abajo un ejemplo

NOE VELAZQUEZ HERNANDEZ
ROSANA PEREA SERRANO
IMELDA MONTOYA LOERA

Noe Velazquez Hernandez
Rosana Perea Serrano
Imelda Montoya Loera

el nombre esta en un solo campo de antemano les doy las Gracias

[GOOD_FOX]

Hola Buen día... Te hize esto te puede funcionar... cambia algunas
cosas como el nombre de tabla y campo, coloca los tuyos... la
función SUBEXTRACT ya no le hags nada funciona.. :D


clos all

*-*Abres tu BD de Datos
use ..\clientes

*-Empieza Bucle
Sele Clientes
Do While !Eof()
lcNom = Allt(Clientes.NOmbre)
ul = Len(lcNom)
lcNomC = '' && Variable que Guardara el Nuevo Nombre convertido
For Av=1 to ul
lcVar = ALLT(subExtract(lcNom,' ',AV)) &&Extraemos la primer palabra
lcLet = left(lcVar,1)
lcRest = Lower(SubStr(lcVar,2,len(lcVar)))
lcNomC = lcNOmC+' '+lcLet+lcRest
EndFor
*-PRUEBA MUESTRA EN PANTALLA LOS CAMBIOS :D
?lcNomC
*-REEMPLAZAR TU CAMPO POR EL NUEVO VALOR
*SELECT CLIENTES
*REPLACE NOMBRE WITH lcNomC
*Sele Clientes
Skip
EndDo




*----------------------------------------- SUBEXTRACT
--------------------------------------
*COMENTARIOS: función que Regresa una subcadena contenida en una
cadena separada por símbolos
*PARAMETROS:
* mcCadena (Caracter), cadena con símbolos donde se busca la
subcadena
* mcSímbolo (Caracter), símbolos para buscar la subcadena, ejemplo '
',*,+,/... etc.
* mnVeces (Numérico), el número de la subcadena que se suiere
extraer, si el número sobre
* pasa al número de subcadenas contenidas en la cadena, de
vuelve vacio
* Si mnVeces=0 devuelve la cadena sin simbolos
*REGRESA:
* la SubCadena buscada si tiene exito, sino devuelve un caracter de
vacio.
*EJEMPLO:
* SubExtract('ESTE ES UN*EJEMPLO DE CADENA*CON SUBCADENAS','*',2) --
> Resultado: EJEMPLO DE CADENA
* SubExtract('ESTE ES UN*EJEMPLO DE CADENA*CON SUBCADENAS','*',3) --
> Resultado: CON SUBCADENAS
* SubExtract('ESTE ES UN*EJEMPLO DE CADENA*CON SUBCADENAS','*',4) --
> Resultado: (nada)
* SubExtract('ESTE ES UN*EJEMPLO DE CADENA*CON SUBCADENAS','*',0) --
> Resultado: ESTE ES UN EJEMPLO DE CADENA CON SUBCADENAS
*----------------------------------------- SUBEXTRACT
--------------------------------------
Function SubExtract
Para mcCadena,mcSimbolo,mnVeces
lcCadena = ''
lnLetIni=1
lnPosSim=0
If mnVeces!=0 Then
*Se busca una subcadena
For i=1 To mnVeces
lnPosSim = At(mcSimbolo,mcCadena,i)
If lnPosSim!=0 Then
*Sigue siendo diferente de cero por lo que encontro otro símbolo
lcCadena = Substr(mcCadena,lnLetIni,lnPosSim-lnLetIni)
lnLetIni = lnPosSim+1
Else
If lnLetIni<=Len(mcCadena) Then
lcCadena = Substr(mcCadena,lnLetIni,Len(mcCadena))
lnLetIni = Len(mcCadena)+1
Else
lcCadena = ' '
Exit
EndIf
EndIf
EndFor
Else
*Se muestra toda la cadena sin símbolos
For i=1 To Len(mcCadena)
If SubStr(mcCadena,i,i)!=mcSimbolo Then
lcCadena = lcCadena+SubStr(mcCadena,i,1)
Else
lcCadena = lcCadena+' '
EndIf
EndFor
EndIf
Return lcCadena

[Julio Cesar Rodriguez Dominguez]

2009/1/31 Noe <elcorre...@yahoo.com.mx>

Hola, creo que debes organizar bien tus ideas antes de pedir ayuda, ya que en el texto das a entender que el resultado esperado es:

nOE vELAZQUEZ hERNANDEZ
rOSANA pEREA sERRANO
iMELDA mONTOYA lOERA

Justo lo contrario de tu ejemplo.

Bueno te he subido un archivo llamado MayusculaInicial.rar, en el cual programe un función que hace lo que necesitas, creo que un poco de esfurzo lo hubiera podido hacer tu.

Saludos.

[Noe]

Hola Julio Cesar !!

Gracias por tu tiempo...

tal vez si lo hubiera podido hacer , pero por eso me atrevi a pedir
ayuda.
se que no es una disculpa pero tengo denasiado trabajo y mis jefes me
estan presionando mucho
y se que algunos de los compañeros ya tienen programas que hacen lo
que tu deseas
y no fue flojera ........

[Trento]

? PROPER( "NOE VELAZQUEZ HERNANDEZ")

Te mostraría:

Noe Velazquez Hernandez

REPLACE ALL [CAMPO] WITH PROPER( [CAMPO] )

podría servirte.

El problema con PROPER() sería por ejemplo:

? PROPER("JUAN DE DIOS DE LA TORRE")
Juan De Dios De La Torre

que dediera ser "Juan de Dios De la Torre"

Es pocas palabras, la función PROPER()convierte a mayúscula la primer
caracter de una cadena.


Saludos y felicidades por su nuevo foro.

[Cristobal]

usa Proper(cExpression)

--------------------------------------------------
From: "Noe" <elcorre...@yahoo.com.mx>
Sent: Saturday, January 31, 2009 8:46 AM
To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>
Subject: [Mundo Visual FoxPro] Cambiar letra de Mayuscula a Minuscula

[GOOD_FOX]

Es bueno participar, ayudarnos, creo ke en las versiones 9.0 de Vfp
hay muchas mas cosas que se pueden hacer... yo desconocia la funcion
PROPER() y quizas otras mas... lo importante creo en un Foro es
preguntar o solicitar ayuda a los mas experimentados, para que nos
puedan ayudar, aclarar o darnos el algoritmo de como hacer algo o
bien resolverlo, ya que ese es el Objetivo del FORO, Aprender de los
que más Saben.... y dar a conocer nuestras idéas para que otros puedan
aportar y alfinal realizar algo estable y confiable... (Y)

Saludos .....

[Noe]

Trento Cristobal y Good_Fox

Gracias por su partisipacion........

se me olvidaba.....

fue de gran utilidad tu programa Julio Cesar me permitio adelantar en
otros modulos del sistema que estoy elaborando !!!!

[Julio Cesar Rodriguez Dominguez]

2009/1/31 Noe <elcorre...@yahoo.com.mx>

--~--~---

 
Que bueno Noe que te este sirviendo, dedique uno hora de mi trabajo, para hacerlo... y lo hice con gusto.

Saludos

[sin dios no soy nada]

dentro de dos o seis meses alguien preguntara lo mismo y tu ya lo sabras y
tu le ayudaras, asi hago yo, lo que aprendo aqui, despues lo preguntan y yo
lo contesto

--------------------------------------------------
From: "GOOD_FOX" <jca...@hotmail.com>
Sent: Saturday, January 31, 2009 5:19 PM

To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>

Subject: [Mundo Visual FoxPro] Re: Cambiar letra de Mayuscula a Minuscula

[sin dios no soy nada]

esta funcion ya venia en la version 6.00
Ejemplo de PROPER( ) (Función)

STORE 'Visual FoxPro' TO gcExpr1

CLEAR
? PROPER(gcExpr1) && Muestra "Visual Foxpro"
STORE 'VISUAL FOXPRO' TO gcExpr2
? PROPER(gcExpr2) && Muestra "Visual Foxpro"

referencias del lenguaje de A la Z


--------------------------------------------------
From: "Cristobal" <galvan_c...@hotmail.com>
Sent: Saturday, January 31, 2009 5:08 PM
To: <mundovis...@googlegroups.com>
Subject: [Mundo Visual FoxPro] Re: Cambiar letra de Mayuscula a Minuscula

[Roberto Olivas]

Usa estas simples instrucciones:

Use <nombre_de_tu_tabla>

Replace all nombre with Proper(nombre)

Use

Asumo que el campo de tu tabla se llama nombre.


-----Mensaje original-----
De: mundovis...@googlegroups.com
[mailto:mundovis...@googlegroups.com] En nombre de Noe
Enviado el: Sábado, 31 de Enero de 2009 07:46 a.m.
Para: Mundo Visual FoxPro
Asunto: [Mundo Visual FoxPro] Cambiar letra de Mayuscula a Minuscula

[LUIS ALBERTO DE LEON SOSA]

No se si entendi pero yo lo haria de esta manera

use tabla

Replace all campo with proper(campo)

 

saludos.

 

2009/1/31 Noe <elcorre...@yahoo.com.mx>