<?PHP 
 function fun_writetbl($buf,$cnt,$fp)
 {
  $tbl_lengs = 0;
    rewind($fp);
//テーブルの内容をカンマ区切りの文字列としてファイルに展開
    for ($i = 0; $i < $cnt; $i++)
    {
       if ($buf[$i] != "")
          {
          $tbl_save = join(",",$buf[$i]);
          $tbl_write = $tbl_save."\n";
          $tbl_lengs = strlen($tbl_write);
          $lengs_cnt = $lengs_cnt + $tbl_lengs;           
          fputs($fp, $tbl_write);
          }
    }
    ftruncate($fp,$lengs_cnt);
    return $fp;
  }
 function fun_eveidx($buf,$cnt,$keyymd)
 { 
    $m_idx = 0;
    $exp_cnt = 0;
  //同一日付で登録があるかを判定し最終のインデックス+1でレコード内容を設定
    while($m_idx < $cnt)
    {
      list($mst_ymd,$mst_idx,$mstname,$mfyear,$mfmon,$mfday,$mtyear,$mtmon,
          $mtday,$m_place,$mhpadr,$mmsg)=$buf[$m_idx];
        if ($mst_ymd==$keyymd)
         {
          if ($exp_cnt <= $mst_idx)
             {
             $exp_cnt = $mst_idx;
             }
         }
      $m_idx++;
    }
    $exp_cnt++;
    return $exp_cnt;
  }
 function fun_expidx($buf,$cnt,$keyymd,$keyidx)
 {
//同一日付で登録があるかを判定し最終のインデックス+1でレコード内容を設定
    $m_idx = 0;
    $exp_cnt = 0;
    while($m_idx < $cnt)
    {
      list($mst_ymd,$mst_idx,$mst_exp,$mstname,$m_rank,$mmsg,$m_time,$m_day)
        =$buf[$m_idx];
         if (($mst_ymd==$keyymd) && ($mst_idx==$keyidx))
         {
          if ($exp_cnt <= $mst_exp)
             {
             $exp_cnt = $mst_exp;
             }
         }
      $m_idx++;
    }
    $exp_cnt++;
    return $exp_cnt;
 }
?>