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

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