Discussion :

[SergioMaster]

Bonjour,

Même si j'ai trouvé une solution que je vais décrire après comment feriez-vous pour obtenir les noms des colonnes d'un fichiers CSV (généralement en première ligne)

je suis "tombé" sur ce fichier CSV, à problème puisque les diverses colonnes ne sont pas entre guillemets
CSV qui vient en fait d'un fichier Excel que l'utilisateur l'a customisé à sa façon

Pour le traiter, après une sauvegarde en CSV, j'obtiens

Modèle,Code couleur,Description Couleur,Size,Code EAN 14 (logistique),Gencode 13,"Conditionnement

pour avoir dans une liste j'utilise ce code

Code :

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

ListeColonne.Lines.CommaText:=StringReplace(ContenuCSV.Lines[0],' ',#160,[rfReplaceAll]);

qui fonctionne mais y a t-il mieux ?

[Andnotor]

Pourquoi pas simplement un TFDBatchMove si tu dois par la suite traiter ce fichier ?

J'ai moi-même dans une app le besoin d'importer trois fichiers csv, tous formatés différemment !
Un est avec point-virgule comme séparateur et sans guillemets dans les entêtes (nom de champs de plusieurs mots) mais guillemeté dans la donnée (qu'elle soit numérique, simple ou "multi" mots) ;
un toujours avec point-virgule comme séparateur mais sans guillemets du tout ;
et le dernier, le plus logiquement formaté, avec chaînes sur plusieurs mots guillemetées et la virgule comme séparateur.

Et bien ce code suffit à charger mes trois types de fichier en mémoire.

Code :

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

1
2
bmCSV.GuessFormat([taDelimSep, taFields]);
bmCSV.Execute;

[SergioMaster]

Bonjour,

Merci pour la réponse.
Oui j'ai effectivement à traiter les fichiers par la suite mais celui-ci est trop "particulier" pour un traitement Batchmove efficace.
En particulier à cause des cases "fusion". Si tu regardes l'image, tu vois que le Modèle LOISIR VEL est appliqué sur plusieurs lignes, cependant dans le CSV cela ne s'applique pas

LOISIR VEL,898,GRIS / BLEU,350,50900568983508,3664639005156,U = Unité
,898,GRIS / BLEU,360,50900568983607,3664639005163,U = Unité
,898,GRIS / BLEU,370,50900568983706,3664639005170,U = Unité
,898,GRIS / BLEU,380,50900568983805,3664639005187,U = Unité
,898,GRIS / BLEU,390,50900568983904,3664639005194,U = Unité
,898,GRIS / BLEU,400,50900568984000,3664639005200,U = Unité
,898,GRIS / BLEU,410,50900568984109,3664639005217,U = Unité
,898,GRIS / BLEU,420,50900568984208,3664639005224,U = Unité
,898,GRIS / BLEU,430,50900568984307,3664639005231,U = Unité
,898,GRIS / BLEU,440,50900568984406,3664639005248,U = Unité
,898,GRIS / BLEU,450,50900568984505,3664639005255,U = Unité
,898,GRIS / BLEU,460,50900568984604,3664639005262,U = Unité
,898,GRIS / BLEU,470,50900568984703,3664639005279,U = Unité

J'ai aussi tenté l'approche ouverture du fichier XLS en utilisant SimpleExcel (trouvé sur GitHub) que j'ai même modifié pour FMX (puisque FMX le programme est )
Traiter le fichier Excel en VCL (programme de la démo) plante, celui en FMX aussi mais là je n'ai pas fait assez d'essais pour dire si c'est mon portage ou le tableau, je m'y pencherais plus tard car cela m'a l'air pas mal du tout comme biblio.

[ShaiLeTroll]

StrictDelimiter permet d'éviter l'espace parasite si c'est ça le problème
Il faut utiliser explicitement utiliser une TStringList puis faire un Assign à ton Lines

le vrai problème dans un CSV c'est quand la donnée contient un CRLF, j'ai même vu un entête contenant un CRLF (mais avec les guillemets), il faut bien echapper les CRLF entre "
Je crois que seul excel gère cela correctement

[SergioMaster]

Bonjour

StrictDelimiter permet d'éviter l'espace parasite si c'est ça le problème
Il faut utiliser explicitement utiliser une TStringList puis faire un Assign à ton Lines

J'y avais songé mais passer par un TStringList pour une seule ligne me paraissait
autre petit problème mon résultat n'est pas tout à fait juste parce que l'utilisateur a trouvé malin de mettre 2 lignes pour la dernière colonne "Conditionnement
seconde ligne UVC"

Je crois que seul excel gère cela correctement

j'en ai bien peur, je n'ai pas dit mon dernier mot pour voir si SimpleExcel me sortirait de ce pas, il faut déjà que je le migre correctement en FMX puis que je le teste avec des tableaux "simples"
avant de m'embarquer sur cette inclusion dans l'application. Comme c'est une fonction qui ne servira que très peu, le jeu n'en vaut pas la chandelle si ce n'est pour ma curiosité

[retwas]

Ma réponse est peut être bête, mais pourquoi pas simplement un Split sur le caractère de délimitation (la virgule) ?

EDIT : désolé je n'avais pas fait attention à la date du message

[Paul TOTH]

je suis justement en train de traiter des fichiers CSV

j'ai utilisé mon propre code dont voici la déclaration

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
 
type
  TCSVField = record
    Name : string;
    Value: string;
    function AsInteger: Integer;
    function AsDate: TDate;
  end;
 
  TCSV = record
  private
    FFileName: string;
    FFile  : string;
    FIndex : Integer;
    FEOL   : Boolean;
    FEOF   : Boolean;
    function SkipChar(Ch: Char): Boolean;
    procedure DropChar(Ch: Char);
    function GetStr(var Str: string): Boolean;
  public
    Count : Integer;
    Line  : Integer;
    Fields: TArray<TCSVField>;
    function Load(const AFileName: string): Boolean;
    function FieldIndex(const AFieldName: string): Integer;
    function Next: Boolean;
  end;

CSV.Load('...') copie le fichier en mémoire dans FFile
GetStr() permet de prendre la prochaine chaîne en fixant EOL (fin de ligne) et EOF (fin de fichier)
Load utilise cela pour créer le tableau FFields et renseigne la propriété Name

la fonction Next() fait de même pour renseigner la propriété Value des TCSVField

du coup je fais

Code :

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

1
2
3
4
5
6
7
8
9
 
CSV.Load('fichier.Csv');
date := CSV.FieldIndex('Date');
...
while CSV.Next do
begin
  MyDate := CSV.Fields[date].AsDate;
  ...
end;

et comme je suis bon, voici la foction GetStr

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
 
function TCSV.GetStr(var Str: string): Boolean;
var
  start: Integer;
  quote: Boolean;
begin
  if FEol then
    Exit(False);
  start := FIndex;
  if SkipChar('"') then
  begin
    Inc(start);
    while not SkipChar('"') do
      Inc(FIndex);
    Str := Copy(FFile, start, FIndex - Start - 1);
    while SkipChar('"') do
    begin
      start := FIndex - 1;
      while not SkipChar('"') do
        Inc(FIndex);
      Str := Str + Copy(FFile, start, FIndex - Start - 1);
    end;
    if not SkipChar(';') then
    begin
      FEol := True;
      SkipChar(#13);
    end;
  end else begin
    while not SkipChar(';') do
      Inc(FIndex);
    Str := Copy(FFile, start, FIndex - Start - 1);
    FEol := SkipChar(#13);
  end;
  if FEol then
    SkipChar(#10);
  FEof := FIndex >= Length(FFile);
  Result := True;
end;

qui à la relecture contient un bug si le champ de la dernière colonne n'est pas entre guillemets

mais il se trouve que tous les CSV que je traite utilisent des guillemets avec un séparateur point-virgule

ce que j'aime dans l'écriture de ce genre de chose, c'est que c'est simple à faire et que je peux traiter tout les cas tordus assez simplement dans un code qui tient dans une unité de moins de 200 lignes aérées

il est bcp plus difficile de faire un importateur CSV générique qui traite tous les cas tordus qu'on peut trouver dans ce format simple au départ.

[ShaiLeTroll]

il est bcp plus difficile de faire un importateur CSV générique qui traite tous les cas tordus qu'on peut trouver dans ce format simple au départ.

Je confirme, cela peut devenir compliquer de gérer, la présence d'entête (même de sous-entête), le présence d'un séparateur terminal (contraire à la RFC 4180), des lignes irrégulières ou même l'utilisation d'une colonne supplémentaire comme commentaire (sans qu'elle soit défini en entête), je n'ai jamais vu un seul CSV composé comme un autre, chaque source, chaque auteur faisant cela à sa sauce