<?
$faddr="data.txt";
$ar=file($faddr);
$file=fopen($faddr,"w");  
for ($i=0;$i<count($ar);$i++) {
  $r = split(",",$ar[$i]);
  if ($r[0] <> $delid) {
    fputs($file,"$ar[$i]");
  } else {
    echo "Delete $delid : ok";
  }  
}
fclose($file);
?>