|
|
|
Reinino ženklų skaičuoklė
|
$tvalue)
if ( isset($_REQUEST["n$tkey"]) && $_REQUEST["n$tkey"] != '0' )
{
$calculate = true;
break;
}
//show test
if ( !$calculate )
{//http://www.socionics.org/test/reinincalc.asp?advanced=1
?>
');
$result = substr($result, 12);
$res = spliti('BLOCKQUOTE',$result);
$result = strip_tags($res[0]);
$res_proc = array();
$res_ptype = array();
while (true) {
list($proc, $ptype) = sscanf($result, "%s - %s");
if (strlen($proc)==0 || strlen($ptype)==0)
break;
$result = stristr($result, $ptype);
//echo $result.'=='.$proc.' '.$ptype.'
';
$res_proc[] = $proc;
$res_ptype[] = strtoupper($ptype);
$result = substr($result,12);
if (strlen($result) <= 8)
break;
$i = 0;
while ( !is_numeric($result[$i]) && $i != strlen($result) ) $i++;
if ( $i == strlen($result) )
break;
$result = substr($result,$i);
}
//--------------printing results------------------
echo "";
for ($i = 0; $i < sizeof($res_proc); $i++)
{
$proc = $res_proc[$i];
$ptype = $res_ptype[$i];
$descr = $ptypes[$ptype];
$link = $descr['link'];
$name = $descr['name'];
echo "| | ";
echo "$proc - $ptype ($name) | ";
echo " | ";
}
echo "| | ";
echo "| Pakartoti testą
| ";
echo " ";
}
?>
|
|
 |
| |
|
