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

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

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

只看楼主

luxiujun

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

楼主

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

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

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

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

2017-03-28 15:59

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：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

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-475586-1-1.html