Discussion :

[Isa31]

Bonjour à tous,

J'ai une question très bête, je crois.

Je voulais savoir comment on faisait pour faire une insertion dans un fichier texte, je veux faire la même insertion plusieurs fois dans mon fichier en indiquant le nombre de ligne entre chaque insertion. Je ne veux pas décaler le contenu de mon fichier, en principe les lignes ou je dois ajouter mon texte sont vides.
J'ai beau chercher, mais je ne trouve pas comment faire mon insertion.
Je pense que c'est tout con, mais bon...

Ie vous remercie d'avance pour votre aide.

Isa

[Mac LAK]

Salut !

J'ai une mauvaise nouvelle pour toi : quel que soit le type de fichier, l'insertion au sein de celui-ci requiert un décalage du reste du fichier... Même si c'est simplement un octet ou une ligne vide !!

Si ton fichier texte est court, tu peux pallier ce problème en le chargeant dans un TStringList, ajouter tes lignes, puis le resauver.

S'il est long, c'est un autre (gros) problème...

[Isa31]

Mon fichier est assez long, sinon je ne peux pas passer par un fichier temporaire et enlever une ligne a chaque fois : :
Comment se fait-il qu'on ne puisse pas insérer des caractères sans modifier le fichier existant, on ne peut pas remplacer des caractères tout simplement :

[Mac LAK]

Mon fichier est assez long, sinon je ne peux pas passer par un fichier temporaire et enlever une ligne a chaque fois : :
Comment se fait-il qu'on ne puisse pas insérer des caractères sans modifier le fichier existant, on ne peut pas remplacer des caractères tout simplement :

Ah, là, ça change beaucoup de choses !
Remplacer des octets dans le fichier, ça, c'est possible par contre (du moins, en mode binaire : en mode texte, c'est un peu plus complexe).
Donc, tu peux tout à fait "remplacer" une ligne existante par une ligne "presque" vide, composée d'espaces par exemple.
Mais pour l'insertion, imagines-toi qu'un fichier est un bloc continu, un peu comme une bibliothèque avec plein d'étagères...
Tu ne peux pas "attaquer" une nouvelle étagère sans avoir rempli à 100% la précédente. Et si tu veux insérer un livre dans une des étagères, il faut impérativement déplacer les livres existants, car la taille des étagères est fixe, et elles sont déjà pleines !

On est souvent trompés par les programmes d'édition de texte (de Notepad à Word en passant par les éditeurs de code des compilateurs), parcequ'ils chargent une grande partie du fichier en mémoire, et utilisent en plus des fichiers temporaires. Donc, on a l'impression que c'est simple, mais ça ne l'est pas du tout.

Par contre, qu'appelles-tu "assez long" ? Plus d'un méga ? Moins ? 10 Mo ? 100 Mo ? Peux-tu préciser un peu, stp ?

[Isa31]

Pour la taille elle est variable, en fait c'est des fichiers que je récupère sur Internet dans lesquels je dois ajouter des caractères pour qu'ensuite ils puissent être intégrés.
Pour le moment il est petit (30ko), mais il va grandir assez vite, je pense.
On fait comment pour "remplacer" des caractères :
En fait pour être plus claire, je dois faire coller mes caractères en haut de chaque page et je connais la hauteur des pages.

[Mac LAK]

Pour la taille elle est variable, en fait c'est des fichiers que je récupère sur Internet dans lesquels je dois ajouter des caractères pour qu'ensuite ils puissent être intégrés.

Une sorte d'archive TAR sans compression, c'est ça ? Une "concaténation" de fichiers texte ?

Pour le moment il est petit (30ko), mais il va grandir assez vite, je pense.

Jusqu'à une dizaine de mégas, la méthode du TStringList (ou mieux, THashedStringList qui est plus rapide) fonctionnera sans problèmes.

On fait comment pour "remplacer" des caractères :

