Discussion :

[lerorodu51]

Bonjour, je souhaite modifier un stream de type texte en cherchant/remplacant une chaine de caractère.

Mon code pour le moment :

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
  if aResourceStream.Size<>0 then
          begin
            aResourceStream.Position := 0;
            try
              unStringStream := TStringStream.Create('');
              unStringStream.CopyFrom(aResourceStream, aResourceStream.Size);
              unStringStream.Position := 0;
              sTest := unStringStream.DataString;
              aStringStreamModifie := TStringStream.Create(StringReplace(unStringStream.DataString, '"FRA"', '"FR"',[rfReplaceAll, rfIgnoreCase]));
              tGimprForme.Clear;
              tGImprForme.LoadFromStream(aStringStreamModifie);
            finally
              aStringStreamModifie.Free;
              unStringStream.Free;
            end;
          end;

J'ai l'impression qu'il ne lit pas entièrement mon Stream mais seulement une ligne, est-ce la bonne syntaxe ?

[Ph. B.]

Bonjour,

Hormis la variable sTest qui ne sert à rien dans votre exemple, je ne vois pas de problème, sauf si la chaine lue est d'une taille conséquente !

J'ai l'impression qu'il ne lit pas entièrement mon Stream mais seulement une ligne, est-ce la bonne syntaxe ?

L'impression ???
Vous avez débogué pas à pas le code ?

[lerorodu51]

Bonjour,

Oui j'ai bien débogué pas à pas mais la chaîne qu'il me retourne ne correspond à ce que je fais lorsque j'ouvre mon fichier avec notepadd par exemple. Est-ce normal ?

[Ph. B.]

Oui j'ai bien débogué pas à pas mais la chaîne qu'il me retourne ne correspond à ce que je fais lorsque j'ouvre mon fichier avec notepadd par exemple. Est-ce normal ?

Est ce que le 1° stream (aResourceStream) contient des données correctes ?

[lerorodu51]

Non, c'est pourquoi je me demande si je vais chercher le bon fichier au bon endroit...Je vais creuser de ce côté si la technique est bonne, ça doit venir de là. Merci