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

%>