正则表达式: 形如 <img 内容 /> 的图片链接去除!怎么弄
如<imgstyle=border-top-width:src=/201103/W02011031460822884044.jpg/>替换为空。这样写:Setre=new...
如<img style=border-top-width: src=/201103/W02011031460822884044.jpg /> 替换为空。
这样写:
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.pattern="(\<img)(.[^\[]*)(\/\>)"
body= re.Replace(body,"$2","")
set re=Nothing
这样不可以啊,要怎么写呢。 展开
这样写:
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.pattern="(\<img)(.[^\[]*)(\/\>)"
body= re.Replace(body,"$2","")
set re=Nothing
这样不可以啊,要怎么写呢。 展开
2个回答
展开全部
替换所有img标签为空是吧?
这样:
Dim regex, result ' 声明变量
Dim strHTML
'要替换的字符串
strHTML="<img style=border-top-width: src=/201103/W02011031460822884044.jpg />xxxx"
Set regex = New RegExp ' 创建对象
regex.Pattern = "<img [\s\S]*?>"
regex.IgnoreCase = True
regex.Global = True
result = regex.Replace(strHTML, "") '替换为空
这样:
Dim regex, result ' 声明变量
Dim strHTML
'要替换的字符串
strHTML="<img style=border-top-width: src=/201103/W02011031460822884044.jpg />xxxx"
Set regex = New RegExp ' 创建对象
regex.Pattern = "<img [\s\S]*?>"
regex.IgnoreCase = True
regex.Global = True
result = regex.Replace(strHTML, "") '替换为空
追问
给力呀!
我想再问下:
形如
的标签,我想获取src=后引号内的值,即【/Files/_DSC3994--.jpg】,当然height="398" alt="" width="600" alt="xxxxx"这些不固定,要怎么写呢?
期待ing
追答
Dim regex, matches, match
Set regex = New RegExp
Dim strHTML
'要查找的字符串
strHTML="xxxx"
regex.Pattern = "]*?src=""*([^>]+?)(?:""| )[^>]*?>"
Set matches = regex.Execute(strHTML)
For Each match in matches '逐个读取所有img标签
' match.Value '得到完整的img标签字符串
' match.SubMatches(0) '得到img标签src属性的值
Next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询