FoxPro/Visual FoxPro - Separar Apellidos y Nombres

*prueba esta rutina bajo vfp9:

*--- separar nombres y apellidos

CLEAR

lcnom='' && Nombre

lccom='' && Apellidos Compuestos 

lc = "DE LA CRUZ DE LOS SANTOS PEREZ LUZ EVA"

*lc = "DEL SOLAR VILLANEVA POL MANUEL"

*lc = "LA TORRE VILLANEVA VICTOR MANUEL"

FOR ln = 1 TO ALINES(la, lc,1," ")

  IF LEN(ALLTRIM(la(ln))) <= IIF(GetWordCount(ALLTRIM(lc))=ln OR ;

    GetWordCount(ALLTRIM(lc))-1=ln,1,IIF(LEN(ALLTRIM(la(ln)))=2,2,3))

    IF LEN(ALLTRIM(la(ln+IIF(ln>2,-1,0))))>=4

      lcnom=''

    ENDIF

    lcnom=lcnom+' '+la(ln)

    lccom=lcnom

  ELSE

    lcnom= lccom+' '+la(ln)

    lccom=''

    ? lcnom

  ENDIF

ENDFOR

*

* Se debe ligar la tabla al txtNombreTodo para que ahí aparezca com está ahora.

*<Codigo del CommandButton>

ADDPROPERTY(thisform,"galines[1]","")

lnlines=ALINES(thisform.galines,ALLTRIM(this.Parent.txtNombretodo.Value),1,CHR(32))

WITH this.Parent

	.optiongroup1.Value=1

	.txtApellidoPaterno.value=""

	.txtApellidoMaterno.value=""

	.txtNombres.value=""

ENDWITH

WITH this.Parent.list1

	.clear

	.RowSourceType=5

	.rowSource="thisform.galines"

	.requery

ENDWITH

*<Codigo del ListBox. Evento Click o DblClick, según te quede comodo>

* Decide si es una cosa o la otra de acuerdo a la posición del OptionGRoup1

lcValor=this.Value

lnItem=this.listitemid

lnPos=this.Parent.optiongroup1.Value

IF lnPos>0

	DO case

		CASE lnPos=1

			obj=this.Parent.txtApellidoPaterno

		CASE lnPos=2

			obj=this.Parent.txtApellidoMaterno

		CASE lnPos=3

			obj=this.Parent.txtNombres

	endcase

	obj.Value=ALLTRIM(obj.value)+IIF(EMPTY(obj.Value),""," ")+lcValor

	Thisform.galines[lnItem]="\"+lcValor

	this.Requery

ENDIF