asp正则问题,函数获取文章中的图片问题
FunctionRegImg_anli(TheStr)DimRegEx_anliSetRegEx_anli=NewRegExpRegEx_anli.IgnoreCase=...
Function RegImg_anli(TheStr)
Dim RegEx_anli
Set RegEx_anli = New RegExp
RegEx_anli.IgnoreCase =True
RegEx_anli.Global = True
RegEx_anli.Pattern = "<img[^>]*src\s*=\s*['"&CHR(34)&"]?([\w/\-\:.]*)['"&CHR(34)&"]?[^>]*>"
If Regex_anli.test(TheStr) then
Dim Matches
Set Matches = RegEx_anli.Execute(TheStr) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
'RetStr = RetStr & Match.Value '获取整个img
'RetStr = RetStr & Match.SubMatches(0) '只取src
RetStr = RetStr&"<li _src='' style='background:url(" & Match.SubMatches(0)&") center 0px no-repeat;'></li>" '
Next
RegImg_anli = RetStr
End If
End Function
以上函数是我在网上看到的,好用是好用,但是有个问题,当文章中图片地址如例(20140620(2).jpg)的时候,地址中的“(2)”获取不到,同时“(2)”后面的后缀也获取不到
求大神 展开
Dim RegEx_anli
Set RegEx_anli = New RegExp
RegEx_anli.IgnoreCase =True
RegEx_anli.Global = True
RegEx_anli.Pattern = "<img[^>]*src\s*=\s*['"&CHR(34)&"]?([\w/\-\:.]*)['"&CHR(34)&"]?[^>]*>"
If Regex_anli.test(TheStr) then
Dim Matches
Set Matches = RegEx_anli.Execute(TheStr) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
'RetStr = RetStr & Match.Value '获取整个img
'RetStr = RetStr & Match.SubMatches(0) '只取src
RetStr = RetStr&"<li _src='' style='background:url(" & Match.SubMatches(0)&") center 0px no-repeat;'></li>" '
Next
RegImg_anli = RetStr
End If
End Function
以上函数是我在网上看到的,好用是好用,但是有个问题,当文章中图片地址如例(20140620(2).jpg)的时候,地址中的“(2)”获取不到,同时“(2)”后面的后缀也获取不到
求大神 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询