La siguiente subrutina básicamente puede considerarse una coincidencia general relativamente buena. (PD: De repente descubrí que Code_lite escapó de mi ubb !!! estaba tan mareado que tenía que escapar de mí mismo ...)
Dimobjregexp, coincidencias, i, dc9_dot_cn_match
DeneRyMatch ()
REDIMPRESEVEArMATCH (0)
Setobjregexp = newregexp
objegexp.ignorecase = True
objregexp.global = verdadero
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•/imgfont><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] <sceptsrc = "" http://wwww.dc9.cn/uplas
Dimtmpmatch
Fori = 0tomatches.Count-1
CallinsertdatatoArray (partidos (i) .submatches (0), arymatch)
CallinsertdatatoArray (partidos (i) .submatches (1), arymatch)
Próximo
Fori = 0toUbound (arymatch)
IfnotisNull (aryMatch (i)) andtrim (arymatch (i)) <> "" entoncesResponse.WriteArmatch (i) y "<br>"
Próximo
FunctionInsertDatatoArray (datos, byrefarymatch)
Iftrim (datos) <> "" entonces
Data = reemplazar (datos, "" "," ")
Data = reemplazar (datos, "" "," ")
Data = reemplazar (datos, "/", "/")
Data = split (data, "/") (Ubound (Split (Data, "/")))
REDIMPRESERVEArMATCH (UBOUND (ARYMATCH) +1)
Dc9_dot_cn_match = falso
Forj = 0toUbound (arymatch)
Ifarymatch (j) = datathendc9_dot_cn_match = true
Próximo
IfNOTDC9_DOT_CN_MATCHTHENARYMATCH (Ubound (aryMatch)) = datos
Endif
Función final
De hecho, si se usa el bloqueo z, es suficiente para igualar la carga (pero para guardar problemas y ser más precisos, simplemente agrego la carga a la coincidencia anterior, por lo que parece que el siguiente es más complicado. De hecho, teóricamente, el siguiente debería ser más simple, después de todo, hay una carga para control ...). No necesitas dividir/. para escribirlo así:
Dimobjregexp, coincidencias, i, zc_upload_match
DeneRyMatch ()
REDIMPRESEVEArMATCH (0)
Setobjregexp = newregexp
objegexp.ignorecase = True
objregexp.global = verdadero
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.jpgche/imgfont><ahref= "" htt: //www.dc9.cn/ddd.jpg ""> </a> href = "" htt p: //www.dc9.cn/dccdd.jpg ""> [img_right = 400,300, título] cargue/2assas.jpg [/img_right] <s ceptsrc = "" http://www.dc9.cn/upload/sss.jpg "" src = http: //www.dc9.cn/upload/sss.jpg '> ")
Dimtmpmatch
Fori = 0tomatches.Count-1
CallinsertdatatoArray (partidos (i) .submatches (0), arymatch)