Descargar pagina web y leerle el codigo

764 views
Skip to first unread message

Foxero10

unread,
Dec 13, 2012, 10:27:14 AM12/13/12
to publice...@googlegroups.com
Hola a todos, 

Me podría alguien ayudar?

Desde una aplicación VFP necesito poder ingresar la dirección de un sitio web, necesito descargar esa pagina (o leerla en linea) y así poder saber si tiene alguna palabra en particular.


Gracias!

Luis Maria Guayan

unread,
Dec 13, 2012, 12:35:27 PM12/13/12
to publice...@googlegroups.com
DECLARE LONG URLDownloadToFile IN "urlmon";
  LONG pCaller,;
  STRING szURL,;
  STRING szFileName,;
  LONG dwReserved,;
  LONG lpfnCB
lcUrl="http://www.portalfox.com"
lcFile="c:\MiPagina.html"
IF URLDownloadToFile(0, lcURL, lcFile, 0, 0)  = 0
  MODIFY FILE (lcFile)
ENDIF


Tomado de: http://www.portalfox.com/article.php?sid=297


Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 

Fox Learner

unread,
Dec 13, 2012, 1:41:56 PM12/13/12
to publice...@googlegroups.com
Increible ese código!!

Fabrica un html de las páginas web, con los ojos cerrados!

Lo hizo en segundos, y eso que es una máquina con XP..

Saludos!

Miguel

unread,
Dec 14, 2012, 7:19:19 AM12/14/12
to publice...@googlegroups.com
También así, si lo quieres es tener el texto de la página en una variable iText.
 
 objeto.navigate2("http://www.tupagina.com")
 ObjTexto ='Cargando la página.'
 Do While objeto.busy 
  Wait Window ObjTexto Time(0.2)
  ObjTexto= ObjTexto+'.'
 Enddo
 iText = Objeto.DOcument.Body.innerTEXT 
Saludos
Message has been deleted

Víctor Hugo Espínola Domínguez

unread,
Dec 15, 2012, 11:55:39 AM12/15/12
to publicesvfoxpro
Hola Foxero10

>thisform.edit1.Value= fopen(lcFile)

Prueba con: thisform.edit1.Value = FILETOSTR(lcFile)

Saludos.
Víctor.


El 14 de diciembre de 2012 18:08, Foxero10 <mhe...@webcreativa.com.co> escribió:
thisform.edit1.Value= fopen(lcFile)

Foxero10

unread,
Dec 17, 2012, 5:40:24 PM12/17/12
to publice...@googlegroups.com
Gracias Victor Hugo, escelente.

Ahora, tengo una encesidad:

Como hago para recorrer el archivo y buscar las coincidencias de palabras?
Es decir, como hago para saber CUANTOS y CUALES etiquetaqs H1 tengo en el texto?


Gracias!

Luis Maria Guayan

unread,
Dec 17, 2012, 6:55:41 PM12/17/12
to publice...@googlegroups.com
Mira la función OCCURS

Ej:
? OCCURS("<H1>", lcFile)
 
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________



--
 
 

Foxero10

unread,
Dec 18, 2012, 2:24:48 PM12/18/12
to publice...@googlegroups.com
MAGNIFICO!!!

Funciona de maravilla, gracias!!
Reply all
Reply to author
Forward
0 new messages