Todavía hay errores en la actualidad, y la última página de prueba es: http://www.reallydo.com/getimg.asp
La página de análisis regular es en: http://jorkin.reallydo.com/article.asp?id=380
Si encuentra un error, deje un mensaje más tarde, gracias.
1.31 corrección
src = los espacios después de que no puede coincidir correctamente. Fijado.
Se produjo un error cuando src = '' está vacío. Fijado.
Se encontró un error: solo uno puede ser retenido cuando la ruta de la imagen tiene múltiples espacios. Sin corregir.
2.18 Corrección
Cuando la ruta de la imagen tiene múltiples espacios, solo se puede conservar un error. Fijado.
La copia del código es la siguiente:
<%
'Función: obtenga todas las direcciones de imagen y guárdelas en una matriz.
'Fuente: http://jorkin.reallydo.com/article.asp?id=448
Se requiere la función reemplazo: http://jorkin.reallydo.com/article.asp?id=406
FunctionGetImg (SSTRING)
Dimsreallydo, Regex, Ireallydo
Dimomatches, cmatch
'// Defina una matriz vacía
Ireallydo = -1
Redimareallydo (irreallydo)
Ifisnull (sstring) entonces
getimg = ""
Extinción
Endif
'// Formato de código HTML
'// Traiga cada <iMg Line Break para facilitar el reemplazo regular
sreallydo = sstring
OnerrorResumEnext
sreallydo = reemplazar (sreallydo, vbcr, "")
sreallydo = reemplazar (sreallydo, vblf, "")
sreallydo = reemplazar (sreallydo, vbtab, "")
sreallydo = reemplazar (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = reemplazar (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = replaceAll (sreallydo, "=", "=", verdadero)
sreallydo = reemplazar (sreallydo, ">", ">", verdadero)
sreallydo = reemplazar (sreallydo, "> <", ">" & vbcrlf & "<")
sreallydo = Trim (sreallydo)
Onerrorgoto0
Setregex = newregexp
regex.ignorecase = true
regex.global = verdadero
'// Eliminar OnClick, Onload y otros scripts
regex.pattern = "/s [on].+? = ([/" "| /'font>)(.*?)/ 1"