Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to get currency rates from the web
Message
De
03/08/2004 04:56:42
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00930257
Message ID:
00930263
Vues:
9
>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
>
Soykan,
?Thisform.OIE.Document.Body.InnerHtml  && html
?Thisform.OIE.Document.Body.InnerText  && text :: you are after this
You'll have to parse it further
Gregory
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform