从内容中提取图片,删除图片,提取src

一、从内容中提取图片
Function RegExpExecute(strng)
Dim regEx, Match, Matches '建立变量。
Set regEx = New RegExp '建立正则表达式。

regEx.Pattern = "(<)(.[^<]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。

regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
For Each Match in Matches '遍历匹配集合。
values=values&Match.Value
Next
RegExpExecute = values
End Function

二、从内容中删除图片
Function DelPhoto(strcontent)
Dim str
Dim re
str = strcontent
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Global = True '设置全局可用性。
re.Pattern = "(\<img(.[^\<]*)?()\>)"
str = re.Replace(str, "")
Set re = Nothing
DelPhoto = str
End Function

三、从内容中提取图片的src
Function Get_ImgUrl(Content)
 Dim objRegEx,Match,Matches,values
 Set objRegEx=New RegExp
 objRegEx.Pattern="src\s*\=\s*('|"").+?\.(jpg|gif|png|bmp|jpeg)('|"")"
 objRegEx.IgnoreCase=True
 'objRegEx.Global=False
 'objRegEx.MultiLine =False
 Set Matches=objRegEx.Execute(Content)
 For Each Match In Matches
  values=values&Match.Value
 Next
 Set Matches=Nothing
 Set objRegEx=Nothing
 
 values=ReplaceText(values,"src\s*\=\s*('|"")","")
 values=ReplaceText(values,"('|"")","")
 
 Get_ImgUrl=values
End Function

 

Function ReplaceText(Str,Patt,ReplStr)
 Dim objRegEx,Match,Matches,values
 Set objRegEx=New RegExp
 objRegEx.Pattern=Patt
 objRegEx.IgnoreCase=True
 'objRegEx.Global=False
 'objRegEx.MultiLine =False
 
 ReplaceText = objRegEx.Replace(Str,ReplStr)
 
 Set objRegEx=Nothing
End Function

使用方法:
<img src=\'#\'" />