Borrar registro

[pez]

Hola Amigos

Cuento con varios registros en un archivo de texto mas o menos haci:

|~~|20021202155813|~~|Maraton Guadalupano 2002|~~|Acapulco, Mexico|~~|

lo que quiero hacer es borrar solo uno mediante su id que en este caso seria 20021202155813, pero creo que lo estoy haciendo mal

$data_file = "index.txt";
$record = file($data_file);
$jmlrec = count($record);
$update_data = fopen($data_file,"w");
for ($j=0; $j<$jmlrec; $j++) {
if ($record[$j] <> "") fputs($update_data,$record[$j]);
}
fclose($update_data);

espero que me puedan ayudar.

saludos y gracias