EFFACER UNE LIGNE D'UN FICHIER SANS LIRE TOUT LE FICHIER ...

define("ERREUR",-1);

function LirePuisEffacer($CheminFichier,$TamponSQL){
 if($fp=fopen($CheminFichier,'r+')){
           $requetes = "";
           $lines    = array();
           $i=0;
           // on lit  $TamponSQL requetes
            Do {
                    // récupérere les enregistrements
                    $requete= fgets($fp, 4096);
                    $taille =strlen($requete);

                    // on vérifie que la ligne lu ne vaut pas espace

                   if (ltrim($requete)<>"")
                   {
                      $i++;
                      $lines[] = $requete;
                   }
                      $fin=feof($fp);
                    // génére un tampon contenant 'taille' espaces
                     $tampon="";
                     for ($j = 0; $j < ($taille); $j++) {
                         $tampon .=" ";
                         // il serai mieux de mettre un Backspace, mais je ne connais pas
                         // l'équivalent PHP et chr(8) ne convient pas
                         }

                      // positionne le curseur en début de ligne
                      fseek($fp,-$taille,SEEK_CUR);

                      if ( $i<>$TamponSQL){
                          // remplace la ligne en cours par des espaces (saut de ligne inclus)
                          fputs($fp,$tampon,$taille);
                     } else {
                          // remplace la ligne en cours par des espaces mais garde le retour à la ligne
                          fputs($fp,$tampon,($taille-2));
                          fputs($fp,"\r\n");
                     }

                         // faire gaffe au cas ou c vide


                } while ( $i<$TamponSQL and $fin<>1);
          fclose($fp);
          if ($fin == 1) $lines =ERREUR;
          } else {$lines=ERREUR;}
          return $lines;
 }