window.alert ('Sorry, error uploading $TextFile.')";
flush();
exit();
}
else
{
$searchID=file_get_contents("$TextinFile");
//fclose($fh);
unlink($TextinFile);
}
}
else
{
echo "";
}
}
}
if($searchID!="")
{
?>
1)
{
fprintf($flevel,"%s",$level_arr[$j][0]);
$m=$data_type[$j];
for($jj=1;$jj<=$m;$jj++)
{
fprintf($flevel,"\t%s",$level_arr[$j][$jj]);
}
fprintf($flevel,"\n");
}
}
fwrite($fptype,"$name_t\n");
for($j=0;$j<$lcc;$j++)
{
fprintf($fptype,"$data_type[$j]\t");
}
fwrite($fptype,"\n");
////////////////////////////////////
fwrite($fpmain, "$l_type\n");
$l_c=0;
//perform discrete level replacement
for($m=0;$m<$lcc;$m++) //column
{
if($data_type[$m]>1)
{
$r=$data_type[$m];
for($j=1;$j<=$r;$j++)
{
$search=$level_arr[$m][$j];
$replace=$j."#";
for($n=0;$n<$lc;$n++) //row
{
$val=$cont_arr_tmp[$n][$m];
if($val==$search)
$cont_arr_tmp[$n][$m]=$replace; //alter levels
}
}
for($n=0;$n<$lc;$n++) //row
$cont_arr_tmp[$n][$m]=str_replace('#','',$cont_arr_tmp[$n][$m]);
}
}
//write data to output file
for($j=0;$j<$lc;$j++)
{
fprintf($fpmain,"%s",$cont_arr_tmp[$j][0]);
for($jj=1;$jj<$lcc;$jj++)
fprintf($fpmain,"\t%s",$cont_arr_tmp[$j][$jj]);
fprintf($fpmain, "\n");
}
fclose($fpmain);
?>