正規表示式結合數組提取文章中的檔案名

今天編ZBlog上傳模組的時候，需要用到一個提取文章中文件名的子程，開始我把問題想複雜了，匹配了所有可能的文件名，不僅正則表達式寫了一大串，而且下面還Split了半天，後來我突然發現Z-Blog的上傳檔案都存在upload下，白寫了那麼多複雜的配對。 。 。哎，不能浪費掉啊，還是貼上來萬一哪個兄弟以後需要也好拿去用~~

下面這段子程基本上可以算是比較不錯的通用匹配了。 (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][/img]<a href="" src="" Dim TmpMatch
For i=0 至 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
為 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][/img]<a href="" src="" Data=Replace( Data,"""","")
Redim Preserve aryMatch(Ubound(aryMatch)+1)
ZC_UPLOAD_MATCH=False
為 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

來源： http://www.dc9.cn/post/279.html