Trucos 23 de Noviembre del 2006 06:00 am
Obtener un listado de los links de una página web
Bueno, luego de la función para obtener una “versión de solo texto de una página web” les traigo otra función que devuelve el listado de vinculos dentro de la página web que le indiquemos como parametro.
su uso es sencillo:
Mostrandolo en la pantalla de VFP
?GetPageLinks("http://google.com")
Grabando el listado en un archivo de texto:
Strtofile(GetPageLinks("http://google.com"), "c:/google_links.txt",0)
El código de la función es este:
Function GetPageLinks(cUrl As String) As String
Local Texto, oIE, cResul, oDoc
oIE = Createobject("InternetExplorer.Application")
oIE.Navigate2(cUrl)
Texto ="Procesando página"
Do While oIE.busy
Wait Window Texto Nowait
Enddo
Wait Window Texto Timeout 1.5
*Para forzar a que IE termine de cargar la página
oDoc = oIE.Document
Texto = Type("oDoc.body")
lntotal = oDoc.links.Length
cResul =[]
For lnCiclo = 0 To oDoc.links.Length-1
elemento =oDoc.links.Item(lnCiclo).toString()+Chr(13)+Chr(10)
cResul = cResul + elemento
Endfor
Wait Clear
oDoc = .Null.
Release oDoc
oIE.Quit
Release oIE
Return cResul
Endfunc
Saludos y hasta la próxima