StreamRésolu

Question

Bonjour,

Je n'ai plus programm&#233; depuis un moment et je dois faire une petite application en Delphi5.
Je dois en fait simplement rechercher des mots clefs dans un fichier texte et les remplacer par une valeur entr&#233;e par l'utilisateur.
En C#, j'ai facilement r&#233;alis&#233; cette op&#233;ration, mais en Delphi je rencontre pas mal de soucis.
D&#233;j&#224; pour l'utilisation du stream ... Lors de la sauvegarde, mon fichier texte pert ses propri&#233;t&#233;s de mise en page ... Il n'y a plus de retour &#224; la ligne ni d'&#233;dentation ... Tout est &#224; la suite, avec plein de symboles cabalistiques.
Je rencontre aussi des probl&#232;me pour rechercher les mots clefs dans le stream.
Si quelqu'un pouvais m'aider ... avec un exemple de code ou un tutorial, ce serait vraiment tr&#232;s sympa.
Merci beaucoup,
Celt.

cs_Delphiprog · Accepted Answer

Pourquoi vouloir absolument utiliser des streams ?
var
  AncienMot, NouveauMot: string;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl :=  TStringList.Create;
  try
    sl.LoadFromFile('MonFichier.txt');
    sl.Text := StringReplace(sl.text, AncienMot, NouveauMot, [rfReplaceAll, rfIgnoreCase]);
    sl.savetofile('MonFichier.txt');
  finally
    sl.Free;
   end ;
end;

Ce simple bout de code suffit &#224; r&#233;aliser un remplacement de toutes les occurences d'un mot en ignorant la casse.


<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

celtic00 · Answer

Je me suis orient&#233; vers les stream tout simplement par ce que dans la version C# du logiciel, c'est ce qui avait &#233;t&#233; utilis&#233;.
Donc je ne voulais pas trop me compliquer la vie et refaire pareil ;o)
Mais visiblement ce n'est pas le cas :o|
Je teste ce bout de code d&#232;s lundi (je n'ai pas mes sources sous la main), et je dis si c'est ok.
Merci beaucoup.
Celt

Stream

2 réponses

Votre réponse

Discussions similaires