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)    

%>