Il faut ouvrir le fichier en mode binaire. Le problème vient surtout qu'il faut "trouver" la position de la ligne une fois le fichier ouvert en binaire.

Il y a un topic qui traite un peu du même sujet, tu devrais aller y faire un petit tour.

En fait pour être plus claire, je dois faire coller mes caractères en haut de chaque page et je connais la hauteur des pages.

Mouais, mais là, c'est pas plus clair ! ;-) Quelle hauteur ?
Sérieusement, tu récupères quoi du net ? Tu rajoutes quoi comme caractères, et à quel endroit précisemment ?

[Isa31]

Je m'excuse de ne pas être très claire, mais je suis malade et tout se mélange dans ma tête.

Je récupére mon fichier avec les décompte (c'est pour des mutuelles), j'ai une page par personne, pour l'exemple que j'ai ma page fait 71 ligne. Le dois donc mettre un code du style "A01" sur la 1er ligne de chaque page.
Je ne dois pas toucher à la pagination déjà existante, je dois juste insérer les caractère sans rien bouger dans le fichier.
Mon fichier n'est pas compressé, il n'a pas d'extention, il est déjà prêt à être lu.
Elle marche comment la méthode du TStringList :

J'ai commencé a regarder le topic. Je te remercie beaucoup.
Je crois que je vais aller me coucher, je ne tiens plus debout.

[cpdump]

Voila un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
filestring: TStringList;
 
// Lecture du fichier
filestring.LoadFromFile('monfichier.txt');
 
// boucle pour mettre à jour les lignes concernées
// ....
filestring[i] := 'A01' + filestring[i]; // Rajout d'un code en debut de ligne
 
// Sauvegarde du fichier
filestring.SaveToFile('monfichier.txt');

[Mac LAK]

Je m'excuse de ne pas être très claire, mais je suis malade et tout se mélange dans ma tête.

Bienvenue au club : moi aussi... L'avantage, au moins, c'est que je suis en congés, quand j'en ai marre, je vais zoner devant la télé... ;-)

Je récupére mon fichier avec les décompte (c'est pour des mutuelles), j'ai une page par personne, pour l'exemple que j'ai ma page fait 71 ligne. Le dois donc mettre un code du style "A01" sur la 1er ligne de chaque page.
Je ne dois pas toucher à la pagination déjà existante, je dois juste insérer les caractère sans rien bouger dans le fichier.
Mon fichier n'est pas compressé, il n'a pas d'extention, il est déjà prêt à être lu.
Elle marche comment la méthode du TStringList :

OK. Bon, c'est assez simple.
Le code ressemble à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// On crée directement la liste.
With (TStringList.Create) Do
     Begin
     // On charge le fichier en mémoire, dans la liste.
     LoadFromFile('C:\MonFichier.txt");
     // Comme on insère en position 0, il faut insérer les lignes "à l'envers".
     Insert(0,"Dernière ligne insérée");
     Insert(0,"Première ligne insérée");
     // On sauve le fichier, sous le même nom.
     SaveToFile('C:\MonFichier.txt");
     // Il faut penser à libérer la liste, sinon il va y avoir des fuites mémoire.
     Free;
     End;

Si les fichiers sont gros (et si tu utilises Delphi 6 ou plus), tu peux utiliser THashedStringList (en lieu et place de TStringList), il est plus rapide mais consomme un peu plus de mémoire. TStringList devient assez lent au delà d'un millier de lignes.

J'ai commencé a regarder le topic. Je te remercie beaucoup.

Pas de quoi.

Je crois que je vais aller me coucher, je ne tiens plus debout.

Soignes-toi bien, alors.

[Isa31]

Merci pour vos réponses, je vais essayer tout ce que vous m'avez dit. je pense que ce matin j'ai les idées plus claire...
Et oui, je bosse, il faut bien qu'il y en ai qui se sacrifie en période de fête....
Bon je vais essayer vos solutions et je vous tiens au courant.

[Isa31]

Ca y est ça marche merci beaucoup pour votre aide!!!!