求助,如何去掉连续重复的字符串,只保留一个字符? - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求助,如何去掉连续重复的字符串,只保留一个字符?

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2336 人关注过本帖

标题：求助,如何去掉连续重复的字符串,只保留一个字符?

只看楼主加入收藏

luxiujun

等　级：新手上路
帖　子：4
专家分：0
注　册：2014-3-31
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：5

求助,如何去掉连续重复的字符串,只保留一个字符?

例如:
将"张三\\\\\\\\李四\\\\\王五\\\李六"字符号,转换成"张三\李四\王五\李六"
新手求助解决,先谢谢啦.

搜索更多相关主题的帖子: 字符串　如何　

2017-03-28 15:59

吹水佬

等　级：版主
威　望：451
帖　子：10539
专家分：42927
注　册：2014-5-20

第 2 楼

得分:10

s = "张三\\\\\\\\李四\\\\\王五\\\李六"
?"方法一"
DO WHILE (AT("\\", s) > 0)
    s = STRTRAN(s, "\\", "\")
ENDDO
?s
?"方法二"
ss = ""
FOR i=1 TO ALINES(a, s, "\")
    IF !EMPTY(a[i])
        ss = ss + a[i]+"\"
    ENDIF
ENDFOR
ss = RTRIM(ss, "\")
?ss

2017-03-28 16:29

luxiujun

等　级：新手上路
帖　子：4
专家分：0
注　册：2014-3-31

第 3 楼

得分:0

多谢

2017-03-28 17:59

luxiujun

等　级：新手上路
帖　子：4
专家分：0
注　册：2014-3-31

第 4 楼

得分:0

多谢

2017-03-28 17:59

hyswcyh

等　级：贵宾
威　望：20
帖　子：391
专家分：896
注　册：2004-11-23

第 5 楼

得分:10

以下是引用吹水佬在2017-3-28 16:29:47的发言：

s = "张三\\\\\\\\李四\\\\\王五\\\李六"
?"方法一"
DO WHILE (AT("\\", s) > 0)
    s = STRTRAN(s, "\\", "\")
ENDDO
?s
?"方法二"
ss = ""
FOR i=1 TO ALINES(a, s, "\")
    IF !EMPTY(a)
        ss = ss + a+"\"
    ENDIF
ENDFOR
ss = RTRIM(ss, "\")
?ss

就运行效率来讲，选择第一种方法。

2017-03-28 18:57

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9799
专家分：26886
注　册：2012-2-5

第 6 楼

得分:0

方法三（拼接）
aa = "张三\\\\\\\\李四\\\\\王五\\\李六"
= ALINES(bb, aa, 5, "\")
lcStr = SPACE(0)
FOR ln = 1 TO ALEN(bb, 1)
lcStr = lcStr + bb[ln] + IIF(ln = ALEN(bb, 1), SPACE(0), "\")
ENDFOR
?lcStr

坚守VFP最后的阵地

2024-02-25 20:41

快速回复：求助,如何去掉连续重复的字符串,只保留一个字符?