见附件和附件中说明，谢谢！
补充：字符串中，2个以上的相同字符算1个重复，重复的个数是指有几个字符在串中有重复。

[此贴子已经被作者于2020-6-22 15:22编辑过]

重复是指相邻N个字符与另外N个相邻字符相同
"ab" = "ba" 这种能叫重复吗
希望楼主能规范下"重复"的定义
拿点真货来，不要拿扑克牌当公交卡

[此贴子已经被作者于2020-6-22 16:04编辑过]

不好意思！
这里的重复是指，某字符在字符串里有2个以上就算重复。如'a'在'ababa'中有2个以上就统计为"重复1"(即1个字符重复），但'b'在这个串中也重复，即‘a’和'b'都在这个字符串都有重复，就统计为“重复2”......
重复字符'ab"是指在一个字符串中，'a'和'b'都有重复，即“重复2”

描述不大明白,有点混乱吧. 最后一行 'a'和'b'都有重复，即“重复2”  应该描述为 重复3吧

不好意思，ab在' abcba'中重复，是指'a'在 ' abcba'中重复,'b'在' abcba'也有重复，统计为“重复2”.
总的就是，在字符串中，分别找出有重复的字符，最后有几个字符在同一串中重复，就统计重复数为几。
谢谢！

[此贴子已经被作者于2020-6-22 17:25编辑过]

重复2是指有2个字符在串中重复，由于字段名不能以数字开头，故写成“重复2”，其实就是有2个重复的意思。

DIMENSION arr[128]
SELECT M, 0000 重复数, 重复字符 FROM cf INTO CURSOR tmp READWRITE
SELECT tmp
BLANK FIELDS 重复字符 ALL
SCAN
    STORE 0 TO arr
    cM = ALLTRIM(M)
    FOR i=1 TO LEN(cM)
        ch = ASC(SUBSTR(cM,i,1))  
        arr[ch] = arr[ch] + 1
    ENDFOR
    FOR i=1 TO 128
        IF arr[i] > 1
            REPLACE 重复数 WITH 重复数+1, 重复字符 WITH 重复字符-CHR(i)
        ENDIF
    ENDFOR
ENDSCAN
GO TOP
BROWSE

图中m下j应为abacd