您所在的位置:小祥子 » 编程 » ASP » 正文

ASP正则替换函数以及正则匹配表达式

时间:2015-01-15 编辑:佚名 来源:互联网

早上发布了一个截取网页的函数,配合这篇文章发布的正则替换函数可以做小偷网页了。

代码如下

Function ReplaceReg(str,patrn,replStr,Ignor)
 Dim regEx '建立变量
 If Ingor=1 Then Ingor=true else Ingor=false
 Set regEx = New RegExp '建立正则表达式
 regEx.Pattern = patrn '设置模式
 regEx.IgnoreCase = Ignor '设置是否区分大小写
 regEx.Global=True
 ReplaceReg = regEx.Replace(str,replStr) ' 执行替换
End Function

使用方法

ReplaceReg(要替换的字符串,正则匹配的字符串,替换后的字符串,1)

最短匹配所有字符的正则表达式([\s\S]*?),以前我喜欢使用.*?,但这个不包含换行,有的时候不是很方便。

举个例子

代码

<body id="activity-detail">

<div class="a1">style</>

<style type="text/CSS">

用正则替换掉红色部分,先将以上代码给一个变量HTMLCONTENT

HTMLCONTENT=ReplaceReg(HTMLCONTENT,"<body id=""activity-detail"">([\s\S]*?)<style type=""text/css"">","<body id=""activity-detail""><style type=""text/css"">",1)

然后再输出这个变量

关键词:正则