Separar Apellidos y Nombres
Estimado amigo
Buenas días Tengo la necesidad de separar los datos de mis alumnos en 3
campos Nombres, Ap Paterno y Ap Materno de mi campos Datos ejemplo
"ABAD MEJIA MARÍA AURORA"
CAMPO:
Datos: ABAD MEJIA MARÍA AURORA
COMO QUISIERA QUE QUEDE:
CAMPOS:
Nombres : MARÍA AURORA
Ap Paterno: ABAD
Ap Materno: MEJIA
de antemano mil Gracias por su tiempo y paciencia
Atentamente
Jesús
1 Respuesta
Había pasado algún tiempo sin revisar y la pregunta se bloqueo. Ahora con la nueva funcionalidad... te respondo.
Es un placer y disculpa la tardanza.
Una forma de proceder seria así (no es la única): coloca el siguiente código en un botón y ejecuta.
LOCAL lcNombreCompleto, lcNombre1, lcNombre2, lcApellido1, lcApellido2
LOCAL lnLenExp
lcNombreCompleto = "ABAD MEJIA MARÍA AURORA"
**--Primer Apellido
lcApellido1 = SUBSTR(lcNombreCompleto, 1, ATC(SPACE(1), lcNombreCompleto))
**Rearmamos
lnLenExp = LEN(ALLTRIM(lcApellido1)) + 2
lcNombreCompleto = SUBSTR(lcNombreCompleto, lnLenExp)
**--Segundo Apellido
lcApellido2 = SUBSTR(lcNombreCompleto, 1, ATC(SPACE(1), lcNombreCompleto))
**Rearmamos
lnLenExp = LEN(ALLTRIM(lcApellido2)) + 2
lcNombreCompleto = SUBSTR(lcNombreCompleto, lnLenExp)
**--Primer Nombre
lcNombre1 = SUBSTR(lcNombreCompleto, 1, ATC(SPACE(1), lcNombreCompleto))
**Rearmamos
lnLenExp = LEN(ALLTRIM(lcNombre1)) + 2
lcNombre2 = SUBSTR(lcNombreCompleto, lnLenExp)
**--Juntamos el 1 y 2 nombre
lcNombre1 = lcNombre1 + " " + lcNombre2
**--Aca mostramos las variables
MESSAGEBOX(lcApellido1)
MESSAGEBOX(lcApellido2)
MESSAGEBOX(lcNombre1)
**--//
Cualquier cosa, avisame. Un placer!
Desde Managua, Nicaragua!
Ravenn : D:D :D
