Guardar página Web como texto

[Zarlu]

Buenas noches foxeros!

Los navegadores en su menú tienen la opción de "Guardar como".

Deseo usar esa opción por código para guardar como texto el contenido de la página consultada para después obtener información de ella.

He usado URLDownloadToFile y lo guarda como texto, pero la forma en que lo guarda no es el mismo.

No quiero usar automatización de Internet Explorer para no limitar el uso a ese navegador.

Alguien sabrá como ejecutar "Guardar como" con código de vfp?

Gracias

zarlu

Chetumal, Quintana Roo, México

[ZeRoberto]

Probaste la libreria vfpconnection.fll de sweetpotato?

Tiene esta funcion que te puede servir

HTTPGet("http://www.somedomain.com/Source.htm", "C:\Destination.htm", "MyProgress()", "MyTrace()")

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/294ef232-0368-435c-9f0e-4f2da483246fn%40googlegroups.com.

[Zarlu]

Qué tal ZeRoberto!

La buscaré. Tendrás el link de donde obtenerla?

Gracias

zarlu

Chetumal, Quintana Roo, México

[ZeRoberto]

https://comunidadvfp.blogspot.com/2008/02/cargandodescargando-en-vfp-de-manera.html

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/ae213ee9-cf82-4ffb-ad8e-69166e010cbfn%40googlegroups.com.

[Zarlu]

Qué tal ZeRoberto!

Encontré la versión que acepta HTTPS, pero el resultado es similar al de la API URLDownLoadToFile.

Puntualizo mi comentario:

El contenido de la página se guarda diferente usando la opción "Guardar como" del menú del navegador y guardando como texto. Y es así como me gustaría obtenerlo.

Gracias

zarlu

Chetumal, Quintana Roo, México

[ZeRoberto]

Hola Zarlu a mi no me funciona con nada, talvez necesitas convertirla a UTF-8

lcBuffer = FileToStr("C:\descargado.htm")

StrToFile(lcBuffer, "C:\nuevo.htm", 4)

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/4fd71ae1-82de-43c4-ad18-f2234fc74ef5n%40googlegroups.com.

[ZeRoberto]

Probe con HTTPS y si me descargo

Clear
SET LIBRARY TO (LOCFILE("vfpconnection.fll", "FLL"))
lcUrl = "https://www.devguru.com/content/technologies/wsh/wshshell-specialfolders.html"
lcFile = "d:\demo.html"
? lcUrl, lcFile
? HTTPSGet(lcUrl, lcFile)
SET LIBRARY TO

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/4fd71ae1-82de-43c4-ad18-f2234fc74ef5n%40googlegroups.com.

[Zarlu]

Buenas noches ZeRoberto!

De que descarga, descarga ....

A ver si puedes hacer unas pruebas con éste link:

lcUrl = "https://www.interpol.int/es/Como-trabajamos/Notificaciones/Ver-las-notificaciones-rojas"
lcFile = "d:\pagweb.txt"

Después manualmente con MOZILLA guarda la página como archivo de texto

Compara contenidos y son diferentes.

(Estoy notando, después de probar con varios navegadores, que Mozilla es el único que tiene la opción de guardar como texto. Pero bueno es lo que requiero)

Gracias

zarlu

Chetumal, Quintana Roo, México

[ZeRoberto]

Hola Zarlu esa si no la baja, el detalle es que cuando le das descargar desde el navegador, está la vuelve a explorar nuevamente y descarga todos los componentes que tienes ya sea scripts, css, imágenes, al hacer esto modifica las rutas de los archivos, en cambio si lo bajas con HTTPSGet los baja tal como está en el servidor y no baja los demás componentes.

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9487f74b-5742-44ee-af03-9b6ebe0b6cfdn%40googlegroups.com.

[ggcagnola gmail]

no entiendo porque querés en texto la web cuando el html es texto...

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9487f74b-5742-44ee-af03-9b6ebe0b6cfdn%40googlegroups.com.

[Esteban Herrero]

Hola Zarlu.

Probá este a ves si te sirve

LOCAL loIE, lcContenidoURL
   loIE = CREATEOBJECT("InternetExplorer.Application")
   loIE.Navigate('https://www.interpol.int/es/Como-trabajamos/Notificaciones/Ver-las-notificaciones-rojas')
   * Esperar mientras se obtiene página
   *WAIT WINDOW "Espere por favor, obteniendo datos..."
   DO While loIE.Busy OR loIE.ReadyState # 4
   ENDDO
   lcContenidoURL = loIE.Document.Body.InnerText
   STRTOFILE(lcContenidoURL, 'Prueba.txt')
  *RETURN lcContenidoURL
 RETURN .T.

[Zarlu]

Buenas tardes!

Que tal ggcagnola!

No es que lo descargue en tipo texto. Es el contenido.

A diferencia de vfpconnection.fll y URLDownloadToFile al guardarlo manual como tipo texto con Mozilla descarga otra información. Y es lo que requiero.

Qué tal Estaban!

Gracias por la sugerencia. No la consideré en un principio para no limitar mi aplicación al uso de Internet Explorer. Pero dada la situación creo que tendré que usar automatización para IE y Selenium para Mozilla. Así al menos tendré dos opciones de navegador.

Agradezco a ambos su interés

zarlu

Chetumal, Quintana Roo

[Gabriel Araya Garcia]

Pero es interesante saber: "para después obtener información de ella"

A lo mejor es más simple algo que focalice tu objetivo en vez de proponer soluciones que no resuelven tu propósito.

Si aclaras eso, puede ser que la solución sea más rápida.

Saludos

Gabriel Araya Garcia

GMI - Desarrollo de Sistemas Informáticos

--