Publikováno v sekci PHP v 13. 1. 2008 - 22:08

Pokud potřebujete mít na svých webových stránkách aktuální kurzovní lístek, není nic snažšího než si přečíst tento článek.

K získání kurzovního lístku použijeme textový výpis České národní banky. Kurzovní lístek stáhneme dvakrát. Jednou za dnešní datum, podruhé za včerejší. Porovnáme rozdíl kurzů a pak jej přehledně vypíšeme do tabulky. Abychom tuto akci neprováděli zbytečně po každém obnovení stránky, tak si data kešujeme do souboru.

1: class Kurzy { var $kesLimit = 3600; // 1 hodina function Kurzy() { echo $this-&gt;spust(); } function spust() { $this-&gt;kesovat(); } function ziskejKurz($url) { $soubor = file($url); $i = 0; $kurzPole = array(); foreach ($soubor as $row) { $i++; if ($i &gt; 2) { $row = trim($row); list($zeme, $mena, $mnozstvi, $kod, $kurz) = explode(&quot;|&quot;, $row); $kurzPole[$zeme] = array($zeme, $mena, $mnozstvi, $kod, $kurz); } } return $kurzPole; } function porovnejData() { $dnesniDatum = date(&quot;d.m.Y&quot;); $vcerejsiDatum = date(&quot;d.m.Y&quot;, mktime (0,0,0, date(&quot;m&quot;), date(&quot;d&quot;) - 3,date(&quot;Y&quot;))); $dnes = $this-&gt;ziskejKurz(&quot;<a href="http://www.cnb.cz/www.cnb.cz/cz/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt?date=$dnesniDatum">http://www.cnb.cz/www.cnb.cz/cz/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt?date=$dnesniDatum</a>&quot;); $vcera = $this-&gt;ziskejKurz(&quot;<a href="http://www.cnb.cz/www.cnb.cz/cz/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt?date=$vcerejsiDatum">http://www.cnb.cz/www.cnb.cz/cz/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt?date=$vcerejsiDatum</a>&quot;); $finalData = array(); foreach ($dnes as $zeme =&gt; $pole) { // nastaveni sipky if ($dnes[$zeme][4] &gt; $vcera[$zeme][4]) $ico = &quot;<img src="up.gif" alt="" />&quot;; elseif ($dnes[$zeme][4] &quot;; else $ico = &quot;&quot;; // vypocet ceny a pretypovani $cenaDnes = (double)str_replace(&quot;,&quot;, &quot;.&quot;, $dnes[$zeme][4]); $cenaVcera = (double)str_replace(&quot;,&quot;, &quot;.&quot;, $vcera[$zeme][4]); $rozdil = $cenaDnes - $cenaVcera; //země|měna|množství|kód|kurz // finalni ulozeni rozdilovych dat $finalData[$dnes[$zeme][0]] = array( &quot;zeme&quot; =&gt; $dnes[$zeme][0], &quot;mena&quot; =&gt; $dnes[$zeme][1], &quot;mnozstvi&quot; =&gt; $dnes[$zeme][2], &quot;kod&quot; =&gt; $dnes[$zeme][3], &quot;kurz&quot; =&gt; $dnes[$zeme][4], &quot;sipka&quot; =&gt; $ico, &quot;rozdil&quot; =&gt; $rozdil ); } return $finalData; } function vykreslitTabulku() { $table = &quot;<table border="1">&quot;; $table .= &quot;<tr><th>Země</th><th>Měna</th><th>Množství</th><th>Kód</th><th>Kurz</th><th>Ico</th><th>Rozdíl</th></tr> &quot;; foreach ($pole = $this-&gt;porovnejData() as $klic =&gt; $index) { $table .= &quot;<tr><td>&quot;.$pole[$klic][&quot;zeme&quot;].&quot;</td><td>&quot;.$pole[$klic][&quot;mena&quot;].&quot;</td><td>&quot;.$pole[$klic][&quot;mnozstvi&quot;].&quot;</td><td>&quot;.$pole[$klic][&quot;kod&quot;].&quot;</td><td>&quot;.$pole[$klic][&quot;kurz&quot;].&quot;</td><td>&quot;.$pole[$klic][&quot;sipka&quot;].&quot;</td><td>&quot;.$pole[$klic][&quot;rozdil&quot;].&quot;</td></tr> &quot;; } $table .= &quot;</table>&quot;; return $table; } function kesovat() { if (!is_file(&quot;kurzovni-listek.html&quot;) or fileMtime(&quot;kurzovni-listek.html&quot;) kesLimit)) { $file = fopen(&quot;kurzovni-listek.html&quot;, &quot;w+&quot;); fwrite($file, $this-&gt;vykreslitTabulku()); fclose($file); readfile(&quot;kurzovni-listek.html&quot;); } else { readfile(&quot;kurzovni-listek.html&quot;); } }

1: <meta content="text/html; charset=UTF-8" http-equiv="content-type"></meta><title>Kurzovní lístek</title>&lt;?php include(&quot;kurzy.php&quot;);
2: echo '&lt;h2?&gt;
3: Kurzovní lístek'; $k = new Kurzy(); ?&gt;

[link]kurzovni-listek.zip[/link]