CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章文件名 正则表达式提取方法由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

下面这段子程基本上可以算是比较不错的通用匹配了。(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.zzvips.com/cm/upload/2ed312.jpg[/img]<a href=""http://www.zzvips.com/ddd.jpg""></a> href=""http://www.zzvips.com/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]<sctipt src=""http://www.zzvips.com/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.zzvips.com/cm/upload/2ed312.jpg[/img]<a href=""http://www.zzvips.com/ddd.jpg""></a> href=""http://www.zzvips.com/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]<sctipt src=""http://www.zzvips.com/upload/sss.jpg"" src=http://www.zzvips.com/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:最近正则又精进不少... 。

最后此篇关于文件名 正则表达式提取方法的文章就讲到这里了,如果你想了解更多关于文件名 正则表达式提取方法的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。