Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Comparing 2 tables; getting list of missing records
Message
 
 
À
07/08/2005 03:55:28
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01037464
Message ID:
01039166
Vues:
25
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform