$fpn=fopen($basyo."/k/Alldata.txt","a");
  fputs($fpn,$name.",".$SFB.",".$num3.",".$today.",AN=,".$ansn.",MIS=,".$missn.",NA=,".$noan.",".$ama.",TA=,".$ansxx[$Tcout3].",UA=,".$kai1[$Tcout3].",".$monkey."\n");
  fclose($fpn);

$FN0="uac.csv";
$file = fopen($FN0,"r"); //uac.csv
$a=0;
   while( !feof($file) ){
      $csv = fgets($file);
       //echo $csv;
      $str = explode(",", $csv); 
      if ($name4==$str[0]){
            $nameM=$str[2];
            $a=1;
          }else{
            $a=0;
          }
      }     
fclose($file);