VFP中数字字符串排序

作者在 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
文章评论,共0条
游客请输入验证码
浏览376964次