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

下面这段子程基本上可以算是比较不错的通用匹配了。(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)

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!