1，假如有一个字符串"355644"  字符的位数没有定有多有少  把重复的去掉并按升序排列 用什么函数
2，数字号码为0--9   现在有字符串数字"4563" 求另外的6个数字并按升序排列 怎么弄呀

2、
for i=0 to 9
if i<3 or i>6
?i
endif
endfor
return

[ 本帖最后由 其实不必完美 于 2012-12-8 22:21 编辑 ]

不一定是4563 假如是26478

CLEAR
CSTR1=[355644]
CSTR=[]
FOR I=1 TO LEN(CSTR1)
    IF !SUBSTR(CSTR1,I,1)$CSTR &&过滤重复字符
       CSTR=CSTR+SUBSTR(CSTR1,I,1)+[,]
    ENDIF
ENDFOR
CSTR=LEFT(CSTR,LEN(CSTR)-1)
=ALINES(A,CSTR,[,])
=ASORT(A)
CSTR=[]
FOR I=1 TO ALEN(A)
    CSTR=CSTR+A(I)
ENDFOR
?CSTR

[ 本帖最后由 bccn201203 于 2012-12-9 04:18 编辑 ]

收到的鲜花

• 月沐庭轩 于 2012-12-09 08:58 送鲜花  5朵   附言：好代码

第二问：

FUNCTION 数字号码(原数字)
返回=""
FOR i=0 TO 9
    IF !TRANSFORM(i)$原数字
        返回=返回+!TRANSFORM(i)
    ENDIF
ENDFOR
RETURN 返回
ENDFUNC

[ 本帖最后由 月沐庭轩 于 2012-12-9 14:17 编辑 ]

过滤掉重复字符，然后排序，你的代码能达到要求吗？

这是第二问呀，不是第一问，我没看到问题呀。第一问，四楼回答得非常好了。

其实楼主的两个问题是用同样的方法解决的：先排序，后处理。
1.先排序字符串，然后遍历一次砍掉重复的字符，这种方法不限于数字字符串，可以是任何字符串，也是查找数据表中重复记录的常用方法；
2.先构造"0123456789"，遍历，对每个字符在"4563"中比对，有的就砍掉，最后剩下即为所求。

[ 本帖最后由 TonyDeng 于 2012-12-9 11:29 编辑 ]

*问题2
CLEAR
CREATE CURSOR t1 (bh c(1))
FOR I=0 TO 9
    INSERT INTO T1 VALUES (TRANSFORM(I))
ENDFOR
CREATE CURSOR t2 (bh c(1))
CSTR=[4563]
FOR I=1 TO LEN(CSTR)
    INSERT INTO T2 VALUES (SUBSTR(CSTR,I,1))
ENDFOR
SELECT A.BH,B.BH BH1 FROM T1 A FULL JOIN T2 B ON B.BH==A.BH ORDER BY A.BH INTO CURSOR T3
SELECT T3
CSTR=[]
SCAN FOR ISNULL(BH1)
   CSTR=CSTR+BH
ENDSCAN
?CSTR

*参考楼上各位的意见
CLEAR
CSTR=[]
FOR I=0 TO 9
    IF NOT TRANSFORM(I)$[4563]
       CSTR=CSTR+TRANSFORM(I)
    ENDIF
ENDFOR
?CSTR