Discussion :

[bremer]

Bonjour,

Je dois traiter des données provenant d'un fichier CSV sur 3 champs.

J'ai ouvert le fichier avec un tstringlist.

J'ai effectuer un liste_plis.NameValueSeparator:=';';

J'obtiens bien en résultat avec
showmessage(liste_plis.Names[1]); la valeur de chaque ligne de la première colonne

Comment récupérer les valeurs du champ 3 car après je dois manipuler les données de chaque ligne.

Merci

[Papy214]

Il faut découper chaque ligne de chaîne.
Par exemple, une fonction qui prend une chaîne et renvoie un TStrings avec les éléments

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
50
51
52
53
 
 
uses System.SysUtils, System.Classes, System.StrUtils;
 
type
  TChars = set of AnsiChar;
 
procedure Explode(Original: string; Separator: TChars; Resultat: TStrings);
 
implementation
 
procedure Explode(Original: string; Separator: TChars; Resultat: TStrings);
var
  Pos1, Pos2: PChar;
  S         : string;
begin
 
  if not Assigned(Resultat) then
    raise Exception.Create('La liste résultante n''existe pas');
 
  if Length(Trim(Original)) = 0 then
    Exit;
 
  Pos2 := @Original[1];
  Pos1 := Pos2;
  while Pos2^ <> #0 do
  begin
    if CharInSet(Pos2^, Separator) then
    begin
      if Pos1 < Pos2 then
      begin
        SetString(S, Pos1, Pos2 - Pos1);
        Resultat.Add(Trim(S));
        Pos1 := Pos2;
        Continue;
      end
      else
      begin
        Inc(Pos2);
        Pos1 := Pos2;
        Continue;
      end;
    end;
    Inc(Pos2);
  end;
 
  if Pos1 <> Pos2 then
  begin
    SetString(S, Pos1, Pos2 - Pos1);
    Resultat.Add(Trim(S));
  end;
 
end;

[SergioMaster]

pour un anglophile , une video

[bremer]

Je me suis peut être mal expliqué.

J'ai un fichier CSV avec dedans

num_client;pays;code
4552,France;4
7854;France;9
etc...

Mon programme actuel :

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
Var
  Liste_plis: Tstringlist;
begin
  Liste_plis:=TStringList.Create;
  try
    try
       Liste_plis.LoadFromFile('\Rapport_plis.csv');
       liste_plis.NameValueSeparator:=';';
       showmessage(liste_plis.Names[0]);
       showmessage(liste_plis.Names[1]);
       showmessage(liste_plis.Names[2]);
    except
      on e : exception do
        showmessage('Erreur au chargement' + e.message);
    end;
  finally
    Liste_plis.Free;
  end;

J'obtiens comme réponse à mes showmessage

Num_client
4552
7854

Hors ce que je désire ce sont les données du champ code dans un tableau pour après les manipulés

Merci

[Papy214]

Les 2 solutions proposées restent valables.

Avec la mienne, il faut boucler sur les lignes:

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
 
Var
  Liste_plis: Tstringlist;
  I: Integer;
begin
  Liste_plis := Tstringlist.Create;
  try
    try
      Liste_plis.LoadFromFile('\Rapport_plis.csv');
 
      for I := 0 to Pred(Liste_plis.Count) do
      begin
        // Traiter Liste_plis[I] comme une chaîne unique et la découper selon
        // les séparateurs et ajouter dans un tableau la partie voulue
 
      end;
    except
      on e: exception do
        showmessage('Erreur au chargement' + e.message);
    end;
  finally
    Liste_plis.Free;
  end;
end;

Après, si tu ne veux que la première partie, utilise la fonction Pos qui renverra la position du premier ; et après, il suffit d'un copy pour récupérer la partie gauche uniquement

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
 
var
  Liste_plis: Tstringlist;
  I, P: Integer;
begin
  Liste_plis := Tstringlist.Create;
  try
    try
      Liste_plis.LoadFromFile('\Rapport_plis.csv');
 
      for I := 0 to Pred(Liste_plis.Count) do
      begin
        // Traiter Liste_plis[I] comme une chaîne unique et la découper selon
        // les séparateurs et ajouter dans un tabloeau
        P := Pos(';', Liste_plis[I]);
        ShowMessage(Copy(Liste_plis[I], 1, P - 1);
      end;
    except
      on e: exception do
        showmessage('Erreur au chargement' + e.message);
    end;
  finally
    Liste_plis.Free;
  end;
end;