Suppression d'un enregistrement dans un fichier

Version imprimable

Bonsoir,
Je suis étudiante en première année informatique, je fais un programme en TP il s'agit d'un petit logiciel de gestion d'une bibliothèque.
Le programme fonctionne je dirais passablement. mais j'ai un souci : je voudrais supprimer un enregistrement dans un fichier mais je n'y arrive pas. Si quelqu'un pouvait m'aider...
Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 {procedure de supprimer} procedure sup(var x:fich); var i,j:integer ; r:ouvrage; t:fich; begin assign(t,'kika.pas'); rewrite(t); reset(x); writeln(' donner j'); readln(j); for i:=0 to j-2 do begin seek(x,i); read(x,r); write(t,r); end; for i:=j to filesize(x)-1 do begin seek(x,i); read(x,r); write(t,r); end; close(x); close(t); erase(x); rename(t,'document.pas'); assign(f,'document.pas'); end;
merci d'avance

24/03/2018, 20h43
BeanzMaster

Bonjour utilises le formatage du forum met ton code code entre les balises "["Code"]""["/Code"]" (sans les guillemets, là c'est indéchiffrable) et commente un peu ton code car on ne sait pas à quoi corresponde tes variables comme J par exemples. Pourquoi for i:=0 to j-2 do pourquoi -2 ? là en l'état c'est très dur de t'aider.

A+

Bonjour !

Pourquoi y a-t-il deux fichiers dans le programme ?

Pour supprimer un enregistrement dans un fichier, il faut le remplacer par le dernier enregistrement et raccourcir le fichier au moyen de la fonction Truncate.

Voici un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
const
  L_DESCRIPTION = 100;
  L_ADRESSE = 200;
  L_IDENTIFIANT = 50;
  L_MOTDEPASSE = 50;
 
  NOM_FICHIER = 'data';
 
type
  TChaineDescription = string[L_DESCRIPTION];
  TChaineAdresse = string[L_ADRESSE];
  TChaineIdentifiant = string[L_IDENTIFIANT];
  TChaineMotDePasse = string[L_MOTDEPASSE];
 
  TInfosConnection = record
    description: TChaineDescription;
    adresse: TChaineAdresse;
    identifiant: TChaineIdentifiant;
    motdepasse: TChaineMotDePasse;
  end;
 
  TBaseDeDonnees = file of TInfosConnection;
 
...
 
procedure SupprimerEntree(const aIndex: integer);
var
  BDD: TBaseDeDonnees;
  infos: TInfosConnection;
begin
  Assign(BDD, NOM_FICHIER);
  Reset(BDD);
 
  if aIndex < FileSize(BDD) then
  begin
    Seek(BDD, FileSize(BDD) - 1);
    Read(BDD, infos);
    Seek(BDD, aIndex - 1);
    Write(BDD, infos);
  end;
 
  Seek(BDD, FileSize(BDD) - 1);
  Truncate(BDD);
 
  Close(BDD);
end;

suppression d'un enregistrement dans un fichier

bonjour
merci à ceux qui m'ont répondu , merci beaucoup
désolé c'est ma première fois où je vais dans un forum je connais les procédures pour poser un problème
je vous donne la totalité du code,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
{programme par gr01}
program bibliothèque;
uses crt;
type ouvrage=record
    code:integer;
    theme,maison ,titre,auteur:string[20];
       numero:integer;
       disp:string[3];
       rus:string[100];
       end;
   fich=file of ouvrage ;
var h,f:fich;
   o:ouvrage;
procedure creation(var x:fich);
var a:string[3];
begin
rewrite(x);
repeat
with o do
begin
writeln('donner code: ');
readln(code);
writeln('donner titre: ');
readln(titre);
writeln('donner auteur:');
readln(auteur);
writeln('donner theme :');
readln(theme);
writeln ('donner  maison dedition:');
readln(maison);
writeln('donner numero de l''edition :');
readln(numero);
writeln('disponible:');
repeat
readln(disp);
until (disp='oui')or(disp='non');
writeln('resume de livre:');
readln(rus);
end;
write(x,o);
writeln('voulez vous continue ? ');
repeat
readln(a);
until (a='non')or(a='oui');
until(a='non');
close(x);
end;
{procedure de recherche}
procedure rech(var x:fich);
var co,b:integer ;
begin
reset(x);
writeln('rcherche d''un livre');
writeln('entrez le code puor chercher :');
readln(co);
 
while not (eof(x))  do
begin
read(f,o);
if (o.code=co) then
begin
 b:=0 ;
with o do
begin
writeln('le code  : ', code );
writeln('le titre :',titre);
writeln('l''auteur :',auteur );
writeln('le theme :',theme);
writeln('le numero de l''edition :',numero);
writeln('la maison dedition',maison);
writeln('resume',rus);
end ;
end;
end;
if b<>0 then
writeln('livre n''existe pas ');
close(x);
end;
{procedure de ajouter }
procedure ajouter(var x:fich);
begin
reset(x);
seek(f,filesize(x));
with o do
begin
writeln('ajouter un livre');
writeln('donner code: ');
readln(code);
writeln('donner titre: ');
readln(titre);
writeln('donner auteur:');
readln(auteur);
writeln('donner theme:');
readln(theme);
writeln ('donner  maison dedition:');
readln(maison);
writeln('donner numero de l''edition :');
readln(numero);
writeln('disponible:');
repeat
readln(disp);
until (disp='oui')or(disp='non');
writeln('resume de livre:');
readln(rus);
writeln(' ');
end;
write(x,o);close(x);
end;
{procedure de afficher }
procedure affichage(var x:fich);
var e:string;
begin
reset(x);
while not eof(x) do
begin
read(x,o);
writeln('le code  : ',o.code );
writeln('le titre :',o.titre);
writeln('l''auteur :',o.auteur );
writeln('le theme :',o.theme);
writeln('le numero de l''edition :',o.numero);
writeln('la maison dedition',o.maison);
writeln('resumee de livre :',o.rus);
writeln('disponible:',o.disp);
writeln(' ');
readln(e);
end;
close(x);
end;
{fonction de calcule}
function calcul(var x:fich):integer;
var n:integer;
  d:string[20];
begin
writeln('calcule le nombre des livres meme titre');
writeln('entrer le titre :');
readln(d);
reset(x);
n:=0;
while not eof(x) do
begin
read(x,o);
if o.titre=d then
n:=n+1;
end;
calcul:=n;
close(x);
end;
{procedure de modifier}
procedure modifier(var x:fich);
var e,i, n:integer;
begin
reset(x);
writeln('modification d''un livre');
writeln('donner le code n :');
readln(n);
for i:=0 to filesize(x)-1 do
begin
read(x,o);
if (o.code=n) then
begin
writeln('modifier livre:');
writeln('donner code: ');
readln(o.code);
writeln('donner titre: ');
readln(o.titre);
writeln('donner auteur:');
readln(o.auteur);
writeln('donner theme:');
readln(o.theme);
writeln ('donner  maison dedition:');
readln(o.maison);
writeln('donner numero de l''edition :');
readln(o.numero);
writeln('disponible:');
repeat
readln(o.disp);
until (o.disp='oui')or(o.disp='non');
writeln('resume de livre:');
readln(o.rus);
seek(x,i);
write(x,o);
e:=1;
end;
end;
if e<>1 then
writeln('livre introvable');
close(x);
end;
 
{procedure de supprimer}
procedure sup(var x:fich);
var i,j:integer ;
 r:ouvrage;
 t:fich;
 begin
assign(t,'kika.pas');
rewrite(t);
reset(x);
writeln(' donner j');
readln(j);
for i:=0 to j-2 do
begin
seek(x,i);
read(x,r);
write(t,r);
end;
for i:=j to filesize(x)-1 do
begin
seek(x,i);
read(x,r);
write(t,r);
end;
close(x);
close(t);
erase(x);
rename(t,'document.pas');
assign(f,'document.pas');
end;
begin
clrscr;
assign(f,'document.pas');
writeln;
writeln('-----------------------------------------------------------------------');
 writeln( ' menu de choix :');
 writeln('   1: pour ajo00uter un livre');
 writeln('   2: pour supprimer un livre');
 writeln('   3: pour chercher un livre par code');
 writeln('   4: pour modifier un livre');
 writeln('   5: pour calculer le nombre livres qui meme titre ');
 writeln('   6: pour trie les livre ');
 writeln('   7:pour fermer');
writeln('-----------------------------------------------------------------------');
creation(f);
modifier(f);
affichage(f);
end.

25/03/2018, 21h54
mernova

merci beaucoup Roland Chastain pour votre aide
25/03/2018, 23h15
Roland Chastain

Citation:

Envoyé par mernova

merci beaucoup Roland Chastain pour votre aide

Pas de quoi. Avez-vous résolu votre problème ?

J'ai parcouru le code que vous avez posté, en particulier la procédure pour supprimer un enregistrement. Cela pourrait être fait beaucoup plus simplement. Comme je l'ai déjà écrit, vous n'avez pas besoin d'un deuxième fichier. Pour la méthode à suivre, voyez l'exemple que j'ai posté plus haut.

L'extension de votre fichier de données (pas) n'est pas appropriée. Ce n'est pas cela qui empêchera votre programme de fonctionner, mais c'est source de confusion.

Si j'étais vous, pour gagner du temps, je ferais une procédure qui crée automatiquement un fichier de démonstration, pour ne pas avoir à saisir à chaque fois des données. Je ferais aussi une procédure qui affiche tout le contenu du fichier, et je lancerais systématiquement cette procédure après chaque modification, pour voir si tout se passe comme il faut.

Enfin, je mettrais les dialogues avec l'utilisateur en dehors des procédures de modification du fichier. Autrement dit, je demanderais à l'utilisateur l'index de l'enregistrement qu'il veut supprimer, et je passerais cet index à la procédure de suppression.
30/03/2018, 13h43
mernova

bonjour
merci problème résolu