Question

vb 正则表达式 过滤网页中的 img script标签

用xmlhttp下载网页后，要用正则表达式过滤网页中的 img 标签和script 标签

Answer 1

先在VB工程中引用regexp.tlb文件，然后代码如下：

Function expReplace(ByVal str, ByVal ex, ByVal newStr) ‘我写这个函数用来按正则表达式替换内容
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = ex
str = re.Replace(str, newStr)
Set re = Nothing
expReplace = str
End Function

'假设xmlhttp抓取的HTML代码在变量h中，则：
h=expReplace(h,"<img[\s\S]*?>","空内容")
h=expReplace(h,"<script[\s\S]*?</script>","空内容")
'这样就可以把所有图片和脚本替换掉了。

Answer 2

dim r as new regexp
r.Global = True
r.MultiLine = True
r.IgnoreCase = True
r.Pattern = "<(img)>.+<\/\1>"
txthtml=r.replace(txthtml,"")
r.Pattern = "<(script)>.+<\/\1>"
txthtml=r.replace(txthtml,"")

可以么?