Discussion :

[Bibou_ini]

Bonjour

Voilà, j'ai un fichier de caractères et je veux supprimer le dernier composant ; j'ai essayé cette procedure mais j'ai trouvé qu'on ne peut pas lire le FF ( fin de fichier ) alors si vous pouviez m'aider. J'ai aussi essayé le truncate(fichier) ça n'a pas marché. MERCI

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure suppres  (var f:file of char; j:longint);  
   { je veut supprimer le composant j }
var c:char; k:longint; 
begin
    for k := j to (filesize(f)-1) do
    begin
        seek(f,k+1);
        read(f,c);
        seek(f,k);
        write(f,c);
    end;
end;

[Loceka]

La fonction eof(File) te dis si le caractère sur lequel tu es positionné est ou non la fin du fichier.

[droggo]

Gao,

L'aide de TP pour Truncate te donne un exemple d'utilisation, il n'y aucun problème pour l'adapter à ton cas, ça relève pratiquement du copier/coller.

[darrylsite]

Bonjour voila j'ai un fichier de caractére et je veux supprimer le dernier composant ; j'ai esseyé cette procedure mais j'ai trouver qu'on peut pas lire le FF ( fin de fichier ) alors si vous pouvez m'aider. j'ai aussi esseyé le truncate(fichier) ça na pas marché .MERCI

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure suppres  (var f:file of char; j:longint);  
   { je veut supprimer le composant j }
var c:char; k:longint; 
begin
    for k := j to (filesize(f)-1) do
    begin
        seek(f,k+1);
        read(f,c);
        seek(f,k);
        write(f,c);
    end;
end;

Si tu veux atteindre le dernier caractere, je crois que c' est pas très difficile
* filesize te donne la taile du fichier en octet or un caractere fait un octet.
* pour atteindre le dernier caractere, il te suffit de faire seek(f,filesize(f)-1) puisque la premiere position dans le fichier est 0.

A partir de là, tu peux faire le "truncate".

Ou si tu veux faire complet, tu peux copier le contenu du fichier f dans un autre fichier excepté le dernier caractere. Tu pourras t' aider de filepos pour savoir si tu as atteint le dernier composant du fichier.

Si c' est pour un composant "j" quelconque, tu ne peux pas utiliser truncate. Il te faut maintenant recopier le contenu de f dans un autre fichier sauf le composant "j". filepos peut te dire si tu as atteint le composant j.

[droggo]

Fae,

...
* filesize te donne la taile du fichier en octet or un caractere fait un octet.
...

Eh non

DESCRIPTION: F est une variable de type fichier. FileSize(F) renvoie le nombre d'éléments du fichier F. Si le fichier est vide, FileSize(F) renvoie 0.

Il se trouve que pour un File of Char, c'est la même chose, à cause la taille d'un Char = 1.

[darrylsite]

Fae,

Eh non


Il se trouve que pour un File of Char, c'est la même chose, à cause la taille d'un Char = 1.

+1.
Je me suis fais avoir par le nom de la fonction.

[droggo]

Hai,

+1.
Je me suis fais avoir par le nom de la fonction.

Je le savais par coeur, pour m'être fait avoir aussi, dans le temps (quelque chose comme la préhistoire ).