Discussion :

[petitprince]

Voila, j'ai un problème avec les StringLists...
J'ai 2 stringlist: la première contient le text suivant:
vitesse du véhicule
force du vent
masse du véhicule
résistance au sol

La deuxième contient:
force du vent
masse du véhicule

Je voudrait remplacer le text de la première stringlist par <aucune info> en fonction de la deuxième.

Je fais donc:

Code :

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

StringList1.text:=AnsiReplaceStr(Text,Stringlist2.Text, ' <aucune info> ')

Et là rien ne marche!!! Mais si je passe par un mémo intermédiaire, là ca marche !!!
Mais moi ce que je veux, c'est traiter ceci en mémoire et pas avec un mémo !!!
Merci d'avance.....

[OutOfRange]

Salut

Appelez AnsiReplaceStr pour analyser la chaîne spécifiée par AText et remplacer toutes les occurrences de la chaîne spécifiée par AFromText par la chaîne spécifiée par AToText. Les occurrences de AFromText sont identifiées par une comparaison tenant compte de la casse. L'identification des sous-chaînes n'est pas récursive : si la substitution de AToText aboutit à une nouvelle correspondance de AFromText, celle-ci n'est pas remplacée.

Je fais donc:

Code :

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

StringList1.text:=AnsiReplaceStr(Text,Stringlist2.Text, ' <aucune info> ')

Sauf erreur de ma part, ton code fait ça :
Remplacer dans Text, toutes les occurences de Stringlist2.Text par ' <aucune info> '

Compte tenu de ce que tu décris, ça ne peut pas fonctionner
Les occurences à remplacer ne sont pas Stringlist2.Text

Si ?

[petitprince]

Mon code remplace dans stringlist1 par <aucune info> les occurence contenu par stringlist2
Je fais: Stringlist1.Add.......
Si Si, elles sont bien présente !!

[OutOfRange]

Enumère les chaînes de l'objet TStrings sous forme d'une seule chaîne où les chaînes individuelles sont séparées par des séquences retour chariot, passage à la ligne.

property Text: string;

Description

La propriété Text permet de définir ou d'obtenir toutes les chaînes d'un objet TStrings à l'aide d'une seule chaîne délimitée par des séquences retour chariot, passage à la ligne.

es tu sûr que Stringlist2.Text constitue une occurence à remplacer, sachant que ce string contient l'ensemble de tes chaines (stringlist2[0]+stringlist2[1]+stringlist2[2]...) séparées par des séquences retour chariot ?

[petitprince]

euh ...........
ben voila mon code, mais en effet ce que tu me dit me fait réfléchir

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
23
24
25
26
27
28
29
30
31
procedure TForm1.Button3Click(Sender: TObject);
var
Streaming:TMemoryStream;
StringList1,StringList2: TStringList;
i:integer;
begin
Streaming:=TMemoryStream.Create;
RxRichEdit1.Lines.SaveToStream(streaming);
Streaming.Position := 0;
Res := TResourceStream.Create(0,'MONTEXT','TEXT');
StringList2 := TStringList.Create;
memo3.Lines.LoadFromStream(Res);
 
StringList1 := TStringList.Create;
  try
    with StringList1 do begin
      LoadFromStream(Streaming);
      Text := AnsiReplaceStr(Text,memo3.Lines.Text, ' <aucune info> ');
      end;
    with memo2 do begin
      Lines.Assign(StringList1);
    end;
  finally
    StringList1.free;
    StringList2.Free;
Streaming.Free;
Res.Free;
  end;
 
 
end;

Note que dans mon exemple la Stringlist2 est là en touriste, et remplacé par memo3 (comme j'ai que ca marchais qu'avec le memo)
Et je charge dans stringlist1 un text issu d'un richedit, et dans la stringlist2 (enfin dans le memo3 !!!!) un text issu de mes ressources...
Voila...
En effet, ca doit merder au niveau des retours chariot

[petitprince]

Alor, personne n'a de solution pour mon problème ?
En tout cas merci OutOfRange...