Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to get currency rates from the web
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
How to get currency rates from the web
Divers
Thread ID:
00930257
Message ID:
00930257
Vues:
48
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform