[LG]tri alphabétique

bonjour,
cette fois ci je bloque sur le tri alphabétique. Il s'agit toujours de la gestion d'un carnet d'adresse.

je crée un carnet d'adresse, enregistré sur fichier. Il faut que je fasses une suppression d'un enregistrement qui se compose d'une variable de type structure ( nom, prénom ... ).

Bonjour !

Si j'ai bien compris en lisant ton post précédent, tu vas utiliser la méthode proposée par macluvitch pour supprimer un enregistrement dans un fichier.
Et si je comprends bien ta question actuelle, tu cherches une méthode pour, justement, trouver cet enregistrement "n".

Tu dois donc lire ton fichier depuis le début. Ton code devrait donner quelque chose comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Assign(My_File,Nom_Du_Fichier); Reset(My_File); n:=0; Trouve:=False; while (not EOF(My_File)) and (not Trouve) do begin Read(My_File,Rec); if (Rec.Nom = Nom_A_Trouver) and (Rec.Prenom = Prenom_A_Trouver) then Trouve:=True else Inc(n); end; if Trouve then Delete_Data(n) {La procédure de suppression} else WriteLn('Enregistrement non trouvé'); Close(My_File);

---

Personnellement, je choisirais plutôt la méthode de Charly (tout charger en mémoire, faire les manipulations nécessaires et recréer le fichier) : les performances sont meilleures et cela peut s'appliquer à des gros fichiers.

merci du conseil, mais voilà ce que je veux faire :

je veux pouvoir classer mes enregistrements par ordre alphabétique, comme ça lorsque je voudrais chercher une fiche, il me suffira de faire une recherche dichotomique.

Pour cela, je compte crée un second fichier contenant les enregistrements par ordre alphabétique

Voilà, comme l'ont dit Alcatîz et Charly ( et moi précéedemment ), tu charges tout ton fichier dans un tableau ou une liste puis tu la tries et enfin tu la réécris.

a+

Pour trouver l'enregistrment desire je te conseille la fonction suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function Find_Data_Place(Var R : Rec; Var Name : string) : Boolean; Var Found : Boolean; N : Byte; Begin Found = FALSE; While Not EOF(MY_FILE) Do Begin Read(My_file,R); Inc(N); If R.Name = Name Then Begin Found = TRUE; Break End; If Found = FALSE Then Find_Data_Place = FALSE Else Find_Data_Place = N End;

---

Ainsi En utilisant cette fonction tu peux trouver l'emplacement de l'enregistrment desire .

Et si tu veux toujours utiliser la methode de charly je te conseille d'uitliser les listes chainees (linked list) ainsi tout deviendra facile (le tri biensur)

Une autre methode consiste a loader les enregistrement dans la memoire a l'aide des linked list les trier et les afficher trieés sans avoire a les reecrire mais le seul inconvenient qui se represente c'est dans le cas de communiquer avec beaucoup de donnees ,cela devient lourd afin de les reecrire)

Bon courage :wink:

Si tu veux toujours un exemple n'hesite po a me mailer

Avec une liste chaînée, le tri sera plus simple et moins lourd, mais c'est peut-être pas conseillé pour un débutant... Enfin, c'est beaucoup plus simple de déplacer des pointeurs que des enregistrements entiers !
a+