用occurs显示这样的结果。

楼主能说下这样做的目的是什么

比较容易看，因为挤一块有时会看错

既然楼主有难言之隐，我就不多问了
解决方法
cStr = "CDDAABAAA"
?iif(occurs("A", cStr) > 0, str(occurs("A", cStr), 1) + "A", "") + ;
  iif(occurs("B", cStr) > 0, str(occurs("B", cStr), 1) + "B", "") + ;
  iif(occurs("C", cStr) > 0, str(occurs("C", cStr), 1) + "C", "") + ;
  iif(occurs("D", cStr) > 0, str(occurs("D", cStr), 1) + "D", "")

谢谢

SET SAFETY OFF
CREATE dbf 测试表 (djf c(20),djf1 C(40))
INSERT INTO 测试表 (djf) VALUES ('fdsDaDaFfE')
INSERT INTO 测试表 (djf) VALUES ('FRgEeHNgghre')
INSERT INTO 测试表 (djf) VALUES ('nfddfhmFDhZgfd')
INSERT INTO 测试表 (djf) VALUES ('fdhyvf3t5FD3gd')
SCAN
    a1 = ""
    a2 = ""
    a3 = ALLTRIM(djf)
    FOR ii = 1 TO LEN(a3)
        a4 = SUBSTR(a3,ii,1)
        IF ((ASC(a4)>=65 AND ASC(a4) <= 90) OR (ASC(a4) >= 97 AND ASC(a4) <= 122)) AND !a4$a2   &&未计算过的字母
            a1 = a1 + SUBSTR(a2,ii,1)
            a2 = a2 + ALLTRIM(STR(OCCURS(a4,a3))) + a4
        ENDIF
    ENDFOR
    REPLACE djf1 WITH a2
ENDSCAN

BROWSE

CREATE CURSOR tt (djf C(10), djf1 C(20))
INSERT INTO tt (djf) VALUES ("AABCBDE")
INSERT INTO tt (djf) VALUES ("EDDEBCA")
INSERT INTO tt (djf) VALUES ("DBBDAED")
REPLACE djf1 WITH fu(ALLTRIM(djf)) ALL
BROWSE
RETURN

FUNCTION fu(s)
    LOCAL i, n, ret, arr[128]
    STORE 0 TO arr
    FOR i=1 TO LEN(s)
        n = ASC(SUBSTR(s,i,1))
        arr[n] = arr[n] + 1
    ENDFOR
    ret = ""
    FOR i=1 TO 128
        IF arr[i] > 0
            ret = ret + TRANSFORM(arr[i]) + CHR(i)
        ENDIF
    ENDFOR
    RETURN ret
ENDFUNC

[此贴子已经被作者于2019-7-23 05:18编辑过]

楼上版主，高！谢谢！

各位亲，都太厉害了