<?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;
}
?>