给出任意字串，求从小到大和从大到小排序？字串是由N个数字加‘/’组合在一起的
如a='15/464/4694/1/1456/02/1648/01/16644/9/865/461/005'会得出
a1='1/1/2/5/9/15/461/464/864/1456/1648/4694/16644'
a2='16644/4694/1648/1456/864/464/461/15/9/5/2/1/1'
a3='01/1/02/005/9/15/461/464/864/1456/1648/4694/16644'
a4='16644/4694/1648/1456/864/464/461/15/9/005/02/1/01'

如何快速得到a1,a2,a3,a4

我在:
http://bbs.
回答你了.

使用数组并排序

aa="15/464/4694/1/1456/02/1648/01/16644/9/865/461/005"+"/"
n=OCCURS("/",aa)
DIMENSION csz(n,2)
FOR i=1 TO n
csz(i,1)=CHRTRAN(PADL(LEFT(aa,AT("/",aa)-1),8)," ","0")
csz(i,2)=PADL(LEFT(aa,AT("/",aa)-1),8)
aa=SUBSTR(aa,AT("/",aa)+1)
NEXT
ASORT(csz,-1,-1,0)
STORE "" TO a1,a2,a3,a4
FOR i=1 TO n
a1=a1+ALLTRIM(STR(VAL(LTRIM(csz(i,2)))))+IIF(i<n,"/","")
a2=a2+ALLTRIM(STR(VAL(LTRIM(csz(n-i+1,2)))))+IIF(i<n,"/","")
a3=a3+LTRIM(csz(i,2))+IIF(i<n,"/","")
a4=a4+LTRIM(csz(n-i+1,2))+IIF(i<n,"/","")
NEXT

出错了！

ASORT(csz,-1,-1,0)   下标出界

我用的是VFP9.0

放在grid的header的mouseup

LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nShift = 2
    SET ORDER TO 名字 DESCENDING
ELSE
    SET ORDER TO 名字 ASCENDING
ENDIF

GO TOP
THISFORM.Refresh