Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: David Mustakim
  Where is David Mustakim?
 Jakarta
 Indonesia
 David Mustakim
 To: Chris Sharp
  Where is Chris Sharp?
 dayton
 Tennessee - United States
 Chris Sharp
 Tags
Subject: RE: Grab off Web
Thread ID: 365528 Message ID: 365565 # Views: 80 # Ratings: 1
Version: Visual FoxPro 9 Category: Windows 7 and VFP
Date: Friday, December 28, 2012 3:45:53 AM         
   


Here's a clipping on how to get exchange rates of various foreign denominations to Indonesian Rupiah:
Check your internet connection first:
DECLARE Long InternetCheckConnection IN Wininet.dll String Url,;
Long dwFlags, Long Reserved
lcUrl = "http://www.google.com"
IF InternetCheckConnection(lcUrl, 1, 0) <> 0
cStatus="Connected"
ELSE
cStatus="Not connected"
ENDIF

If connected then execute:
oHTML = CreateObject("MSXML2.XMLhttp")
oHTML.open("GET", "http://www.depkeu.go.id/Ind/", .F.)
ohtml.send()
P3=oHTML.ResponseText
P2=""
P1='1px">'
cAUD=SUBSTR(P3,AT(P1,P3,5)+5,AT(P2,P3,35)-AT(P1,P3,5)-5)
cEUR=SUBSTR(P3,AT(P1,P3,8)+5,AT(P2,P3,38)-AT(P1,P3,8)-5)
cGBP=SUBSTR(P3,AT(P1,P3,11)+5,AT(P2,P3,41)-AT(P1,P3,11)-5)
cJPY=SUBSTR(P3,AT(P1,P3,14)+5,AT(P2,P3,44)-AT(P1,P3,14)-5)
cSGD=SUBSTR(P3,AT(P1,P3,17)+5,AT(P2,P3,47)-AT(P1,P3,17)-5)
cUSD=SUBSTR(P3,AT(P1,P3,20)+5,AT(P2,P3,50)-AT(P1,P3,20)-5)

Edit: this method however depends very much on the webpage not changing its layout which would make P2 and P1 values need adjustments

David
..
.



> Hello, I am trying to figure out how to go to lets say a gold website that shows the price of gold and be able to when the form loads it will grab the price and put into a text-box for me.

ENTIRE THREAD

Grab off Web Posted by Chris Sharp @ 12/27/2012 5:42:02 PM
RE: Grab off Web Posted by Russell Hill @ 12/27/2012 8:00:07 PM
RE: Grab off Web Posted by Pete Sass @ 12/28/2012 1:53:58 AM
RE: Grab off Web Posted by David Mustakim @ 12/28/2012 3:45:53 AM
RE: Grab off Web Posted by Usman Safdar @ 12/28/2012 10:54:17 AM
RE: Grab off Web Posted by David Mustakim @ 12/28/2012 11:07:22 AM
RE: Grab off Web Posted by Usman Safdar @ 12/28/2012 6:51:02 PM
RE: Grab off Web Posted by David Mustakim @ 12/29/2012 12:04:29 AM
RE: Grab off Web Posted by Usman Safdar @ 12/29/2012 11:21:02 AM
RE: Grab off Web Posted by David Mustakim @ 12/29/2012 11:29:07 AM