火棘有几种:大家帮忙看看这段asp

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 14:50:11
Function strCut(strContent,StartStr,EndStr)
Dim S1,S2,regEx
S1 = InStr(strContent,StartStr)+Len(StartStr)
S2 = InStr(S1,strContent,EndStr)
Set regEx = New RegExp
regEx.Pattern = S1
regEx.IgnoreCase = true
regEx.Global = true
strCut = regEx.Mid(strContent,S1,S2-S1)
End Function
这是小偷程序的一函数,目的是在S1中用正则表达式,把符合条件的内容剪下来,但regEx.Mid(strContent,S1,S2-S1)只要用regEx就无法显示了,先谢了。那应该如何用

regEx.Mid?
我不知道有没有这种用法,可能有误

没有regEx.Mid这个方法,楼主大概是要 regEx.Replace方法吧。