Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Href
Message
 
To
29/11/2010 14:19:11
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Href
Miscellaneous
Thread ID:
01490952
Message ID:
01491003
Views:
98
If you have the document:
CLEAR
o = CREATEOBJECT("InternetExplorer.Application")
o.visible=.t.
o.Navigate("http://www.west-wind.com")

WAIT WINDOW 

lcOutput = ""

*** Loop through all the links in the page
*** and create a string of just the links
FOR EACH loLink IN o.Document.Links
   lcOutput = lcOutput + ;
              [<a href="] + loLink.Href + [">] + ;
              loLink.innerText + [</a><hr>]
ENDFOR

* ? lcOutput

*** Reload the browser page with just the links displayed as text
o.Document.Body.innerHtml = lcOutput
RETURN
+++ Rick ---

>I am having trouble finding a way to scan the HREF portion of a website and get URLs listed and save the URLs in a table
>
>
lcHTML=lox.DOCUMENT.body.innertext
>
>Any ideas?
+++ Rick ---

West Wind Technologies
Maui, Hawaii

west-wind.com/
West Wind Message Board
Rick's Web Log
Markdown Monster
---
Making waves on the Web

Where do you want to surf today?
Previous
Reply
Map
View

Click here to load this message in the networking platform