ファイルを読み込み、指定行までカットして保存。
<?
# ------------------------------------------------------
# 行カットプログラム
# 2011/04/21 作成
# ------------------------------------------------------
### 設定項目 ################
#ファイル
$tar = "zzz.txt";
#行（この行までカット）
$at = "5";
### 設定項目 ################
#ファイル読み込み
$lines = @file("$tar");
$ken = count($lines);
#指定行まで空にする
for($i=0; $i<$at; $i++ ){
$lines[$i] = "";
}
#連結。
$new = join("",$lines);
#ファイルに書き込み
$fp = fopen("$tar","w+");
flock($fp, LOCK_EX);
fwrite($fp,"");
fwrite($fp,$new);
fclose($fp);
?>
