$uzd_failas="uzd.txt"; if ($grupe==2004) $uzd_failas="uzdhtml.txt"; //echo "grupe=$grupe"; //$grupe='2003'; $d="./$grupe/"; $fakAdres="http://www.mif.vu.lt/"; $delim="|"; $u=file($uzd_failas); $err_start=" ?? "; $err_end=""; $err=""; foreach ($u as $v){ $pos = strpos($v, "$delim"); if (!is_integer($pos)) $err.="$err_start$v - neturi $delim ženklo$err_end"; else $uzd[substr($v,0,$pos)]=substr($v,$pos+1); } echo "
| Nr | Užduotis: Pavardė Vardas$err | Eladr"; $n_u=count($uzd); foreach ($uzd as $v) echo " | $v";
//echo $d;
$handle = opendir($d);
unset($s);
$Nr=1;
while (false !== ($file = readdir($handle)))
if ($file != "." && $file != ".."){
$w=file($d.$file);
// ishmetame el adresa, kad jo nespausdinti
$pos = strpos($w[0], "$delim");
$adresStart="";$adresEnd="";
if (is_integer($pos)) {
if ($pos+4| $Nr | $adresStart$w[0]$adresEnd";
if (strlen($w[1])>2) echo " | rašyk";
else echo " | ";
foreach ($uzd as $k => $v) echo " | $s[$k]";
$Nr++;
}
echo " | |
|---|