[Allegro] Dollarkurs per Web-Service: neuer FLEX

[Bernhard Eversberg]

Vor einer Weile hatten wir einen FLEX namens  usd.flx
zurückgezogen, der einen simplen Webservice nutzt, um
den aktuellen Dollarkurs zu ermitteln. Die Adresse
existierte plötzlich nicht mehr.
Erneute Recherche nach einem Ersatz war erfolgreich, und
zwar an einer nicht schlechten Adresse, der EZB (Frankfurt,
nicht Regensburg).
Es folgt der komplette FLEX, den wir dann als doll.flx mitliefern
werden. In dem Text, der von EZB kommt, stehen Zeilen wie diese:

     <Cube currency='USD' rate='1.3537'/>
Daraus kann man unschwer den Kurs extrahieren, was dieser FLEX
denn auch tut:
(Und entsprechend klappt es für eine Reihe anderer Währungen,
wenn man USD durch den betr. Code ersetzt!)



   doll.flx : Dollarkurs ermitteln und Umrechnung anzeigen
   2013-09-28

   Service der EZB abrufen:

get Ihttp://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml

if cancel jump alternative

   USD-Kurs herausziehen (entsprechend geht das mit anderen Waehrungen)

var (b"currency='USD' rate='" e"'")

perform rechnen

end

:alternative
   Alternative:
   Dieser Service liefert den Wechselkurs mit ganz wenig XML und sonst 
nichts

get 
Ihttp://www.webservicex.net/CurrencyConvertor.asmx/ConversionRate?FromCurrency=EUR&ToCurrency=USD

   Die Zahl herausklauben, steht in <double>

var (x"double")


:rechnen
ins $d

eval 1 / $d
ins $e

var "1 USD = " $e " EUR" n "1 EUR = " $d " USD"
mes
return