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)

%>