作家
登录

文件名 正则表达式提取方法

作者: 来源:www.28hudong.com 2013-03-30 08:31:17 阅读 我要评论

下面这段子程基本上可以算是比较不错的通用匹配了。(PS:我突然发现CODE_LITE把我的UBB转义了!!!晕,我只好自己转义了。。。) Dim objRegExp,Matches,i,DC9_DOT_CN_MATCH Dim aryMatch() Redim Preserve aryMatch(0) Set objRegExp=New RegExp objRegExp.IgnoreCase =True objRegExp.Global=True objRegExp.Pattern="(?:[[^]]+]([^[]+)[/[^]]+])|(?:(?:href|src)=([^s|^>]+)[""|>|s'])" Set Matches = objRegExp.Execute("[img]2312.jpg[/img][img]2312.jpg[/img]hh[img]http://www.dc9.cn/cm/upload/2ed312.jpg[/img]<a href=""http://www.dc9.cn/ddd.jpg""></a> href=""http://www.dc9.cn/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]<sctipt src=""http://www.dc9.cn/upload/sss.jpg""") Dim TmpMatch For i=0 to Matches.Count-1 Call InsertDataToArray(Matches(i).SubMatches(0),aryMatch) Call InsertDataToArray(Matches(i).SubMatches(1),aryMatch) Next For i=0 to Ubound(aryMatch) If Not IsNull(aryMatch(i)) And Trim(aryMatch(i))<>"" Then Response.write aryMatch(i)&"<br>" Next Function InsertDataToArray(Data,ByRef aryMatch) If Trim(Data)<>"" Then Data=Replace(Data,"'","") Data=Replace(Data,"""","") Data=Replace(Data,"","/") Data=Split(Data,"/")(Ubound(Split(Data,"/"))) Redim Preserve aryMatch(Ubound(aryMatch)+1) DC9_DOT_CN_MATCH=False For j=0 to Ubound(aryMatch) If aryMatch(j)=Data Then DC9_DOT_CN_MATCH=True Next If Not DC9_DOT_CN_MATCH Then aryMatch(Ubound(aryMatch))=Data End If End Function 实际上,Z-Blog的话就匹配Upload就可以了(但是我为了省事,也为了更精确些,就干脆在上面的那个匹配上面加上了upload,所以看上去好像下面这个更复杂些,其实理论上应该下面这个简单些,毕竟有upload管着呢。。),也不用SPLit那个/.这么写就可以了: Dim objRegExp,Matches,i,ZC_UPLOAD_MATCH Dim aryMatch() Redim Preserve aryMatch(0) Set objRegExp=New RegExp objRegExp.IgnoreCase =True objRegExp.Global=True objRegExp.Pattern="(?:[[^]]+][^[]*upload/([^[|^\|^/]+)[/[^]]+])|(?:(?:href|src)=""{0,1}[^s|^""|^>|^']*upload/([^s|^>]+)[""|>|s'])" Set Matches = objRegExp.Execute("[img]2312.jpg[/img][img]2312.jpg[/img]hh[img]http://www.dc9.cn/cm/upload/2ed312.jpg[/img]<a href=""http://www.dc9.cn/ddd.jpg""></a> href=""http://www.dc9.cn/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]<sctipt src=""http://www.dc9.cn/upload/sss.jpg"" src=http://www.dc9.cn/upload/sasds.jpg'>") Dim TmpMatch For i=0 to Matches.Count-1 Call InsertDataToArray(Matches(i).SubMatches(0),aryMatch) Call InsertDataToArray(Matches(i).SubMatches(1),aryMatch) Next For i=0 to Ubound(aryMatch) If Not IsNull(aryMatch(i)) And Trim(aryMatch(i))<>"" Then Response.write aryMatch(i)&"<br>" Next Function InsertDataToArray(Data,ByRef aryMatch) If Trim(Data)<>"" Then Data=Replace(Data,"'","") Data=Replace(Data,"""","") Redim Preserve aryMatch(Ubound(aryMatch)+1) ZC_UPLOAD_MATCH=False For j=0 to Ubound(aryMatch) If aryMatch(j)=Data Then ZC_UPLOAD_MATCH=True Next If Not ZC_UPLOAD_MATCH Then aryMatch(Ubound(aryMatch))=Data End If End Function PS:最近正则又精进不少...

  推荐阅读

  asp创建表,复制表 字段类型附录

在已有数据库中创建表 <% set conn=server.CreateObject("adodb.connection") sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb") conn.open sql Conn.Execute("create table b>>>详细阅读


本文标题:文件名 正则表达式提取方法

地址:http://www.17bianji.com/kaifa2/ASP/32303.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)