A sub -rotina a seguir pode basicamente ser considerada uma correspondência geral relativamente boa. (PS: De repente, descobri que o code_lite escapou do meu UBB !!! Eu estava tão tonto que tive que escapar de mim mesmo ...)
DIMOBJREGEXP, MACHES, 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/dd. jpg ""> </a> href = "" http://www.dc9.cn/dccdd.jpg ""> [img_right = 400,300, title] upload/2assas.jpg [/img_right] <sCcetsrc = "" http.//www.cw.cg.cww.cg.
Dimtmpmatch
Fori = 0tomatches.count-1
CallinsertDatatoArray (Matches (i) .Submatches (0), AryMatch)
CallinsertDatatoArray (Matches (i) .Submatches (1), AryMatch)
Próximo
Fori = 0TOUBOUND (ARYMACT)
IfnotisNull (ARYMACT (i)) ANDTRIM (ARYMACT (i)) <>
Próximo
FunctionInsertDatatoArray (Data, ByReFaryMatch)
Iftrim (dados) <> "" então
Dados = substituir (dados, "'", "")
Dados = substituir (dados, "" "", "")
Dados = substituir (dados, "/", "/")
Dados = dividir (dados, "/") (ubound (split (dados, "/")))))
RedimPreserservearyMatch (Ubound (ARYMATCH) +1)
Dc9_dot_cn_match = false
Forj = 0TOUBOUND (ARYMACT)
IfaryMatch (j) = datathendc9_dot_cn_match = true
Próximo
IFNOTDC9_DOT_CN_MATCHTHENARYMATCH (UBOUND (ARYMATCH)) = DATA
Endif
Função final
De fato, se o z-blog for usado, é suficiente para combinar o upload (mas para economizar problemas e ser mais preciso, eu simplesmente adiciono o upload à correspondência acima, por isso parece que o seguinte é mais complicado. De fato, teoricamente, o seguinte deve ser mais simples, afinal, há um upload para controlar ...). Você não precisa de divisão/. Para escrever assim:
DIMOBJREGEXP, MACHES, 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: // ww w.dc9.cn/cm/upload/2ed312.jpg[/img] <ahref= "" htt: //www.dc9.cn/dd.jpg ""> </a> href = "" htt p: //www.dc9.cn/dccdd.jpg ""> [img_right = 400,300, title] upload/2assas.jpg [/img_right] <s ceptsrc = "" http://www.dc9.cn/upload/ss.jpg "" src = http: //www.dc9.cn/upload/ss.jpg '> ")
Dimtmpmatch
Fori = 0tomatches.count-1
CallinsertDatatoArray (Matches (i) .Submatches (0), AryMatch)