Discussion :

[elhou80]

Salut à tous
Je voudrais bien savoir comment supprimer un enregistrement dans un fichier en utilisant une procedure.

Mon programme permet de créer un fichier d'études des élèves, ajouter, modifier et supprimer un élève.
Après un travail lourd, je trouve comment faire toutes les procédures,
mais j'arrive pas trouver comment supprimer un enregistrement (élève).
svp, je vous prie de m'aider.

Voici les déclarations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 type TEtudiant=record
                    Ninsc  : string[15];
                    Nom    : string[30];
                    Prenom : string[30];
                    T_Notes  :array[1..5] of real;
                    Moy    :real;
                 end;
       Fetudiant= file of Tetudiant;
  VAR
    fEtud    : Fetudiant;
    etudiant : tetudiant;

Merci de me sortir de ce problème

[Alcatîz]

Bonjour !

Dans quel genre de structure charges-tu le contenu de ton fichier pour le gérer : une liste chaînée, un tableau ?
Ton problème se situe-t-il au niveau de la suppression de l'enregistrement en mémoire, lorsque le contenu du fichier a été chargé ?

[Ultima]

Bonjour,
Voici un exemple de programme qui génère un fichier dans lequel l’étudiant mis en paramètre à été supprimé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
// cette procédure suprime etu du fichier FicEntre, le résultat est enregistré dans le fichier FicSortie
// On suppose que les fichiers sont déclarés et ouvert dans les modes adéquats
procedure suppression( etu : Tetudiant ; FicEntre , FicSortie : Fetudiant);
var
  item : Tetudiant;
begin
  while not eof(FicEntre) do
  begin
    read(FicEntre,item);
    if not(item.Nom = etu.Nom) then
      write(FicSortie,item);
  end;
end;

Autre déclaration possible (optimisation au niveau de la mémoire).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure suppression(const etu : Tertudiant ; const FicEntre ; var FicSortie : Fetudiant);

J’espère vous avoir aidé.

[droggo]

Giu,

Bonjour,
Voici un exemple de programme qui génère un fichier dans lequel l’étudiant mis en paramètre à été supprimé.

J’espère vous avoir aidé.

Ça ne répond pas à la question posée par Alcatîz. Or, la réponse dépend de ta réponse

Pour la déclaration de ta procédure, il est clair qu'il faut utiliser la 2ème syntaxe.

Il faut éviter la copie de si grosses données lors de chaque appel à une fonction.

[elhou80]

je pense que ma question n'est pas claire:
alors: je veux que la suppression se faite dans le meme fichier, c-à-d supprime l'étudiant n° x et laisser les autres.
quelle la commande exacte pour supprimer un fichier
je veux aussi, une sollution pour trier les enregistrement.

j'utilise une fichier fiche.dat contenant les etudiants.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
      writeln('Donnez le nom du Fichier … créer SVP :');
      readln(fichier);
      assign(fEtud,fichier);
      rewrite(fEtud);
.....

merci de m'aider

[elhou80]

alors aucun ne veut répondre,

j'ai trouvé un solution, mais je ne sais pas est ce qu'elle est bonne:

je crée un nouveau fichier nommé ficheN.bin, permet d'enregistrer tous les enregistrement sauf l'enregistrement que nous voulons supprimer,
- supprimer l'ancien fichier.
- Renommer le nouveau fichier (prend le nom du ancien).



c'est une bonne solution??????

[Ultima]

j'ai trouvé un solution, mais je ne sais pas est ce qu'elle est bonne:

je crée un nouveau fichier nommé ficheN.bin, permet d'enregistrer tous les enregistrement sauf l'enregistrement que nous voulons supprimer,
- supprimer l'ancien fichier.
- Renommer le nouveau fichier (prend le nom du ancien).



c'est une bonne solution??????

Bonjour,
C’est en générale une mauvaise idée de créer un fichier intermédiaire.
Je pense qu’il est préférable d’utilisé à peut près ce que j’ai déjà proposé, mais cette fois, il faudrait que la procédure crée un tableau contenant les fichiers désiré.
Ensuite, il suffit de rééditer le fichier initiale (rewrite(fEtud)), et d'y vider le contenu du tableau.
Non seulement, c’est facile de travailler avec un tableau, mais surtout c’est une économie énorme en matière de vitesse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
reset(fEtud);
 -- je craie mon tableau
rewrite(fEtud);
 -- je vide mon tableau dans fEtud

[ALT]

Tout dépend de la mémoire disponible : si le fichier est gros, le charger en mémoire (sous forme de tableau, de liste ou n'importe quoi d'autre) risque d'être rapidement acrobatique.
Une solution consiste donc à marquer (avec un code que le programmeur choisit en fonction de ses besoins) l'enregistrement comme effacé.
On ne gagne donc pas de place sur disque, mais l'emplacement de l'enregistrement est disponible pour une nouvelle écriture.
C'est rapide & efficace.

Exemple :
Dans ce cas, il suffit de remplacer le numéro d'inscription par une série de '#' ou de '*' ou de n'importe quoi d'autre, pourvu que ça ne corresponde à aucun numéro possible.
Quand on liste le fichier, on omet les enregistrements ainsi repérés.
Quand on veut inscrire un nouvel étudiant, il suffit de rechercher le premier enregistrement marqué & d'écrire les nouvelles données à la place (en gros : on bouche les trous). Et s'il n'y a aucun emplacement libre, on ajoute à la fin.


Voilà.