23/10/2008, 07:39
|
| | | Fecha de Ingreso: octubre-2008
Mensajes: 2
Antigüedad: 16 años, 5 meses Puntos: 0 | |
| Respuesta: Leer web en texto para extraer datos
No he encontrado ninguna otra función y eso que llevo unos días buscando...
He avanzado un poco, es problema de detectar que la pagina está totalmente cargada, con el siguiente codigo se mejora mucho el rendimiento, el número de errores de lectura se reduce a la mitad.
While objIE.Busy
Wend
c1 = objIE.Document.body.innerhtml
If c1="" then
While objIE.Busy
Wend
c1 = objIE.Document.body.innerhtml
End if
El unico cambio respecto al codigo anterior es que si no leo nada vuelvo a leer.
Debe haber alguna otra forma (mejor que objIE.Busy) de controlar que la pagina ha sido leida por completa para que objIE.Document.body.innerhtml no devuelva error. |