作者在 2015-03-13 14:06:33 发布以下内容
CSTR=[103]
A=CSORT(CSTR)
LIST MEMORY LIKE A
FUNCTION CSORT(AA)
PUBLIC ASTR(LEN(AA))
FOR I=1 TO LEN(AA)
ASTR(I)=SUBSTR(AA,I,1)
ENDFOR
=ASORT(ASTR)
RETURN @ASTR
CSTR=[103]
A=CSORT(CSTR)
LIST MEMORY LIKE A
FUNCTION CSORT(AA)
PUBLIC ASTR(LEN(AA))
FOR I=1 TO LEN(AA)
ASTR(I)=SUBSTR(AA,I,1)
ENDFOR
=ASORT(ASTR)
RETURN @ASTR