[ALGO] Explose STR

Version imprimable

[ALGO] Explose STR

Bonjour a vous, j'ai un petit problème d'algo.
J'ai fait une fonction CSVtoSTRINGGRID.
Donc elle ouvre le fichier CSV puis chaque ligne de type

Code:

Salut;Bonjour;Au revoir

est traité dans une fonction EXPLOSE STR. Comme suis :
Code:

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 // Les lignes doivent se présenter comme ceci : A;B;C;D;E // => 'A' - 'B' - 'C' - 'D' - 'E' // Maintenant avec ceci ;;;; // => '' - '' - '' - '' - '' // Et avec Rien // => '' // Il renvoi tout de même une ligne vide; procedure ExploseStr(ch : string; var dest : TStringList; sep : string = ';'); var p : integer; begin if not assigned(dest) then dest := TStringList.create; dest.BeginUpdate; dest.Clear; p := pos(sep, ch); while p > 0 do begin dest.Add(copy(ch, 1, p-1)); if p <= length(ch) then ch := copy(ch, p + length(sep), length(ch)); p := pos(sep, ch); end; // J'enleve cette ligne parce que sinon, il ne me renvoit pas le dernier si il est vide comme "A;B;;" //if trim(ch) <> '' then dest.Add(ch); dest.EndUpdate; end;
Or le problème qui je rencontre sont les QUOTE des champs textes qui peuvent contenir des ;
Avec

Code:

Salut;"Ca va ; Oui, non ?";Bonjour

Il va me ressortir 4 champs, normal (malheureusement).

Je me suis donc plus penché sur le Stringlist qui peut géré ce cas avec le QUOTESTR, COMMATEXT et DELIMITEDTEXT
Malheureusement, je n'arrive pas à réécrire ma fonction Explose car je ne traite pas un fichier mais un string. Car j'ai l'impression que c'est seulement avec un loadfromfile du stringlist qu'il active la gestion du QUOTESTR.

Faire un ADD(S : STRING) du Tstringlist n'explose pas ma ligne mais rajoute seulement tout mon champ.

Enfin, vous voyez mon problème.

Donc je me doute que cela doit commencer comme ça, mais je ne sais pas écrire la suite :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure ExploseStr(ch : string; var dest : TStringList; sep : string = ';'); var p : integer; begin if not assigned(dest) then dest := TStringList.create; dest.BeginUpdate; dest.Clear; dest.QuoteChar := '"'; dest.CommaText := ';'; dest.DelimitedText := ';'; dest.Add(ch); // <-- Ca c'est faux Mais je trouve pas. dest.EndUpdate; end;
J'ai vu que le JEDI a un tstringlist avec un fonction LOADFROMCSV mais je ne veux pas me pencher la dessus car ca reviendrais au même vu que je ne travaille pas à partir d'un fichier.

Auriez-vous un idée svp.

Merci

Arrown

Ok, je crois avoir trouvé, je vais tester ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  cars : TStringList;            // Define our string list variable
  i    : Integer;
begin
  // Define a string list object, and point our variable at it
  cars := TStringList.Create;
 
  // Now add some cars to our list - using the DelimitedText property
  // with overriden control variables
  cars.Delimiter := ' ';        // Each list item will be blank separated
  cars.QuoteChar := '|';        // And each item will be quoted with |'s
  cars.DelimitedText := '|Honda Jazz| |Ford Mondeo| |Jaguar "E-type"|';
 
  // Now display these cars
  for i := 0 to cars.Count-1 do
    ShowMessage(cars[i]);       // cars[i] equates to cars.Strings[i]
end;

Je marquerai résolu si ca marche

Ok, c'est bon.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure ExploseStr(ch : string; var dest : TStringList; sep : string = ';');
var
  p : integer;
begin
if not assigned(dest) then dest := TStringList.create;
dest.BeginUpdate;
dest.Clear;
dest.QuoteChar := '"';
dest.Delimiter := ';';
dest.DelimitedText := ch;
dest.EndUpdate;
end;

10/06/2005, 17h59
Laurent Dardenne

Salut,
le paramètre sep, il te sert à quoi ?
13/06/2005, 09h43
Pedro

Salut
petite remarque: le var de ta TSringList est complètement inutile... Pusique comm toutes les objets Delphi, c'est un pointeur que tu manipules sans le savoir :wink: ...
13/06/2005, 09h57
Arrown

Citation:

Envoyé par Pedro204

Salut
petite remarque: le var de ta TSringList est complètement inutile... Pusique comm toutes les objets Delphi, c'est un pointeur que tu manipules sans le savoir :wink: ...

Oui, effectivement, mais c'est juste pour informer le but de la procedure car on programme à plusieurs, c'est juste à titre indicatif. ;-)
13/06/2005, 09h58
Arrown

Citation:

Envoyé par Laurent Dardenne

Salut,
le paramètre sep, il te sert à quoi ?

Oui, j'avais pas fini la procédure, il faut juste mettre :

Code:

dest.Delimiter := sep;

Mais il faut mettre sep : char et non string maintenant.
13/06/2005, 15h57
sjrd

Citation:

Envoyé par Pedro204

Salut
petite remarque: le var de ta TSringList est complètement inutile... Pusique comm toutes les objets Delphi, c'est un pointeur que tu manipules sans le savoir :wink: ...

Si, il l'est, à cause de la première ligne :

Code:

