下面這段子程基本上可以算是比較不錯的通用匹配了。 (PS:我突然發現CODE_LITE把我的UBB轉義了!!!暈,我只好自己轉義了。。。)
DimobjRegExp,Matches,i,DC9_DOT_CN_MATCH
DimaryMatch()
RedimPreservearyMatch(0)
SetobjRegExp=NewRegExp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern="(?:/[[^/]]+/]([^/[]+)/[//[^/]]+/])|(?:(?:href|src)=([^/s|^>]+)[""|>|/s/'])"
SetMatches=objRegExp.Execute("[img]2312.jpg[/img][img]2312.jpg[/img]hh[img]http://www.dc9.cn/cm/upload/2ed312.jpg[/img]<ahref=""http://www.dc9.cn/ddd. jpg""></a>href=""http://www.dc9.cn/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]<sctiptsrc=""http://www.dc9.cn/upload/sss.jpg""")
DimTmpMatch
Fori=0toMatches.Count-1
CallInsertDataToArray(Matches(i).SubMatches(0),aryMatch)
CallInsertDataToArray(Matches(i).SubMatches(1),aryMatch)
Next
Fori=0toUbound(aryMatch)
IfNotIsNull(aryMatch(i))AndTrim(aryMatch(i))<>""ThenResponse.writearyMatch(i)&"<br>"
Next
FunctionInsertDataToArray(Data,ByRefaryMatch)
IfTrim(Data)<>""Then
Data=Replace(Data,"'","")
Data=Replace(Data,"""","")
Data=Replace(Data,"/","/")
Data=Split(Data,"/")(Ubound(Split(Data,"/")))
RedimPreservearyMatch(Ubound(aryMatch)+1)
DC9_DOT_CN_MATCH=False
Forj=0toUbound(aryMatch)
IfaryMatch(j)=DataThenDC9_DOT_CN_MATCH=True
Next
IfNotDC9_DOT_CN_MATCHThenaryMatch(Ubound(aryMatch))=Data
EndIf
EndFunction
實際上,Z-Blog的話就匹配Upload就可以了(但是我為了省事,也為了更精確些,就乾脆在上面的那個匹配上面加上了upload,所以看上去好像下面這個更複雜些,其實理論上應該下面這個簡單些,畢竟有upload管著呢。。),也不用SPLit那個/.這麼寫就可以了:
DimobjRegExp,Matches,i,ZC_UPLOAD_MATCH
DimaryMatch()
RedimPreservearyMatch(0)
SetobjRegExp=NewRegExp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern="(?:/[[^/]]+/][^/[]*upload//([^/[|^//|^//]+)/[//[^/]]+/])|(?:(?:href|src)=""{0,1}[^/s|^""|^>|^']*upload//([^/s|^>]+)[""|>|/s/'])"
SetMatches=objRegExp.Execute("[img]2312.jpg[/img][img]2312.jpg[/img]hh[img]http://www.dc9.cn/cm/upload/2ed312.jpg[/img]<ahref=""http://www.dc9.cn/ddd.jpg""></a>href=""htt p://www.dc9.cn/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]<sctiptsrc=""http://www.dc9.cn/upload/sss.jpg""src=http://www.dc9.cn/upload/sasds.jpg'>")
DimTmpMatch
Fori=0toMatches.Count-1
CallInsertDataToArray(Matches(i).SubMatches(0),aryMatch)