| 楼主 wise |
Q：正则表达式如何去掉两个连续相同的字符? A：使用"(.)\1"可以达到去掉两个相同的字符的效果。
|
| 2楼 开心萝卜 |
呵呵，下载使用。谢谢分享 |
| 3楼 xyh9999 |
'补充:将连续重复的字符只保留一个 Function del_cfzf(cSS) '将连续重复的字符只保留一个 Dim RegEx As Object Set RegEx = CreateObject("VBscript.RegExp") With RegEx .MultiLine = False .Global = True .IgnoreCase = True .Pattern = "(.)(\1)+" End With del_cfzf = Trim(RegEx.Replace(cSS, "$1")) Set RegEx = Nothing End Function |
| 4楼 xyh9999 |
版主的这个是去掉2个连续相同的字符,如果要去掉多个连续相同的字符用: reg.Pattern = "(.)\1" 改成 reg.Pattern = "(.)\1+" 可用字符串"a111b222ccc"测试一下修改前后的差别 |
| 5楼 wise |
+代表一个或多个，的确那样 |