| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 896 人关注过本帖
标题:重复字符保留问题
只看楼主 加入收藏
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
结帖率:73.97%
收藏
已结贴  问题点数:20 回复次数:2 
重复字符保留问题
如表:
create cursor b1 (m c(5),m1 c(3))
insert into b1 values ("1002","")
insert into b1 values ("12123","")
insert into b1 values ("123","")
insert into b1 values ("01110","")
insert into b1 values ("22201","")
insert into b1 values ("02002","")

从左查起,第1个字符在m中相同个数>1,则m1中有这个相同字符1个;又从第2个字符查起,在第2个及后面的字符中相同个数>1,则m1中又增加这个字符.....
运行结果如下:
程序代码:
create cursor b1 (m c(5),m1 c(3))
insert into b1 values ("1002","0")
insert into b1 values ("12123","12")
insert into b1 values ("123","")
insert into b1 values ("01110","011")
insert into b1 values ("22201","22")
insert into b1 values ("02002","020")

谢谢!

[此贴子已经被作者于2020-10-12 18:38编辑过]

搜索更多相关主题的帖子: 字符 into values insert 重复 
2020-10-12 18:31
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:20 
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
create cursor b1 (m c(5),m1 c(3))
insert into b1 values ("1002","")
insert into b1 values ("12123","")
insert into b1 values ("123","")
insert into b1 values ("01110","")
insert into b1 values ("22201","")
insert into b1 values ("02002","")
cm = ""
nm = 0
ch = ""
ret = ""
REPLACE ALL m1 WITH fun()
SELECT * FROM b1
RETURN

FUNCTION fun()
    cm = ALLTRIM(m)
    nm = LEN(m)
    ret = ""
    FOR i=1 TO nm-1
        ch = SUBSTR(cm,i,1)
        FOR j=i+1 TO nm
            IF SUBSTR(cm,j,1)==ch
                ret = ret + ch
                EXIT 
            ENDIF
        ENDFOR
    ENDFOR
    RETURN ret 
ENDFUNCv
2020-10-12 20:25
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
收藏
得分:0 
回复 2楼 吹水佬
谢谢版主!!!
2020-10-12 22:05
快速回复:重复字符保留问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.060215 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved