比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc
复制代码 代码如下:
<%
'过滤重复
Function norepeat(Str)
Dim RegEx
If IsNull(Str) Or Str="" Then Exit Function
Set RegEx=New RegExp
RegEx.Global = True
RegEx.IgnoreCase=True
RegEx.MultiLine = True
RegEx.pattern="(.)\1+"
str=regEx.replace(str,"$1")
Set RegEx=Nothing
Norepeat=str
End Function
'示例
s="1223445677777778aabbcccccccccc"
response.write Norepeat(s)
%>
延伸阅读
- 2010-12-9-- 正则表达式过滤,用正则表达式过滤html代码
- 2010-12-9-- 正则替换字符串,又一不错的应用-正则来查找替换字符串
- 2010-12-9-- 正则替换字符串,[原创]正则替换字符串功能
- 2010-12-9-- 正则表达式替换,JsVbs正则表达式替换重复的字符
- 2010-12-9-- 正则表达式采集,asp只采集网站可见文本的正则
- 2010-12-9-- 正则表达式替换,asp常用的正则表达式实现字符串的替换
- 2010-12-9-- 正则替换字符串,asp+正则获得字符串中最后一个字母非字母不算
- 2010-12-9-- 正则替换字符串,asp 正则 过滤重复字符串的代码
- 2010-12-9-- js正则函数,asp 去掉html中的table正则代码函数
- 2010-12-9-- 正则表达式空格,asp去除html标记与空格的正则
最新评论