insérer ou remplacer une ligne string dans un fichier texte ?

**Night_Wolf1619** · 13/05/2013, 09h07

je traite un fichier texte qui se compose de plusieurs lignes de texte.
je peux en ajouter ou en supprimer mais je n'arrive pas à remplacer une ligne par une autre et aussi je n'arrive pas a insérer une ligne

quelqu’un a une idée ?
merci, je suis sur delphi 7

**tourlourou** · 13/05/2013, 09h29

Je te conseille de regarder l'objet TStringList qui permet de charger/sauver un fichier texte avec LoadFromFile/SaveToFile.
Tu accèdes à chaque ligne grâce à la propriété Lines[i] (MyStringList.Lines[3] := 'My New Line'

et dispose des méthodes Add (ajoute à la fin), Insert, Delete et tant d'autres.

**Gilbert Geyer** · 13/05/2013, 09h35

Bonjour,

je traite un fichier texte qui se compose de plusieurs lignes de texte.
je peux en ajouter ou en supprimer mais je n'arrive pas à remplacer une ligne par une autre et aussi je n'arrive pas a insérer une ligne

Bin, tout dépend du contexte dans lequel tu traites ton fichier texte.
Si par exemple ton texte est chargé dans une TstringList tu disposes de la méthode "Insert" pour insérer, et pour remplacer une ligne par une autre il suffit de faire MaListe[indice]:='maChaineDeRemplacement';

Donc le plus simple pour avoir une meilleure réponse c'est de donner un bout de code montrant comment tu penses traiter ton fichier.

A+.

**Gilbert Geyer** · 13/05/2013, 09h37

Re-bonjour,

Mille excuses, Tourlourou T'as dégainé plus vite que moi.

A+.

**Night_Wolf1619** · 13/05/2013, 09h54

Voici le code
pour supprimer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure doublonefface();
var
FichierATraiter:string;
Fichier:TStringList;
begin
if doublon<>999999 then
begin
  FichierATraiter:=((IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');
  Fichier:=TStringList.Create;
  try
    // Chargement du fichier
    Fichier.LoadFromFile((IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');
    // Suppression de la ligne
    Fichier.Delete(doublon-1);
 
    // Sauvegarde de la modification
    Fichier.SaveToFile((IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');
  finally
    Fichier.Free;
end;
end else exit;
end;

ici pour ajouter ou supprimé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
if SIDSUPDATE then
begin
 assignfile(NW_SIDS,(IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');
 {Assigns the Filename}
Append(NW_SIDS); {Opens the file for editing}
Writeln(NW_SIDS,MainProgram.name+':'+inttostr(MainProgram.SID_pid)+':'+inttostr(MainProgram.tp_id)
 +':'+inttostr(MainProgram.PMT_pid)+':'+MainForm.CA_SYSTEMS.Cells[1,Active_ROW]+':'+MainForm.CA_SYSTEMS.Cells[0,Active_ROW]+':'+MainForm.CA_SYSTEMS.Cells[3,Active_ROW]+':;');
Closefile(NW_SIDS); {Closes file NW_SIDS}
GUI.PushMSG_Info(MainProgram.Name+'  :- New Sids Add ! '+' NW_SIDS Updated......! ');
end else if (doublon<> 999999) and (MainForm.CA_ACTIVE_KEY.Cells[6,0]<>'*') then
begin
doublonefface();
 assignfile(NW_SIDS,(IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');
 {Assigns the Filename}
Append(NW_SIDS); {Opens the file for editing}
Writeln(NW_SIDS,MainProgram.name+':'+inttostr(MainProgram.SID_pid)+':'+inttostr(MainProgram.tp_id)
 +':'+inttostr(MainProgram.PMT_pid)+':'+MainForm.CA_SYSTEMS.Cells[1,Active_ROW]+':'+MainForm.CA_SYSTEMS.Cells[0,Active_ROW]+':'+MainForm.CA_SYSTEMS.Cells[3,Active_ROW]+':;');
Closefile(NW_SIDS); {Closes file NW_SIDS}
GUI.PushMSG_Info(MainProgram.Name+'  :- Change detected ...! New Sids Add ! '+' NW_SIDS Updated......! ');
end ;

il me manque le remplacement ou insertion mais insertion ici entre les ligne pas a la fin

**ShaiLeTroll** · 13/05/2013, 10h05

Si tu veux travailler sur de gros fichiers sans le charger entièrement en mémoire voir le sujet Comment chercher une valeur hex dans un fichier binaire "file of byte",
j'avais utilisé SearchBinaryInFile pour indexer les emplacements, ensuite, j'avais écrit une fonction de substitution de texte utilisant ce tableau
Cela avait été écrit pour transformer automatiquement les code d'une application pour modifier des Translate de Multilizer pour les adapter à un autre système de Translate plus performant mais ayant besoin de plus de paramètre

Cela générait au passage, un fichier de langue contenant tous les messages dédoublonnés chacun avec un numéro incrémenté, si j'avais encore ce code, je te l'aurais passé mais ce n'est pas le cas

Voir aussi les sujets
[D2009] TFileStream Big Files (demande de conseil)
Suppression des doublons d'un ListBox très long !
Parcourir un fichier texte sans charger le fichier

**Gilbert Geyer** · 13/05/2013, 14h30

Re-bonjour,

Night_Wolf1619 : Petite question : la procédure doublonEfface() est appelée dane le if SIDSUPDATE then : Est-ce que ce if SIDSUPDATE then est placé dans une boucle car cela m'intrigue que le même fichier soit Chargé/Sauvé à chaque suppression de doublon. Si oui il serait préférable de charger ce fichier une seule fois en-dehors de cette boucle puis sauvé une seule fois lorsque toutes le lignes-doublon sont supprimées.

Remarque 2 : La procédure doublonEfface() utilise la variable "Doublon" utilisée par Fichier.Delete(doublon-1) et efface la ligne précédant celle du Doublon : bizarre.

Remarque 3 : Dans le cas où tu conserverais l'utilisation de la StringList "Fichier" que tu charges avec Fichier.LoadFromFile() il est inutile d'utiliser Writeln pour sauver le même fichier puisqu'il existe Fichier.SaveToFromFile() comme le rappelait déjà Tourlourou c'est bien plus simple et plus lisible.

Et à propos de

il me manque le remplacement ou insertion mais insertion ici entre les ligne pas a la fin

:
- Pour l'insertion :

Code :

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

1
2
3
 
Fichier.Sorted:=False;
Fichier.Insert(Index: Integer; const S: string); : ça inserre la nouvelle ligne devant la ligne d''indice Index.

- Pour la remplacement du texte d'une ligne d'indice Index :

Code :

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

Fichier[Index] := 'NouvelleString';

A+.

**Gilbert Geyer** · 13/05/2013, 14h49

Re-bonjour,

Au fait, je viens de me souvenir d'une discussion de 2007 qui portait sur la détection/suppression-rapides de doublons dans des fichiers de texte : voir ici la procedure SupprDoublonsAOS(const nomFiSource, NomFiDest : string; IgnoreCase : boolean) : http://www.developpez.net/forums/d44...te-rapidement/

A+.

**GoustiFruit** · 13/05/2013, 14h52

Euh, tu définis une variable FichierATraiter et tu ne l'utilises jamais, c'est parce que tu aimes te compliquer la vie ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure doublonefface();
var
FichierATraiter:string;
Fichier:TStringList;
begin
if doublon<>999999 then
begin
  FichierATraiter:=((IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');
  Fichier:=TStringList.Create;
  try
    // Chargement du fichier
    Fichier.LoadFromFile(FichierATraiter);
    // Suppression de la ligne
    Fichier.Delete(doublon-1);
 
    // Sauvegarde de la modification
    Fichier.SaveToFile((IncludeTrailingPathDelimiter(FichierATraiter);
  finally
    Fichier.Free;
end;
end else exit;
end;

**GoustiFruit** · 13/05/2013, 14h54

Envoyé par Gilbert Geyer

Re-bonjour,

Au fait, je viens de me souvenir d'une discussion de 2007 qui portait sur la détection/suppression-rapides de doublons dans des fichiers de texte : voir ici la procedure SupprDoublonsAOS(const nomFiSource, NomFiDest : string; IgnoreCase : boolean) : http://www.developpez.net/forums/d44...te-rapidement/

A+.

C'est le genre de bouts de code qui devrait être beaucoup plus facile à trouver !

**Andnotor** · 13/05/2013, 15h23

Il y avait aussi celle-ci en passant par une table de hachage

**Night_Wolf1619** · 13/05/2013, 15h31

Re-bonjour,

Night_Wolf1619 : Petite question : la procédure doublonEfface() est appelée dane le if SIDSUPDATE then : Est-ce que ce if SIDSUPDATE then est placé dans une boucle car cela m'intrigue que le même fichier soit Chargé/Sauvé à chaque suppression de doublon. Si oui il serait préférable de charger ce fichier une seule fois en-dehors de cette boucle puis sauvé une seule fois lorsque toutes le lignes-doublon sont supprimées.

oui il est dans une boucle même que les 2 sont dans une boucle
je ne peut le charger une seule fois car il est utiliser par plusieurs procédures
et je vais avoir l'erreur E/S 32 j'ai déjà testé

Remarque 2 : La procédure doublonEfface() utilise la variable "Doublon" utilisée par Fichier.Delete(doublon-1) et efface la ligne précédant celle du Doublon : bizarre.

c'est simple 'doublon' et l'index de la ligne généré par une autre procédure dont la boucle commence par 1 alors que dans doublonEfface() ca commence par 0 si je met seulement Fichier.Delete(doublon) il va effacé la ligne qui se trouver juste après la ligne que je veut supprimé c pourquoi le Fichier.Delete(doublon-1)

Remarque 3 : Dans le cas où tu conserverais l'utilisation de la StringList "Fichier" que tu charges avec Fichier.LoadFromFile() il est inutile d'utiliser Writeln pour sauver le même fichier puisqu'il existe Fichier.SaveToFromFile() comme le rappelait déjà Tourlourou c'est bien plus simple et plus lisible.

Writeln dans ce cas et pour qu'il reviens a la ligne sinon je vais me trouver avec tout le texte dans une seule ligne

**Night_Wolf1619** · 13/05/2013, 15h55

Merci a vous tous Problème résolu

**Gilbert Geyer** · 13/05/2013, 16h15

Re-bonjour,

GoustiFruit :

C'est le genre de bouts de code qui devrait être beaucoup plus facile à trouver !

Merci pour le compliment. Mais comme tu viens de le trouver le problème est réglé ... au moins pour toi.

Andnotor :

Il y avait aussi celle-ci en passant par une table de hachage

Ah, oui mais je ne m'en souvenais plus. C'est fou le nombre de fois où l'on a supprimé des doublons !!!

Night_Wolf1619 : :

je ne peux le charger une seule fois car il est utilisé par plusieurs procédures et je vais avoir l'erreur E/S 32 j'ai déjà testé

Ok, si on ne peut faire autrement faudra s'en contenter.

Pour l'histoire du Fichier.Delete(doublon-1) : Pigé.

A propos de

Writeln dans ce cas et pour qu'il revienne à la ligne sinon je vais me trouver avec tout le texte dans une seule ligne

Là je ne comprends pas bien car si on fait Fichier.SaveToFromFile() et ensuite Fichier.LoadFromFile() on retrouve tout le texte sur plusieurs lignes ... si lors du SaveToFromFile il comportait plusieurs lignes bien entendu.

Et pour l'insertion de lignes et le remplacement de lignes : c'est OK ???

A+.

**Gilbert Geyer** · 13/05/2013, 16h17

Re-bonjour,

Je me suis encore une fois de plus fait prendre de vitesse.

A+.

**Night_Wolf1619** · 13/05/2013, 22h02

Re Gilbert Geyer

Là je ne comprends pas bien car si on fait Fichier.SaveToFromFile() et ensuite Fichier.LoadFromFile() on retrouve tout le texte sur plusieurs lignes ... si lors du SaveToFromFile il comportait plusieurs lignes bien entendu.

Si tu revois bien le code dans ce cas la il n y a pas de Fichier.LoadFromFile() ou Fichier.SaveToFromFile() la je travail directement sur le fichier d’où l'utilisation de Writeln

Et pour l'insertion de lignes et le remplacement de lignes : c'est OK ???

c'est OK

A+ les amis et Merci encor

**Gilbert Geyer** · 14/05/2013, 10h03

Bonjour,

A Night_Wolf1619

Ouille, je m'aperçois avoir écrit une bêtise en parlant de Fichier.SaveToFromFile() je voulais dire Fichier.SaveToFile().

Si tu revois bien le code dans ce cas la il n y a pas de Fichier.LoadFromFile() ou Fichier.SaveToFromFile() la je travail directement sur le fichier d’où l'utilisation de Writeln

En fait il bien un Fichier.LoadFromFile((IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');

... mais bon l'essentiel est que ton problème soit résolu.

A+.

**Night_Wolf1619** · 14/05/2013, 10h56

RE Gilbert Geyer

En fait il bien un Fichier.LoadFromFile((IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');

ce n'ai pas exactement ça mais en faite c'est

Code :

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

assignfile(NW_SIDS,(IncludeTrailingPathDelimiter(ExtractFileDir(GetModuleAbsolutePath)))+'NW_SIDS.key');

c'est juste le chemin du fichier

... mais bon l'essentiel est que ton problème soit résolu.

oui mais je viens de m’apercevoir d'une chose que je n'arrive pas a comprendre !!?

pour le remplacement du string j'ai fait comme ce ci

Code :

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

MyStringList.Lines[i] := 'My New Line';

dans ce cas aucun problème mais si je met le string dans un edit

Code :

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

MyStringList.Lines[i] := Edit1.Text;

la rien ne ce passe je ne comprend pas ???

**tourlourou** · 14/05/2013, 11h52

Fais un ShowMessage(MyStringList.Lines[i]+' =? '+Edit1.Text) pour vérifier la bonne affectation.

**Gilbert Geyer** · 14/05/2013, 14h37

Bonjour,

MyStringList.Lines[i] := Edit1.Text;

Bizarre, car chez moi le compilo n'accepte même pas ça.

Par contre ceci marche :

Code :

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

MyStringList[i] := Edit1.Text;

(Lines[i] ça marche avec un TRichEdit ou avec un TMemo)

A+.

insérer ou remplacer une ligne string dans un fichier texte ?

Delphi

Discussions similaires

Partager

Partager