Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Search Google
Message
De
03/06/2003 07:45:39
Fabian Belo
Independent Developer
Argentine
 
 
À
03/06/2003 05:08:13
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Titre:
Divers
Thread ID:
00795558
Message ID:
00795579
Vues:
6
Google searchs the whole WWW unless you choose a languaje as follows:
lr=lang_pt
for portuguese


>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
>
>
"Since I've read that alcohol is bad... I quit reading."
Me


http://www.fabianbelo.com.ar
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform