Discussion :

[Arrown]

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 :

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

Salut;Bonjour;Au revoir

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

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
// 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 :

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

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 :

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

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

[Arrown]

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

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
  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

[Arrown]

Ok, c'est bon.

Code :

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

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;

[Laurent Dardenne]

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

[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 ...

[Arrown]

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 ...

Oui, effectivement, mais c'est juste pour informer le but de la procedure car on programme à plusieurs, c'est juste à titre indicatif. ;-)

[Arrown]

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

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

Code :

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

dest.Delimiter := sep;

Mais il faut mettre sep : char et non string maintenant.

[sjrd]

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 ...

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

Code :

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

if not Assigned(dest) then dest := TStringList.Create;

[Pedro]

Ah bon? Mais même sans "var", ça marche ça... Je ne comprends pas...

[sjrd]

Oui, ça compile, mais la proc appelante n'aura aucun moyen de récupérer le résultat de la fonction

[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...

[Arrown]

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

Code :

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

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

il va me retourner

Code :

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

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]

[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?

[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.

[Sub0]

Salut!

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

Code :

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

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

Autre exemple dans le même principe :

Code :

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

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;

[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

[Sub0]

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

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
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 :

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

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;

[hpalpha]

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 :

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

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

Renvoie :

Code :

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

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

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
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;

[Reisubar]

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