> <?php > // v tomto poli jsou uvedeny kody men, ktere se ve vysledku nezobrazuji > $nezobrazovatMeny = array("JPY","MYR","SGD"); > > $fp = fopen("http://wdb.cnb.cz/CNB_TXT/KURZY.K_CURRTXT","r"); > $cisloRadku = 0; > while (!feof($fp)) { > $radek = fgets($fp); > if (!$cisloRadku) { > // jsme na prvnim radku souboru - hlavicka > // vyber z hlavicky datum - ber znaky od zacatku radku > po znak # > $datum = substr($radek,0,strpos($radek,"#")); > echo "<h1>Kurzovní lístek pro den $datum</h1>\n"; > echo "<table>\n"; > } else if ($cisloRadku == 1) { > // vytiskne zahlavi tabulky > echo > "<tr><th>zemì</th><th>mìna</th><th>množství</th><th>kód</th><th>kurz</th></tr>\n"; > > } else { > // do pole $exp uloz jednotlive casti radku oddelene od > sebe znakem "|" > $exp = explode("|",$radek); > // a pak jednotlive polozky tohoto pole vypis > zformatovane do tabulky (nejsou-li uvedeny v seznamu men, ktere se > nevypisuji > if (!in_array($exp[3],$nezobrazovatMeny)) { > /* > popis obsahu pole $exp > $exp[0] - nazev zeme > $exp[1] - nazev meny > $exp[2] - mnozstvi meny > $exp[3] - kod meny > $exp[4] - kurz > */ > echo > "<tr><td>$exp[0]</td><td>$exp[1]</td><td>$exp[2]</td><td>$exp[3]</td><td>$exp[4]</td></tr>\n"; > > } > } > $cisloRadku++; // zvys pocitadlo cisla radku o 1 > } > echo "</table>"; > fclose($fp); > ?> > > hrazda > naprosto luxusni! moc dekuju a pokud bych se moh nejak rebvansovat, trebas nejakym designem, css sablonou staci napsat :) jeste jednou dik Milan OooooO OooooO OooooO OooooO OooooO Milan Kvasnicka 4media s. r. o. http://www.4media.cz milan (zavinac) 4media.cz OooooO OooooO OooooO OooooO OooooOReceived on Wed, 24 Aug 2005 08:26:16 +0200
This archive was generated by hypermail 2.1.8 : 24. 08. 2005, 08:26 CEST