I will have a look at it later on. This particular problem is not so much important now ::(

Agnes
>Here it is:
>
>

>CREATE CURSOR c_test (ctext C(40))
>INSERT INTO c_test (ctext) VALUES ('1.1')
>INSERT INTO c_test (ctext) VALUES ('1.02')
>INSERT INTO c_test (ctext) VALUES ('10.1')
>INSERT INTO c_test (ctext) VALUES ('01.3')
>INSERT INTO c_test (ctext) VALUES ('1.02.N')
>INSERT INTO c_test (ctext) VALUES ('1.02.N.R')
>INSERT INTO c_test (ctext) VALUES ('1.10.R')
>INSERT INTO c_test (ctext) VALUES ('1.10.R.1')
>INSERT INTO c_test (ctext) VALUES ('20DP')
>INSERT INTO c_test (ctext) VALUES ('20')
>INSERT INTO c_test (ctext) VALUES ('1.02.R')
>INSERT INTO c_test (ctext) VALUES ('01.R')
>INSERT INTO c_test (ctext) VALUES ('1.02.100')
>INSERT INTO c_test (ctext) VALUES ('1.02.NA')
>INSERT INTO c_test (ctext) VALUES ('01.R1')
>INSERT INTO c_test (ctext) VALUES ('01.1R')
>
>LOCAL lcSelect
>lcSelect=[SELECT ctext,]
>FOR lnX=1 TO 20
>	lcSelect=lcSelect+[PADL(ALLTRIM(STR(]+;
>		[IIF(VAL(GETWORDNUM(ctext,]+ALLTRIM(STR(lnX))+[,'.'))>0]+;
>		[,VAL(GETWORDNUM(ctext,]+ALLTRIM(STR(lnX))+[,'.'))]+;
>		[,99999999))),40,'0')+]+;
>		[PADR(CHRTRAN(GETWORDNUM(ctext,]+ALLTRIM(STR(lnX))+[,'.'),'0123456789',''),40) ]+;
>		[as s]+ALLTRIM(STR(lnX))+;
>	IIF(lnX<20,[,],[])
>endfor
>lcSelect=lcSelect+[ FROM c_test ORDER BY ]
>FOR lnX=1 TO 20
>	lcSelect=lcSelect+[s]+ALLTRIM(STR(lnX))+IIF(lnX<20,[,],[])
>ENDFOR
>
>&lcSelect
>
>