asp正则过滤重复字符串的代码


比如 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)
%>



相关阅读:
jQuery代码优化 遍历篇
IIS+PHP+MySQL+Zend配置 (视频教程)
ASP.NET中删除文件导致Session失效
查看Oracle CPU情况
巧妙在IIS中配置PHP调试环境(二)
smarty结合xajax检测用户名简单实例
javascript 也来玩玩图片预加载
第四章 颜色背景的CSS
asp.NET中使用include
DOS下网络浏览器的使用方法
MYSQL教程:如何选择正确的数据列类型
Windows2008 最新版Apache2、PHP5、MySQL6、PHPMyadmin、ZendOptimizer安装图解
CSS 透明背景时,记得给容器加上width宽度
css图片自适应大小
快速导航

Copyright © 2016 phpStudy |