复制代码 代码如下:
Function DRexPage(Str)
Dim RegEx
If IsNull(Str) Or Str="" Then Exit Function
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.pattern="(&)?page=(d)+"
DRexPage=regEx.replace(Str,"") '(Str,"$1")
Set RegEx=Nothing
End Function
PHP preg_match的匹配多国语言的技巧_正则表达式
Jul 16, 2016
UCenter和最土团购系统的整合教程 - UCenter
Nov 22, 2016
最全的用正则批量去除Teleport Pro整站下载文件冗
Jul 20, 2016
js 正则表达式学习笔记之匹配字符串_正则表达式
Aug 02, 2016
mysql正则匹配所有数据表
Aug 28, 2017