La siguiente es una función para extraer la dirección de la imagen en HTML:
el principio fundamental es utilizar expresiones regulares para determinar el atributo <src> de <img>. Esto será muy útil en programas de adquisición.
La función es la siguiente:
El siguiente es un fragmento de cita:
Función MostrarPic(cadena)
Set objRegExp = Nuevo objeto de configuración Regexp'set
objRegExp.IgnoreCase = True'Ignorar caso
objRegExp.Global = True' configurado para búsqueda de texto completo
objRegExp.Pattern = "<img.+?>"
'Para garantizar que la dirección de la imagen se pueda recuperar con precisión, se divide en dos niveles de configuración: primero busque la etiqueta <img> en el interior y luego recupere la dirección de la imagen en el interior. La función getimgs detrás implementa la última función.
cadenas = recortar (cadena)
Set Matches =objRegExp.Execute(strs)'Comenzar a ejecutar la configuración
Para cada partido en partidos
RetStr = RetStr &getimgs( Match.Value )'Realizar la segunda ronda de emparejamiento
Próximo
MostrarPic = RetStr
Función final
Función getimgs(cadena)
getimgs=""
Establecer objRegExp1 = Nueva expresión regular
objRegExp1.IgnoreCase = Verdadero
objRegExp1.Global = Verdadero
objRegExp1.Pattern = " http://.+?"""' Obtenga la dirección dentro
establecer mm=objRegExp1.Execute(cadena)
Para cada partido1 en mm
getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)&"||"'Encadena las direcciones internas para su uso posterior
próximo
Función final
'Obtener contenido de imagen
función getHTTPage(url)
en caso de error reanudar siguiente
http oscuro
set http=server.createobject("MSXML2.XMLHTTP")'Utilice el método xmlhttp para obtener el contenido de la imagen
Http.open "OBTENER", URL, falso
http.enviar()
si Http.readystate<>4 entonces
función de salida
terminar si
getHTTPPage=Http.responseBody
establecer http=nada
si número de error <> 0 entonces err.Borrar
función final
'Guardar imagen
función guardar imagen (de, al archivo)
geturl tenue,objStream,imgs
geturl=recortar(de)
imgs=gethttppage(geturl)'El proceso de obtención del contenido específico de la imagen
Set objStream = Server.CreateObject("ADODB.Stream")' Para crear un objeto ADODB.Stream, se requiere ADO 2.5 o superior
objStream.Type =1'Abrir en modo binario
objStream.Open
objstream.write imgs' escribe el contenido de la cadena en el búfer
objstream.SaveToFile server.mappath(tofile),2'-escribe el contenido almacenado en el buffer en el archivo
objstream.Close()'Cerrar el objeto
establecer objstream = nada
función final
'Llamar instancia
Dim strpic,i,fname
strpic = ShowPic("<DIV align=center><IMG src="" strpic = Split(strpic,"||")
Si UBound(strpic) > 0 Entonces
Para i = 0 a UBound(strpic) - 1
'Guardar imagen
fname=cstr(i&mid(strpic(i),instrrev(strpic(i),".")))
guardarimagen(strpic(i),fname)
Próximo
Demás
Terminar si