重复字符保留1个的问题

fdqzy 发布于 2021-02-09 16:34， 960 次点击

如下：

程序代码：

create cursor b1 (jnh N(2),m1 c(5),m2 c(5))
insert into b1 values (1,"abcad","abcd")
insert into b1 values (2,"adacc","adc")
insert into b1 values (3,"abcb","abc")
insert into b1 values (4,"aababc","abc")

如何把m1中的重复字符只保留1个，得到结果m2?
谢谢!!!

2 回复

sdta2021-02-09 18:14

程序代码：

create cursor b1 (jnh N(2),m1 c(10),m2 c(5))
insert into b1 values (1,"abcad","abcd")
insert into b1 values (2,"adacc","adc")
insert into b1 values (3,"abcb","abc")
insert into b1 values (4,"aababc","abc")
scan
    lcStr = ""
    for lnj = 1 to len(alltrim(m1))
        c1 = substr(alltrim(m1), lnj, 1)
        if occurs(c1, lcstr) = 0
            lcstr = lcstr + c1
        endif
    endfor
    replace m2 with lcstr
endscan
browse

fdqzy2021-02-10 09:30

谢谢版主！