FoxPro/Visual FoxPro - Ordenar una tabla según porción de texto de una columna

*<Crear Cursor de Prueba>

LOCAL lcArt,i

RAND(-1)

lcArt ="Articulo A (4),Articulo B (2),Artículo C (1),Artículo D (20),Artículo E (15)"

CREATE CURSOR curArti ("Descrip" c(30),"PRECIO" n(12,2))

FOR i=1 TO GETWORDCOUNT(lcArt,",")

	INSERT INTO curArti (Descrip,precio) ;

		VALUES (GETWORDNUM(lcARt,i,","),ROUND(RAND(i)*100,2))

NEXT

SELECT curArti

GO top

BROWSE

*</Crear Cursor de Prueba>

*<Crear Cursor Modificado>

SELECT CAST(VAL(STREXTRACT(descrip,CHR(40),CHR(41))) as I) as orden ,;

	descrip,precio ;

	FROM curArti ;

	WHERE .t. ;

	INTO CURSOR curArtiOrd READWRITE

SELECT curArtiOrd

INDEX on orden TAG curOrden

GO top

BROWSE

*</Crear Cursor Modificado>

SELECT laTabla

INDEX on VAL(STREXTRACT(descrip,CHR(40),CHR(41))) TAG iOrden