Does this cover all of your requirements?

LOCAL lcInput AS String
LOCAL ARRAY laInput(1)

TEXT TO m.lcInput NOSHOW FLAGS 1
1
10
2
03
1.1
12.R
1.1.R
1.R
1.R.1
A
B
AA
5.R
ENDTEXT

CREATE CURSOR curList (item C(20))
INDEX ON PADR(IIF(ISDIGIT(LEFT(ALLTRIM(item),1)),STR(VAL(STREXTRACT(ALLTRIM(item),"",".",1,2)),20),ALLTRIM(item)),20) TAG anIndex
ALINES(m.laInput, m.lcInput)

LOCAL lnLoop
FOR m.lnLoop = 1 TO ALEN(m.laInput)
	INSERT INTO curList (item) VALUES (m.laInput[m.lnLoop])
ENDFOR

BROWSE

>Hi everybody.
>
>I have a list with elements like
>
>1
>10
>2
>03
>1.1
>12.R
>1.1.R
>1.R
>1.R.1
>A
>B
>AA
>5.R
>
>I need to order (by indexing) this to
>
>1
>1.1
>1.1.R
>1.R
>1.R.1
>2
>03
>5.R
>10
>12.R
>A
>B
>AA
>
>any idea to do this, as fast as possible?
>
>Thanks
>
>Lutz