Re: Pervasive - Wprowadzanie kursu walut?
Spokojnie... znam oba polecenia ShellExecute i Execute.
A napisałem ShellExecute bo akurat często używam go w innych językach...
Co do samego sposobu pobierania z NBP to:
Aby dostać aktualny (ostatni) kurs wystarczy:
1. Pobrać plik dane z adresu:
http://www.nbp.pl/kursy/xml/LastA.xml2a. Rozdzielić do tablicy kolejno wszystkie linijki z pliku i poszukać stringu <kod_waluty>EUR</kod_waluty>
jeśli się znajdzie to należy przyjąć że następna linijka będzie zawierać <kurs_sredni> "wartość waluty" </kurs_sredni>
więdz wyciągamy wartość pomiędzy ciągiem <kurs_sredni> a </kurs_sredni>
lub
2b. Jeśli można wczytać cały plik do jednego stringa to użyć RegExp
aby pobrać ciąg liczbowy pomiędzy <kod_waluty>EUR a </kurs_sredni>
....(nie wspominam tu oczywiście o sprawdzaniu błedów i ewentualne porównywanie z poprzednimi kursami w celu upewnienia się czy czasem waluta z 4.2019 zmieniła wartość na 174.4323...)
Kwestia pobierania z innych dat wymaga dodatkowo sprawdzenia w pliku
http://www.nbp.pl/kursy/xml/dir.txtwybranego pliku XML dla danego dnia... ale to nie problem więc jeśli zaczniesz zabawę z pisaniem tego w AMBasicu
to Ci pomogę...
(PS. Czasem lepiej zrobić ShellExecute i zrobić timer w oczekiwaniu na rezultat programu
niż blokowanie całej aplikacji do czasu zakończenia procesu... który nie zawsze musi się skończyć ;)
(Czy w AM są jakieś timery, countery lub tym podobne??
bo jak nie to pozostaje tylko porównanie wartości zwracanych przez funkcje Time)