Extraer datos de una Cadena

[integral]

Que tal amigos del Foro.

Muy Buenos Días

Deseo extraer el 1er. nombre y el 1er. Apellido de los Clientes.

En el formulario de ingreso los nombres y apellidos están creados en 2 controles Textbox. 

He creado el siguiente método para obtener lo mencionado.

Al ejecutarlo me da como resultado 2do. Nombre con el 2do. Apellido.

Aquí el código utilizado...

LOCAL cNombreCompleto, cApellidoCompleto, cNombre, cApellido                          

cNombreCompleto   = Thisform.txtNom.Value
cApellidoCompleto = Thisform.txtApell.Value

* Encontrar la posición del primer espacio
nPosicionEspacio = AT(" ", cNombreCompleto)

* Extraer el nombre
cNombre = SUBSTR(cNombreCompleto, 1, nPosicionEspacio - 1)

* Extraer el apellido
cApellido = SUBSTR(cApellidoCompleto, nPosicionEspacio + 1)

* Mostrar el resultado
WAIT WINDOW "Nombre : " + cNombre + CHR(13) + "Apellido : " + cApellido TIMEOUT 1.5

RETURN cNombre + cApellido

Ej.-

 Cliente = "Julio Cesar Ramon Ribeyro"

Resultado : Cesar Ribeyro

Agradezco sus comentarios y sugerencias...

Saludos,

Integral

[Zarlu]

Buenos días Integral!

Quiza:

lcDato1="Julio  César"
lcDato2="Ramon Ribeyro"
? GETWORDNUM(lcDato1,1," ")+SPACE(1)+GETWORDNUM(lcDato2,1," ")
lcDato1="Julio César  Ramon Ribeyro"
? GETWORDNUM(lcDato1,1," ")+SPACE(1)+GETWORDNUM(lcDato1,3," ")

Con tu código:
cNombreCompleto="Julio  César"
cApellidoCompleto="Ramon Ribeyro"

nPosicionEspacio = AT(" ", cNombreCompleto)

cNombre = SUBSTR(cNombreCompleto,1,nPosicionEspacio-1)
nPosicionEspacio = AT(" ", cApellidoCompleto)
cApellido = SUBSTR(cApellidoCompleto,1,nPosicionEspacio - 1)
? "Nombre : " + cNombre
? "Apellido : " + cApellido

Suerte

zarlu

Chetumal, Quintana Roo, México

[Wagner Cevallos]

Asi funciona:

cNombre= SUBSTR(cNombreCompleto, 1, AT(' ', cNombreCompleto) - 1) +SPACE(1)+ SUBSTR(cNombreCompleto, nPosicionEspacio + 1)


cApellido = SUBSTR(cApellidoCompleto, 1, AT(' ', cApellidoCompleto) - 1) +SPACE(1)+ SUBSTR(cApellidoCompleto, nPosicionEspacio + 1)

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/14efcba8-8eda-4166-86aa-b399391a1adcn%40googlegroups.com.

--

Ing. Wagner Javier Cevallos  Macías

0985303564-0996496512

^{Portoviejo-Manabí-Ecuador}

[Gerardo Cagnola]

le estamos haciendo la tarea!!!

a mi gusto le están "regalando" tiempo, no son complejas las tareas que tiene que hacer... DEBERIA aprenderlas solo...

hay que enseñar a pescar y no regalar el pescado

mi centavo... 

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/e86129a3-60be-484b-b987-33226f4277dfn%40googlegroups.com.

[Patricio Muñoz]

Hola Gerardo 

Yo desde hace muchos años que me di cuenta que la mayoría de los integrantes de este foro no se dan el tiempo de buscar y pensar, sino que todo lo preguntan, es más, año tras año veo que realizan las mismas preguntas, y lo más entretenido, que aún hay algunos que las siguen respondiendo, sin importar si esa pregunta ya ha sido contestada 100 veces. Es por ello que yo casi no participo.

Saludos 

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxpro+unsubscribe@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/e86129a3-60be-484b-b987-33226f4277dfn%40googlegroups.com.

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxpro+unsubscribe@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2B7ERduizGFxH45petDOJmLfwEZP9V%2BjgD7HU5pGDjr7X9iong%40mail.gmail.com.

--

Saludos

Patricio Muñoz

Pro&Tech

Ing. en Informática

[Octavio Rodriguez]

ups!

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/e86129a3-60be-484b-b987-33226f4277dfn%40googlegroups.com.

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2B7ERduizGFxH45petDOJmLfwEZP9V%2BjgD7HU5pGDjr7X9iong%40mail.gmail.com.

--

Saludos

Patricio Muñoz

Pro&Tech

Ing. en Informática

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2Bwbvbz1M65G%3Dh5iPk302v8kT%2BBPXnBGFfoMSu4BTu8b0XYbwA%40mail.gmail.com.

[integral]

Gracias a los Colegas Zarlu y al Ing. Javier Cevallos por su valiosa ayuda y pronta respuesta...

