Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Comparing 2 tables; getting list of missing records
Message
 
 
To
07/08/2005 03:55:28
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01037464
Message ID:
01039166
Views:
24
Olaf, Craig and Malcolm,

The crawler is easier if you use an IE instance:
oShell = CREATEOBJ('Shell.Application')
oIEColl = oShell.Windows
oIE2 = .null.

FOR EACH oIE IN oIEColl
   IF "IEXPLORE.EXE" $ upper( oIE.FullName )
      lnFound = messagebox(  oIE.LocationName, 4 )
      if ( lnFound = 6 )
         oIE2 = oIE
         exit
      endif
   ENDIF
ENDFOR
oIEColl = NULL
oShell = NULL

if ( isnull( oIE2 ) )
   return
endif

oIE = oIE2

? oIE.LocationName
activate window "debug output"

oDoc = oIE.Document
for each oLink in oDoc.Links
   debugout oLink.href
endfor
>I've done a web crawler for (german) words. Starting at a news magazine (www.spiegel.de), I downloaded pages and extracted links (to crawl to next) and text (stripping off html tags etc.).
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform