vbs正则表达式实例

Functionsear(sss,pt0)'正则表达式搜索
setregex=NewRegExp
regex.Pattern=pt0
regex.IgnoreCase=True
regex.Global=True
setmatches=regex.Execute(sss)
foreachmatchinmatches
RetStr=RetStrmatch.value
next
sear=RetStr
EndFunction

Functionrep(str,pt1,re)'正则表达式替换
setregex=newRegExp
regex.Pattern=pt1
regex.IgnoreCase=True
regex.Global=True
rep=regex.Replace(str,re)
EndFunction

Functionrt(patrn,str)'正则表达式查找匹配指定模式字符串，返回true/false
setregex=newregexp
regex.pattern=patrn
regex.ignorecase=false
rt=regex.test(str)
EndFunction

我现在常用的正则表达式，非常好用，希望对大家有帮助。
我已做成功能函数，使用时直接复制调用就行。
||浏览()|(3)最近读者：网友评论：12009年04月04日星期六10:22|路过正则很强大22009年04月04日星期六12:28|VBS可以用正则表达式？
见识了。32009年04月10日星期五09:29|路过


知识就是力量，大哥你狠好，狠强大发表评论：姓名：*姓名最长为50字节网址或邮箱：(选填)内容：验证码：请点击后输入四位验证码，字母不区分大小写