Formulář pro zadávání pravidel TS

"; exit; endif; //Oreze radky o netisknutelne znaky pro ukonceni radku. $Radky = array(); for ($i=0; $i""): if (!EReg("^d$[0-9]{1,2},[0-9a-zA-Z_ ]{1}$=$[0-9]{1,2},[0-9a-zA-Z_ ]{1},[LRS ]{1}$$",$Radky[$i])): Header ("Content-Type: text/html; charset=windows-1250"); echo "Pravidlo ".$Radky[$i]." není v souboru zadáno korektně!
"; exit; endif; list($LCastZ[],$PCastZ[])=explode(")=(",$Radky[$i]); endif; endfor; //Upravi levou stranu pravidla na pozadovany tvar. $LCast = array(); for ($i=0; $i"; endfor; for ($i=0; $i"; endfor; for ($i=0; $i"; endfor; */ //Pole LevaCast je prevedeno na dvojrozmerne pole LevaCast2D. $j1=0; $k1=0; $LevaCast2D=array(array()); for ($i=0; $i19): Header ("Content-Type: text/html; charset=windows-1250"); echo "Počet pravidel v souboru přesahuje možnosti formuláře!
"; exit; endif; */ endif; Header ("Content-Type: text/html; charset=windows-1250"); ?> Formulář pro zadávání pravidel TS