Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Search Google
Message
De
03/06/2003 05:41:35
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
03/06/2003 05:08:13
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Titre:
Divers
Thread ID:
00795558
Message ID:
00795561
Vues:
19
Pedro,
I can't say for sure but AFAIK that service is for US only.
Cetin

>Hi
>
>I found this , in U.T. Maganize of this month . This work fine , search google for one phone number .
>But i don´t want search all the net , but only my country Portugal .
>When i open google , i can search all the net , only pages written in portuguese , or only pages of Portugal .
>
>I want use this code to search only pages of Portugal
>
>Can you help me ?
>
>Thanks
>
>
>
>clear
>#DEFINE READYSTATE_COMPLETE 4
>oIE = CreateObject("InternetExplorer.Application")
>
>lcphone="(251) 602-5611"
>
>lcURL="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&q="+;
>lcphone+;
>"&btnG=Google+Search"
>
>oIE.Navigate(lcURL)
>
>do while oIE.Readystate <> READYSTATE_COMPLETE
>wait wind time 1.0 ""
>enddo
>
>lcInnerText = oIE.Document.Body.InnerText
>ln=occur(lcphone,lcInnerText)
>if ln>=1
>   =alines(aa,lcInnerText)
>   for ia=1 to alen(aa)
>      if lcphone$aa[ia] and aa[ia]#"Searched the web"
>         ?aa[ia]
>      endif
>   endfor
>else
>   wait window "NOT FOUND"
>endif
>
>
>oIE.Quit
>oIE=.NULL.
>release oIE
>
>
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform