Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Search Google
Message
From
03/06/2003 05:41:35
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
03/06/2003 05:08:13
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Miscellaneous
Thread ID:
00795558
Message ID:
00795561
Views:
20
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform