Discussion :

[Cazaux-Moutou-Philippe]

Bonjour

j ai une chaine de caractere

Code :

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

sChaine := 'AAA+EEE+RRR+TTT'

je voudrais en faire un tableau

Code :

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

1
2
3
4
tChaine[0] := 'AAA'
tChaine[1] := 'EEE'
tChaine[2] := 'RRR'
tChaine[3] := 'TTT'

donc en enlevant tous les +

mais attention car y peut y avoir 'AAA+++EEE+RRR+TTT'
et donc aussi enlever les + en trop

merci

[ero-sennin]

Salut,

J'ai fait une petite procédure ... on doit pouvoir faire mieux mais bon ...
Voici la procédure (rajouter l'unité Types dans les uses):

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
procedure SplitAndGetElement(const chaine:string;const separateur:char;out TabOfString:TStringDynArray);
var
  newChaine:string;
  i,j:integer;
begin
  i:=1;
  j:=0;
  newChaine:='';
  SetLength(TabOfString,0);
  while i<=length(chaine) do
  begin
    if (Chaine[i]=separateur) and (newChaine<>'') then
    begin
      inc(j);
      SetLength(TabOfString,j);
      TabOfString[j-1]:=newChaine;
      newChaine:='';
    end
    else
    begin
      if (chaine[i]<>separateur) then
      newChaine:=newChaine+chaine[i];
    end;
  inc(i);
  end;
  inc(j);
  SetLength(TabOfString,j);
  TabOfString[j-1]:=newChaine;
end;

Un exemple d'utilisation :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
var
  Form1: TForm1;
  MonTableau:TStringDynArray;
 
implementation
 
{$R *.dfm}
 
procedure SplitAndGetElement(const chaine:string;const separateur:char;out TabOfString:TStringDynArray);
var
  newChaine:string;
  i,j:integer;
begin
  i:=1;
  j:=0;
  newChaine:='';
  SetLength(TabOfString,0);
  while i<=length(chaine) do
  begin
    if (Chaine[i]=separateur) and (newChaine<>'') then
    begin
      inc(j);
      SetLength(TabOfString,j);
      TabOfString[j-1]:=newChaine;
      newChaine:='';
    end
    else
    begin
      if (chaine[i]<>separateur) then
      newChaine:=newChaine+chaine[i];
    end;
  inc(i);
  end;
  inc(j);
  SetLength(TabOfString,j);
  TabOfString[j-1]:=newChaine;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  SplitAndGetElement(Edit1.Text,'+',monTableau);
  for i:=low(monTableau) to high(monTableau) do
    ShowMessage(monTableau[i]);
end;
 
end.

En espérant t'avoir aidé
A+

[ShaiLeTroll]

ma fonction Explode est tout à fait adéquat avec l'option ExcludeEmpty à True

Au Passage, Explode est 10 fois plus rapide que SplitAndGetElement

[ero-sennin]

Salut Shai,

Je me doutais bien que j'allais te voir Je me suis rappeler que ce matin qu'il y avait ta fonction Explode (en relisant une de mes discussions).
Je rajouterai tout de même de ne pas oublier dans les uses de rajouter les unités Types et strUtils

Merci

[Kaféine]

Salut

il y a aussi ExtractStrings (Classes) qui fait ca trés bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  str, sChaine: string;
  List: TStringList;
begin
  sChaine := 'AAA+EEE++++RRR+TTT';
  List := TStringList.Create;
  ExtractStrings(['+'], [' '], PChar(sChaine), List);
  for str in List do
  begin
    ShowMessage(str);
  end;
  List.Free

[ShaiLeTroll]

ExtractStrings est chiante que car elle ajoute le CR LF ainsi que la gestion des quotes (' ou ") sans que l'on lui demande (et les conserve ce qui n'est pas non plus pratique) ... mais toujours plus lent qu'Explode ... je l'ai tenter de l'utiliser pour splitter du CSV (en jouant avec AnsiDequotedStr), mais comme elle ne conserve pas les éléments vides, on a un décalage, ... la fonction ExtractStrings est bien mais manque de paramètre, c'est pour cela que j'ai refait Explode à la base ... mais dans la situation exposée par Cazaux-Moutou-Philippe, ExtractStrings est parfaite, bien vu Kaféine !