Seznam excerpovaných časopisů a sborníků
function navigace() {
global $od,$lang;
echo '';
for ($i = 65; $i <= 90; $i++):
if ($i==ord($od)) { echo ' '.$od.' ';}
else {
echo " ".chr($i)." ";}
endfor;
echo ' ';
}
navigace();
$lines = file ($filename);
echo '';
echo '';
for ($i = 1; $i <= count($lines); $i++):
if (substr($lines[$i],0,4)==''):
$nazev=substr($lines[$i],4);
$str1='ÁÄČĆĎÉËÍĹźŇÓÖŘŔÚÜŮÝY';
$str2='AACCDEEILLNOORRSSTUUUYYZZ';
if (substr($nazev,0,1)=='<'):
$s=substr($nazev, strpos($nazev,'>')+1);
$pismeno=$s[0];
else:
$pismeno=$nazev[0];
endif;
$nazev=strtr($nazev,'<>',' ');
$pismeno=strtr($pismeno,$str1,$str2);
if ($pismeno==$od):
$misto=substr($lines[$i+1],4);
$cisla=substr($lines[$i+2],4);
$zkratka=substr($lines[$i+3],4);
echo '';
echo $nazev;
echo ' '.$misto.'';
echo ' ';
if (trim($zkratka)>'') {echo $zkr.': '.$zkratka.' ';}
echo strtr(substr($lines[$i+2],4),array(';' => ' ♦ '));
echo ' ';
endif;
endif; //if (substr($lines[$i],0,6)=='#1NAZ:'):
endfor; //for ($i = 1; $i <= count($lines); $i++):
echo " | ";
navigace();
?>
|
|