Osoby które jak ja mają na karku kredyt hipoteczny w walucie, bardzo są zainteresowane bieżącym kursem walut. W związku z tym postanowiłem napisać skrypt który pobierze i wyświetli kurs.
Poniższy kod wklejamy do urządzenia wirtualnego.
HC2 = Net.FHttp(„www.nbp.pl”)
— wczytuje wynik zapytania do zmiennej dane
dane, status, errorcode = HC2:GET(„/kursy/xml/LastA.xml”)
fibaro:log(status)
fibaro:log(errorcode)
data = string.find(dane,”<data_publikacji>”)
datatxt = string.sub(dane,data+17,data+26)
kurs = (string.find(dane,”EUR</kod”))
zm = (string.sub(dane,kurs+37,kurs+42))
fibaro:log( ‚<div style = „color : rgb(248,67,9);”> Kurs ‚ .. zm .. ” z dnia ” .. datatxt..”</div>”)
fibaro:sleep(5000)