美女和美女吃奶亲嘴,国产精品入口牛牛影视

下面這段子程基本上可以算是比較不錯(cuò)的通用匹配了。(PS:我突然發(fā)現(xiàn)CODE_LITE把我的UBB轉(zhuǎn)義了！?。?我只好自己轉(zhuǎn)義了。。。)

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
實(shí)際上，Z-Blog的話就匹配Upload就可以了（但是我為了省事，也為了更精確些，就干脆在上面的那個(gè)匹配上面加上了upload，所以看上去好像下面這個(gè)更復(fù)雜些，其實(shí)理論上應(yīng)該下面這個(gè)簡(jiǎn)單些，畢竟有upload管著呢。。），也不用SPLit那個(gè)/.這么寫(xiě)就可以了：

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:最近正則又精進(jìn)不少...

您可能感興趣的文章:

FileUpload1 上傳文件類(lèi)型驗(yàn)證正則表達(dá)式
用正則獲取指定路徑文件的名稱(chēng)
.NET讀取所有目錄下文件正則匹配文本電子郵件
javascript 獲取鏈接文件地址中第一個(gè)斜線內(nèi)的正則表達(dá)式
js 得到文件后綴(通過(guò)正則實(shí)現(xiàn))
最全的用正則批量去除Teleport Pro整站下載文件冗余代碼
shell腳本正則匹配文件中的Email并寫(xiě)入到文件中代碼分享
Powershell學(xué)習(xí)筆記--使用正則表達(dá)式查找文件
簡(jiǎn)單分析javascript面向?qū)ο笈c原型

標(biāo)簽：錫林郭勒盟新余雅安儋州宣城江門(mén) 七臺(tái)河廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《文件名正則表達(dá)式提取方法》，本文關(guān)鍵詞文件名,正則,表達(dá)式,提取,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

文件名 正則表達(dá)式提取方法

文件名正則表達(dá)式提取方法