if not Assigned(dest) then dest := TStringList.Create;
13/06/2005, 16h00
Pedro

8O Ah bon? Mais même sans "var", ça marche ça... Je ne comprends pas...
13/06/2005, 16h26
sjrd

Oui, ça compile, mais la proc appelante n'aura aucun moyen de récupérer le résultat de la fonction :wink:
13/06/2005, 16h39
Pedro

Je ne comprends pas... Tu appelles avec le pointer qui peut être à nil... Un pointer donc... Si tu crées (alloues) la place pour la TSTringList, le pointeur renverra la bonne adresse... non? Même s'il y avait nil avant...
Donc la procedure appelante peut bien récupérer l'instance...
A moins que la valeur de pointer soit modifiée lors de la création de l'instance...
13/06/2005, 16h48
Arrown

Juste pour info, la procédure que je viens de marquer ne me convient pas car avec une ligne comme :

Code:

01001;A;Bonjour ca va;"Bonjour ça va"

il va me retourner

Code:

01001 - A - Bonjour - ca - Va - Bonjour ca va

C'est juste a titre d'info, j'ai reprit ma proc de départ et je l'ai remanier. Je trouve que le stringlist n'assure pas sur ce coup.[/code]
13/06/2005, 16h53
Pedro

Et oui, il semble que la TStringList prenne l'espace comme séparateur par défaut et même s'il n'est pas spécifié...
Mais tu peux quand même faire cette séparation facilement avec Pos et Copy non?
13/06/2005, 17h13
sjrd

Si tu ne t'en sors pas avec les méthodes de TStrings, utilise les différentes méthodes de la classe utilitaire StringsOps, que tu trouveras dans mon unité SjrdLists :)
Ce que tu cherches en est la méthode FromString.

Salut!

Perso, je fais comme ceci, par exemple pour charger un fichier CSV dans une liste :

Code:

1
2
ListBox1.Items.LoadFromFile('c:\test.csv');
ListBox1.Items.Text := AnsiReplaceStr(ListBox1.Items.Text, ';', #13);

Autre exemple dans le même principe :

Code:

1
2
3
4
5
6
7
8
9
10
11
Var
  Lines: TStringList;
  x: Integer;
Begin
  Lines := TStringList.Create;
  Lines.LoadFromFile('c:\test.csv');
  Lines.Text := AnsiReplaceStr(Lines.Text, ';', #13);
  For x := 0 To Lines.Count - 1 Do
    ShowMessage(Lines[x]);
  Lines.Free;
End;

14/06/2005, 09h48
Arrown

Ok, merci a vous, je vais voir ton unit sjrd

Pour Sub0 : ta première procédure ne prend pas en compte les guillement
Donc si un champ fait "Salut;Oui" il me ferat 2 ligne or il n'en faut qu'une

Arf, oui en effet, j'ai oublié ce détail...
Dans ce cas, je ne vois plus qu'une seule solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Procedure CSVToTList(csv: String; var Lines: TStringList);
Var
  x: Integer;
  st: String;
  quoted: Boolean;
Begin
  quoted := False;
  st := '';
  For x:=1 To Length(csv) Do
  Begin
    If (csv[x] = '"') Then quoted := Not quoted;
    If (csv[x] = ';') And (quoted = False) Then
    Begin
      Lines.Add(st);
      st := '';
    End Else st := st + csv[x];
  End;
End;

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Procedure TForm1.Button1Click(Sender: TObject);
Var
  Lines: TStringList;
  csv: String;
  x: Integer;
Begin
  csv := '01001;A;Bonjour ca va;"Bonjour; ça va";';
  Lines := TStringList.Create;
  CSVToTList(csv, Lines);
  For x := 0 To Lines.Count - 1 Do ShowMessage(Lines[x]);
  Lines.Free;
End;

Bonjour à vous, si ça vous intéresse, j'ai ce bout de code qui prend en compte les Délimiters et les quotes.
Exemple :

Code:

ExploseStr('(Bonjour a vous;C'est HPAlpha);"DEV COM";DEV COM;DEV;COM', LS, ';', '"', '([{', ')]}');

Renvoie :

Code:

1
2
3
4
5
6
 
(Bonjour a vous;C'est HPAlpha)
DEV COM
DEV COM
DEV
COM

Code:

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
procedure ExploseStr(chaine : string; var ls : tstringlist; sep : string = ';';
DelimiterQuote : char = '"'; DelimiterBefore : string = ''; DelimiterAfter : string = '');
var i,nbparenthese:integer;
    mot:string;
    c:char;
    dansquote:boolean;
begin
 if not assigned(ls) then ls := TStringlist.create;
 ls.clear;
 mot:='';
 nbparenthese:=0;
 dansquote:=false;
 for i:=1 to length(chaine) do
 begin
  c:=chaine[i];
  if pos(c, DelimiterBefore) > 0 then
   inc(nbparenthese);
  if pos(c, DelimiterAfter) > 0 then
   dec(nbparenthese);
  if c = DelimiterQuote then
   dansquote:=not dansquote;
  if (c=sep) and (nbparenthese=0) and (dansquote=false) then
  begin
   ls.add(mot);
   mot:='';
  end else
   mot:=mot+c;
 end;
ls.add(mot);
end;

17/05/2006, 10h06
Reisubar

Pour extraire des chaines, CF la fonction de la RTL: ExtractStrings.