html中图片的正则表达式
想将新闻中图片用正则过滤掉,只留下文字内容。就是去掉内容中 <img />标记,不管这个标记中有什么属性。这个正则表达式应该怎么写呢?不区分大小写。网上找了几个,都不行啊。请高人指点,谢谢!
[解决办法]
Function ReplaceTest(patrn,replStr,str1) '任意正则函数(正则式,替换内容,被替换文本)
Dim regEx
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。
End Function
Function Offimg(str1) '去内容中IMG标签,与任意正则函数搭配使用
img="<img[^>]*>"
IMG="<IMG[^>]*>"
Offimg=ReplaceTest(IMG,"",(ReplaceTest(img,"",str1)))
End Function
[解决办法]