Discussion :

[Escandil]

Bonjour,

Au sein de l'un de mes projets actuels, je suis amené à copier des fichiers de type texte, et à modifier certaines valeurs (fixes) en leur sein.

En fait mes fichiers ressemble à cela :

Code :

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

1
2
3
4
5
6
 
xxxxxxxx xxxxx xxxx xxxxx Ma_Valeur xxxx xxxxxx xxxx xxxxx
xxxxxxxx xxxxx xxxx xxxxx  xxxx xxxxxx xxxx xxxxx
xxxxxxxx xxxxx xxxx xxxxx Ma_Valeur xxxx xxxxxx Ma_Valeur xxxxx
xxxxxxxx xxxx xxxxxx xxxx xxxxx
xxxxxxxx xxxxx xxxx xxxxxx Ma_Valeur xxxxx

Je cherche donc à remplacer les occurences Ma_Valeur par une chaîne de carractère définie au moment de l'execution.
En fait il s'agis de l'équivalent d'un simple 'remplacer par' de n'importe quel éditeur de texte.


Mon code actuel consiste a charger le fichier dans une TStringlist et d'y appliquer la fonction StringReplace. Toutefois, cette méthode est assez longue et je souhaite savoir s'il n'existe pas une fonction prédéfinie qui permet de traiter directement le fichier sans avoir à le charger en mémoire. (TFile ?)

Bien entendu j'ai parcouru la FAQ, mais je n'ai pas trouver d'équivalence à ce problème.

[Escandil]

Je diffuse mon code pour peu que ça intérresse

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
 
var
  Mon_Fichier : TStringList;
begin
  Mon_Fichier := TStringList.Create;
 
  try
 
    if FileExists('C:\..\Sources\Le_Fichier_A_Traiter.txt') then
    begin
      Mon_Fichier.LoadFromFile('C:\..\Sources\Le_Fichier_A_Traiter.txt');
      StringReplace(Mon_Fichier.Text,'La_Valeur_Recherchée','La_Nouvelle_Valeur',[rfReplaceAll]);
      Mon_Fichier.SaveToFile('C:\..\Sources\Le_Nouveau_Fichier.txt');
    end;
 
  finally
    Mon_Fichier.Free;
  end;
 
end;

[Manopower]

Quand j'ai a faire ce genre de manipulation, je boucle sur le fichier, j'écris un fichier temporaire et à la fin je remplace le fichier par mon temporaire

avec

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
var
  f,Tmp : textfile;
  S : String;
begin
(...)
  Assign(f,'C:\texte.txt');
  Assign(tmp,'C:\texte.tmp');
  Rewrite(tmp);
  Reset(f);
  While not Eof(f) do
  begin
    Readln(f,s);
    ReplaceStr(s,Ma_valeur,ManouvelleValeur,[rfReplaceAll]);
    Writeln(Tmp,s);
  end;
  Closefile(f);
  Flush(Tmp);
  Closefile(tmp);
  //Suppression du fichier txt
  //Rennomage du .tmp en .txt

Code écrit de mémoire sans Delphi, il y a peut être des erreurs
Il faut aussi dire que je n'ai jamais eu à traiter des fichiers de plus de 10.000 lignes donc j'ai toujours trouvé ça rapide à tester !

[Escandil]

Merci pour ta réponse, mais en traitant le fichier ligne par ligne, le traitement est aussi long qu'avec la méthode utilisant une TStringList.

En fait au vu de la taille de mes fichiers, le chargement en TStringList n'est qu'un problème mineur. Le véritable but de ce post étant de déterminer s'il existe déjà une fonction pré-programmé

[Manopower]

Pour répondre à ta question alors je ne penses pas, en tout cas pas dans la VCL et si il en existait une, elle ferait quand même une boucle en interne, y'a pas de solution magique, il faut bien un moment ou un autre vérifier sur chaque ligne l'occurence de Ma_valeur.

[Escandil]

Je ne pense pas non plus que le gain de performance soit probant, mais si une telle fonction existe, je préfère la connaitre et l'utiliser

Cela dit, merci encore.


Au fait, pourquoi n'y a t'il aucune réponse de ce genre dans la FAQ ?

[Escandil]

Apres tests (désolé ça m'a pris un peu de temps) ta méthode me permet surtout de ne pas surcharger ma mémoire vive (déjà très demandée par le reste du programme) et me permet effectivement un léger gain de temps.

[e-ric]

Salut

Il n'existe rien de standard à ma connaissance dans Delphi sur ce sujet.
La solution consiste à mon avis à trouver des algorithmes de recherche, sur le Net ou dans des livres, répondant à ton besoin et les coder en Delphi.

Emploie de préférence les objet TFileStream pour l'accès au fichier, cela t'évitera le chargement en mémoire qui n'apporte rien et peut consommer beaucoup de mémoire. Problème à résoudre : La modification efficace des données du fichier si le texte de remplacement est de taille différente de celle du texte à remplacer.

cdlt

e-ric