Kurs Nbp, dlaczego on nie dziala? Opcje

[rybosom]

Ten post edytował rybosom 12.07.2006, 11:55:29

[kicaj]

Wyedytuj posta i wstaw kod miedzy [php]. Bedzie bardziej przejzysty i ktos napewno zauwazy blad.

Napisz jaki blad. Dostajesz jakis komunikat? Co nie dziala?

[Bakus]

Pousuwałem wszystkie "or die();", by dać się wypowiedzieć nt. błędu php i wszystko działa...

[PHP] pobierz, plaintext 
<?php
// Początek pobierania linku do kursu walut w formacie XML...
$a = &#092;"0\";
$connect = fopen(&#092;"http://www.nbp.pl/kursy/kursya.html\", \"r\");
while (!feof ($connect)) {
   $a++;
   $buffer = fgets($connect, 4096);
   if($a==&#092;"166\") {
   $link = $buffer;
   }
};
fclose($connect);
// Koniec pobierania linku do kursu walut w formacie XML
 
// Wycinanie linku
$link1 = strstr($link, 'xml');
$link2 = substr($link1, '0', '19');
$link = &#092;"http://www.nbp.pl/kursy/\".$link2;
// Koniec. Link w zmiennej $link.
 
// Pobieranie arkusza XML
$a = &#092;"0\";
$connect = fopen($link, &#092;"r\");
while (!feof ($connect)) {
   $a++;
   $buffer = fgets($connect, 4096);
   if($a==&#092;"4\") {
   $datak = $buffer;
   }
   elseif($a==&#092;"3\") {
   $numerk = $buffer;
   }
   elseif($a==&#092;"6\") {
   $waluta1 = $buffer;
   }
   elseif($a==&#092;"8\") {
   $symbol1 = $buffer;
   }
   elseif($a==&#092;"9\") {
   $kurs1 = $buffer;
   }
   elseif($a==&#092;"30\") {
   $waluta2 = $buffer;
   }
   elseif($a==&#092;"32\") {
   $symbol2 = $buffer;
   }
   elseif($a==&#092;"33\") {
   $kurs2 = $buffer;
   }
   elseif($a==&#092;"24\") {
   $waluta3 = $buffer;
   }
   elseif($a==&#092;"26\") {
   $symbol3 = $buffer;
   }
   elseif($a==&#092;"27\") {
   $kurs3 = $buffer;
   }
   elseif($a==&#092;"54\") {
   $waluta4 = $buffer;
   }
   elseif($a==&#092;"56\") {
   $symbol4 = $buffer;
   }
   elseif($a==&#092;"57\") {
   $kurs4 = $buffer;
   }
};
fclose($connect);
echo &#092;"Średnie kursy walut nr \".$numerk.\" z dnia \".$datak.\" wg NBP (nazwa waluty, symbol, średni kurs): \".$waluta1.\" <b>(\".$symbol1.\")</b>: <b>\".$kurs1.\"</b>;&nbsp;&nbsp;\".$waluta2.\" <B>(\".$symbol2.\")</B>: <B>\".$kurs2.\"</B>;&nbsp;&nbsp;\".$waluta3.\" <B>(\".$symbol3.\")</B>: <B>\".$kurs3.\"</B>;&nbsp;&nbsp;\".$waluta4.\" <B>(\".$symbol4.\")</B>: <B>\".$kurs4.\"</B>.\";
?>
[PHP] pobierz, plaintext 

Źródło wyniku wykonywania skryptu:

¦rednie kursy walut nr    <numer_tabeli>175/A/NBP/2004</numer_tabeli>
z dnia    <data_publikacji>2004-09-07</data_publikacji>
wg NBP (nazwa waluty, symbol, ¶redni kurs):      <nazwa_waluty>dolar amerykański</nazwa_waluty>
<b>(      <kod_waluty>USD</kod_waluty>
)</b>: <b>      <kurs_sredni>3,6187</kurs_sredni>
</b>;&nbsp;&nbsp;      <nazwa_waluty>euro</nazwa_waluty>
<B>(      <kod_waluty>EUR</kod_waluty>
)</B>: <B>      <kurs_sredni>4,3790</kurs_sredni>
</B>;&nbsp;&nbsp;      <nazwa_waluty>dolar kanadyjski</nazwa_waluty>
<B>(      <kod_waluty>CAD</kod_waluty>
)</B>: <B>      <kurs_sredni>2,7878</kurs_sredni>
</B>;&nbsp;&nbsp;      <nazwa_waluty>funt szterling</nazwa_waluty>
<B>(      <kod_waluty>GBP</kod_waluty>
)</B>: <B>      <kurs_sredni>6,4497</kurs_sredni>
</B>.

co w przeglądarce daje:

Średnie kursy walut nr 175/A/NBP/2004 z dnia 2004-09-07 wg NBP (nazwa waluty, symbol, średni kurs): dolar amerykański ( USD ): 3,6187 ;  euro ( EUR ): 4,3790 ;  dolar kanadyjski ( CAD ): 2,7878 ;  funt szterling ( GBP ): 6,4497 .

UpDated:
Napisałem własnyskrypcik do tego... Użytkowanie jest IMHO łatwiejsze...

[PHP] pobierz, plaintext 
<pre>
<?php
$data = implode('', file(&#092;"http://www.nbp.pl/kursy/kursya.html\"));
eregi(&#092;"<a href=\"xml/(.*).xml\">\", $data, $array);
$data = implode('', file(&#092;"http://www.nbp.pl/kursy/xml/\" . $array[1] . \".xml\"));
 
$replace = array(&#092;"   \" => '', \"rn\" => '', \"<pozycja>\" => '', \"<nazwa_waluty>\" => '$kurs[\"', \"</nazwa_waluty>\" => '\"] = array(', \"<przelicznik>\" => '\"', \"</przelicznik>\" => '\", ', \"<kod_waluty>\" => '\"', \"</kod_waluty>\" => '\", ', \"<kurs_sredni>\" => '\"', \"</kurs_sredni>\" => '\"', \"</pozycja>\" => \");n\", \"</tabela_kursow>\" => '', '<?xml version=\"1.0\" encoding=\"ISO-8859-2\"?><tabela_kursow typ=\"A\"><numer_tabeli>' => '$kurs[\"tabela\"] = \"', '</numer_tabeli>' => '\";' . \"n\", '<data_publikacji>' => '$kurs[\"data_publikacji\"] = \"', '</data_publikacji>' => '\";' . \"n\");
 
$data = str_replace(array_keys($replace), array_values($replace), $data);
eval($data);
print_r($kurs);
?>
</pre>
[PHP] pobierz, plaintext 

Wynik działania:

Kod

Array
(
    [tabela] => 175/A/NBP/2004
    [data_publikacji] => 2004-09-07
    [dolar amerykański] => Array
        (
            [0] => 1
            [1] => USD
            [2] => 3,6187
        )
[...część walut wyciąłem...]
    [SDR (MFW)] => Array
        (
            [0] => 1
            [1] => R
            [2] => 5,2656
        )

)

[b2n]

BAKUS NAPISAŁ TAK:

<?php
$data = implode('', file(\"http://www.nbp.pl/kursy/kursya.html\"));
eregi(\"<a href=\"xml/(.*)\.xml\">\", $data, $array);
$data = implode('', file(\"http://www.nbp.pl/kursy/xml/\" . $array[1] . \".xml\"));

$replace = array(\"  \" => '', \"\r\n\" => '', \"<pozycja>\" => '', \"<nazwa_waluty>\" => '$kurs[\"', \"</nazwa_waluty>\" => '\"] = array(', \"<przelicznik>\" => '\"', \"</przelicznik>\" => '\", ', \"<kod_waluty>\" => '\"', \"</kod_waluty>\" => '\", ', \"<kurs_sredni>\" => '\"', \"</kurs_sredni>\" => '\"', \"</pozycja>\" => \");\n\", \"</tabela_kursow>\" => '', '<?xml version=\"1.0\" encoding=\"ISO-8859-2\"?><tabela_kursow typ=\"A\"><numer_tabeli>' => '$kurs[\"tabela\"] = \"', '</numer_tabeli>' => '\";' . \"\n\", '<data_publikacji>' => '$kurs[\"data_publikacji\"] = \"', '</data_publikacji>' => '\";' . \"\n\");

$data = str_replace(array_keys($replace), array_values($replace), $data);
eval($data);
print_r($kurs);
?>

Skrypcik działa elegancko ale ze względu na fakt że zupełnie się nie znam na tablicach... mam pytanie co w przypadku : http://www.nbp.pl/Kursy/KursyB.html
bo to jest skrypt dla tabeli A starałem się go przerobić dodajądz <nazwa_kraj> ale nie hula kto wie jak to przerobić dla tabeli B ?

Ten post edytował b2n 19.01.2005, 11:57:39

[Baki]

Bakus popelniles bardzo piekny skrypt!
dzieki