一个字段因列转行，字段内有重复的字符，需要的去除多余的！

原字段内容：（张三、张三、李四）
                 要：（张三、李四）         这样的效果！
水平有限又来麻烦大家了，每次都能得到圆满的解决！首先先谢谢了！
不知用这个CHRTRANC怎么用！

lcStr = "张三、张三、李四"
ALINES(laStr, lcStr, "、")
lcStr = SPACE(0)
FOR ln = 1 TO ALEN(laStr, 1)
    IF NOT laStr[ln] $ lcStr
        lcStr = lcStr + "、" + laStr[ln]
    ENDIF
ENDFOR
? SUBSTR(lcStr, 3)

不带分隔符来判断包含是不行的，假设 lcStr = "张三丰、张三、张三、李四"，会得到什么？

现在想想带分隔符也没用。
lcStr = "王张三、张三、张三、李四"
暂时的方法是用临时表处理了。

lcStr = "张三、张三、李四"
ALINES(laStr, lcStr, "、")
DIMENSION laStr[ALEN(laStr, 1), 1]
CREATE CURSOR tt (xm c(10))
INSERT INTO tt FROM ARRAY laStr
SELECT DISTINCT xm FROM tt INTO ARRAY laStr
lcStr = SPACE(0)
FOR ln = 1 TO ALEN(laStr, 1)
    lcStr = lcStr + "、" + ALLTRIM(laStr[ln])
ENDFOR
? SUBSTR(lcStr, 3)

塮谢能用@

将上面的程序
能写通用型针对字段操作替换的函数吗？谢谢!

是不是这个意思

CLEAR 
CREATE CURSOR test (xm c(20))
INSERT INTO test VALUES ("张三、张三、李四")
INSERT INTO test VALUES ("刘三、李四、刘三")
INSERT INTO test VALUES ("李四江、刘三、李四、刘三")
SCAN 
    ? fwr(xm)
ENDSCAN
FUNCTION fwr(lcStr)
    ALINES(laStr, lcStr, 4+1, "、")
    DIMENSION laStr[ALEN(laStr, 1), 1]
    CREATE CURSOR tt (xm c(10))
    INSERT INTO tt FROM ARRAY laStr
    SELECT DISTINCT xm FROM tt INTO ARRAY laStr
    lcStr = SPACE(0)
    FOR ln = 1 TO ALEN(laStr, 1)
        lcStr = lcStr + "、" + ALLTRIM(laStr[ln])
    ENDFOR
    RETURN SUBSTR(lcStr, 3)
ENDFUNC 
RETURN 

谢谢明天我试一下@

lcStr = "张三、张三、李四"
?strtran(lcStr , '张三、' , '' )