您的位置:程序门 -> web 开发 -> asp



获取图片路径的正则表达式,请帮助完善


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


获取图片路径的正则表达式,请帮助完善[已结贴,结贴人:ywqxtx]
发表于:2008-01-16 12:44:00 楼主
vbscript code
<% dim tempstr tempstr=" <p> 新闻内容 <img height="高度是变化的" width="宽度也是变化的" alt="" src="/news/pic/2008-1/image/fl200801070943422936.gif" /> </p> " dim objregexp set objregexp=new regexp objregexp.ignorecase = true objregexp.global = true objregexp.pattern=" <img src='.+?'> " set matches = objregexp.EXECute(tempstr) objregexp.pattern="src='.+?'" for each match in matches set matches1=objregexp.EXECute(match.value) aa=aa & replacereplace(matches1(0).value,"src=",""),"'","") &"@" next aa=left(aa,len(aa)-1) response.write(aa) &" <br> " bb=split(aa,"@") for i=0 to ubound(bb) response.write(bb(i)) &" <br> " next %>
         

-----------------------上面的正则表达式,是要读取新闻内容中的图片的路径,新闻内容是会变的,也就是要判断有没有图片,如果有的话不同的新闻内容图片的高度和宽度是会变化的。

发表于:2008-01-16 18:24:461楼 得分:20
vbscript code
<% function getstr(fstring,patrn) dim str str="" set regex = new regexp regex.pattern = patrn regex.ignorecase = true regex.global = true set reg=regex.EXECute(fstring) int i=0 for i=0 to (reg.count-1) if i=(reg.count-1) then str = str & reg(i) else str = str & reg(i) & "," end if next getstr=str end function str="xxsdfsdfw<b/>x<img border=""0"" src=""asad/skdja/20071130025234ec90f.jpg"">sdfsdafas<img border=""0"" src='bsdj/gfb/20071130025234ec90f.gif' width=""100%""/>asdsfd<img border=""0"" src=cfsdfc/20071130025234ec90f.jpg >"'新闻的内容赋值给str str=(getstr(str,"(src\s*=\s*)([\s\s]+?)(\""|\')")) 'str=(getstr(str,"(src\s*=\s*)([\s\s]+?)(\.jpg|\.gif|\.bmp).?"))'这个不大好 a=split(str,",") for i=0 to ubound(a) response.write(a(i)&"<br/>") next response.end() %>
发表于:2008-01-16 18:25:512楼 得分:0
不过这个正则src=图片地址的时候,也就是没有单引号或者双引号的时候无法匹配...
发表于:2008-01-16 18:31:493楼 得分:0
我的是有双引号的大哥,怎么解决!~
发表于:2008-01-16 18:46:154楼 得分:0
你太有才了   luxu001207    


快速检索

最新资讯
热门点击