比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 复制代码 代码如下: % '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.Ign... [阅读全文]

比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 复制代码 代码如下:% '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegE... [阅读全文]

代码例子如下：%Option ExplicitFunction stripHTML(strHTML)'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.P... [阅读全文]