Keskustelu: Ohjelmointikysymykset: VBA: Dollarin kurssin haku

Miten VB6:lla saisi helpoiten haettua dollarin kurssin joltain sivulta ja mistä se kannattaisi hakea, jotta omaa ohjelmaa ei tarvitsisi muutella kovinkaan usein?

Tai onko tällaisia ohjelmia jo valmiina?
Mielellään lähdekoodin kera.
Tarkoituksena olisi rakentaa ohjelma, joka kääntäisi tietyn dollari hinnan euroiksi sen hetkisen dollarikurssin mukaisesti.

Myös PHP:lla tehty esimerkki käy, mutta mieluummin vb:lle.

Sovella koodivinkkejä.
https://www.ohjelmointiputka.net/koodivinkit/23779-vb6-tiedoston-lataaminen-netistä
https://www.ohjelmointiputka.net/koodivinkit/24126-vb6-tiedoston-haku-netistä-winsockilla

Kurssin löydät varmaankin esimerkiksi kauppalehden sivuilta. Joudut toki koodissasi hakemaan kurssin muun "mössön" seasta....

Ongelmallisin kohta tuossa on minulla sen tiedoston parserointi. (yleensäkin jonkin tietyn kohdan haku tekstitiedostosta).

Eli jos haen esimerkiksi osoitteesta: http://www.bof.fi/fin/0_new/0.1_valuuttak/ kyseisen sivun, niin kuinka saisi helpoiten parseroitua tuosta vain sen dollarin kurssin muuttujaan?

Eli alla oleva koodiosasta pitäisi saada parseroitua kohta (1.2294).

html mölöääää...
<TD BGCOLOR="#c2d6eb" ALIGN="left"><FONT >dollari</FONT></TD>
<TD BGCOLOR="#c2d6eb" ALIGN="center"><FONT ><STRONG>USD</STRONG></FONT></TD>
<TD BGCOLOR="#c2d6eb" ALIGN="right" STYLE="vnd.ms-excel.numberformat:0.0000"><FONT >

1.2294
</FONT>
... jatkuu

Eli aina hakea tuo samasta kohdasta.

Nuo tiedot on näköjään saatavilla myös tekstimuodossa, siitä tietojen lukeminen ei pitäisi olla vaikeaa.
http://www.bof.fi/ohi/fin/0_new/0.1_valuuttak/fix-rec.txt

Antti Laaksonen kirjoitti:

Nuo tiedot on näköjään saatavilla myös tekstimuodossa, siitä tietojen lukeminen ei pitäisi olla vaikeaa.
http://www.bof.fi/ohi/fin/0_new/0.1_valuuttak/fix-rec.txt

Ah, tämä helpotti paljon.
Olisiko vielä pientä esimerkkiä, miten tuosta luetaan jokin luku muuttujaan?

Kannattaa katsoa
http://www.bof.fi/ohi/fin/0_new/0.1_valuuttak/fix-rec.txt
Eiih...antti ehti edelle... Sori ihan turha viesti

Sain tuon nyt alustavasti toimimaan näin.

hfile = FreeFile
     Open sLocalFile For Input As #hfile
            Line Input #hfile, rr: rr = Trim(rr)
            Lbl_1.Caption = Mid$(rr, 18, Len(rr) - 1)
            Lbl_2.Caption = "Uusin dollarin kurssi päivitetty " & Mid$(rr, 1, Len(rr) - 14)
     Close #hfile

Eli eka labeliin se hakee dollarin kurssin ja toiseen labeliin kertoo, minkä päivän kurssi on kyseessä.

Jos jollain on korjausehdotuksia tuolle tai joku löytää mahdollisia tulevia ongelmatilanteita tuon kanssa, niin kertokoon.