Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to get currency rates from the web
Message
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
How to get currency rates from the web
Miscellaneous
Thread ID:
00930257
Message ID:
00930257
Views:
50
Hi All,
how can i get currency rates (eg . http://www.tcmb.gov.tr/kurlar/200408/02082004.html ) from web site ? or how can i acces and save that page convert it text file or cursor later ? why i wantto insert these values after currency.dbf ...

PS : i can acces and show desired web site and this code works fine but i'couldnt save it or save as .html file and convert it to text or cursor . my codes likes below

TIA
* form timer code
        Declare Integer InternetAttemptConnect In wininet;
	INTEGER dwReserved

	lcYear=Transform(Year(thisform.txtdate.Value))

	lcMonth=Transform(Month(thisform.txtdate.Value))
	If Val(lcMonth) < 10
		lcMonth="0"+lcMonth
	Endif

        lcday=Transform(Day(thisform.txtdate.Value))
	If Val(lcday) < 10
		lcday="0"+lcday
	Endif

	LcUrl="http://www.tcmb.gov.tr/kurlar/"
	LcUrl = LcUrl + lcYear + lcMonth + "/" + lcday + lcMonth + lcYear + ".html"

	This.Interval = 0
	Thisform.OIE.Navigate(LcUrl)
	Do While Thisform.OIE.ReadyState <> 4
	Enddo
	Thisform.OIE.Document.Body.Scroll = "no"


ELSE
MESSAGEBOX("opps Internet Connection no avaible...",16,"Connection Error")
	LcUrl="about:blank"
	This.Interval = 0
	Thisform.OIE.Navigate(LcUrl)
	Do While Thisform.OIE.ReadyState <> 4
	Enddo
	Thisform.OIE.Document.Body.Scroll = "no"
Endif
Next
Reply
Map
View

Click here to load this message in the networking platform