No se repitió la historia en responder a una pregunta que recuerdo fue hecha en el año 2011, recién en el año 2024 la respondieron.  

Siempre habrá gente sabia dispuesta a colaborar...

Y también gente que solo se dedica a criticar.  

Como dicen aquí en mi país son los pincha llantas...

El perro del Hortelano...

No come ni deja comer...

Mis saludos.

Atte.

Integral

[Mik]

Solo usa :

Getwordnum(cNombreCompleto, 1) + Space(1) +   Getwordnum(cApellidoCompleto, 1)

Saludos

[integral]

Que tal colega Mik

Buenas Tardes

Leyendo y investigando un poco a partir de VFP 7 se pueden usar la funciones GetWordCount y GetWordNum. 

Estoy realizando otra rutina con dicho comando y veremos que resulta..

Saludos,

Integral

[Patricio Muñoz]

Integral 

Claro que este tema está más que respondido.... Hace años se trató este tema resolviendo además el dilema de los nombres compuestos como "del transito" y apellidos compuestos como "San Martín". En fin.... No es para hacer polémica, pero si para reflexionar...

Saludos 

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxpro+unsubscribe@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/5a805420-ad67-4e03-862f-809125b188f5n%40googlegroups.com.

[integral]

Buenas Noches Amigos

Aquí otra forma de obtener el resultado deseado  aplicando los 2 comandos

Local i, sNombre

Clear
sNombre = "ANTHONY NAREA REYES AGUIRRE"

* Este FOR lo que hace es obtener cada palabra que este separado por espacios en blanco(" ").

For i = 1 to GetWordCount(sNombre," ")
    =Messagebox(GetWordnum(sNombre,i," "),16+0,800)
NEXT

* Obtener un Array con las palabras separadas con ALINES():

FOR ln = 1 TO ALINES(laArray,sNombre,' ')
 *   ? laArray(ln)
ENDFOR

lcNombre    = laArray[1]
lcApellido    = laArray[3]

? lcNombre + ", " + lcApellido

Hasta la proxima

Atte.,

Integral

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/5a805420-ad67-4e03-862f-809125b188f5n%40googlegroups.com.

[HernanCano]

Sería importante q nos comentaras cómo resuelves diversas problemáticas como un sólo nombre o un sólo apellido, los nombre y/o apellidos con partículas como DE, DEL, DE LA, DE LOS, D', etc...

ejm: María José de la Santísima Trinidad López Cárdenas

María Laura de Jesús Montoya Upegui

[RS “Ricardo”]

En un sistema donde tengo el  apellido Paterno  Materno Nombre 

lo asi:

paterno=SPACE(15)
materno=SPACE(15)
nombres=SPACE(25)

luego invoco la funcion 

 sep_pat_mat_nomb(Nombre)

FUNCTION sep_pat_mat_nomb(nombre)
LOCAL ln, j, r, extr
SET EXACT ON
extr=''
m.nombres=''
m.nombr1=''
ln=LEN(nombre)
j = 1  && CON ESTO CUENTO LOS ESPACIOS ENTRE NOMBRES Y APELLIDOS
FOR r = 1 TO ln
DO CASE
CASE j = 1
IF SUBSTR(nombre,r,1) != " "
extr=extr+SUBSTR(nombre,r,1)
ELSE
IF !del_o_de(extr)
paterno=extr+" "
extr=''
j=2
ELSE
extr=extr+" "
ENDIF
ENDIF
CASE j = 2
IF SUBSTR(nombre,r,1) != " "
extr=extr+SUBSTR(nombre,r,1)
ELSE
IF !del_o_de(extr)
materno=extr+" "
extr=''
j=3
ELSE
extr=extr+" "
ENDIF
ENDIF
CASE j = 3
* m.nombres=m.nombres+substr(nombre,r,1)
IF SUBSTR(nombre,r,1) != " "
extr=extr+SUBSTR(nombre,r,1)
ELSE
IF !del_o_de(extr)
m.nombres=extr+" "
extr=''
j=4
ELSE
extr=extr+" "
ENDIF
ENDIF
CASE j = 4

m.nombr1=m.nombr1+SUBSTR(nombre,r,1)
ENDCASE
NEXT
IF m.nombres != ''
m.nombres=LTRIM(m.nombres)
ELSE
IF m.nombr1 != ''
m.nombres=m.nombr1
ENDIF
ENDIF
RETURN

lA SIGUIENTE FUNCION EVALUA LOS CONJUNTOS DE DOS O TRES LETRAS DE LOS NOMBRES Y APELLIDOS COMPUESTOS 
FUNCTION del_o_de(palab)
ret=.F.
DO CASE
CASE UPPER(ALLTRIM(palab)) == "DE"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "LA"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "DEL"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "SAN"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "MC"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "MAC"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "LOS"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "LAS"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "DI"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "O'"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "AL"
ret=.T.
CASE UPPER(ALLTRIM(palab)) == "LO"
ret=.T.
CASE UPPER(palab) == "DE LA"
ret=.T.
ENDCASE
RETURN(ret)