Discussion :

[Soulama]

Salut,
jessaye de tokenizer une chaine String avec le Code suivant:

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
 
procedure TForm1.GetTokensClick(Sender: TObject);
Var
  Str: String;
  List: TStringList;
begin
  Str:= 'aaa ooo | bbb| ccc| dddd';
  List:= TStringList.Create;
  List.Delimiter:= '|';
  Try
    List.DelimitedText:= Str ;
    showmessage(inttostr(list.Count));
  Finally
    FreeAndNil(List);
  End ;
end;

normaleman le showmessage doit me donner 4 Token, mais il me donne 5???
vos suggestions sont les bienvenue,
Merci

[Rayek]

Je viens de tester çà

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
 
Var
  Str: String;
  List: TStringList;
  i : integer;
begin
  Str:= 'aaa ooo | bbb| ccc| dddd';
  List:= TStringList.Create;
  List.Delimiter:= '|';
  Try
    List.DelimitedText:= Str ;
    for i := 0 to list.count -1 do
      memo1.Lines.add(List.Strings[i]);
//    showmessage(inttostr(list.Count));
  Finally
    FreeAndNil(List);
  End ;

Et il en ressort

aaa
ooo
bbb
ccc
dddd

En clair le DelimiterText prend en compte aussi les espaces.

Moi je te propose la solution suivante et qui fait ce que tu veux faire

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
 
Var
  Str: String;
  List: TStringList;
  i : integer;
begin
  Str:= 'aaa ooo | bbb| ccc| dddd';
  List:= TStringList.Create;
  try
    List.Text := StringReplace(Str,'|',#13#10,[RfReplaceAll]);
    for i := 0 to list.count -1 do
      memo1.Lines.add(List.Strings[i]);
  Finally
    FreeAndNil(List);
  End ;

[Soulama]

Merci Malatar,