Tout est OK.

Merci

Salut,
cela ne marche pas avec le fichier suivant :

#Nb de fichiers
4;
#Liste Ordonnee des fichiers à traiter;
nomGener;
11111111;
monRecuit;
110104123;

Cela plante au niveau de l'affectation de Y dans ButOpenClick
Y := High(CsvExtract1.TabResult[1]);

A+

Pour résoudre mon pb, j'ai modifié la ligne suivante dans la méthode ExtractCsvData

                {On définit la taille du tableau}
                SetLength(CsvExtract.TabResult, CsvExtract.X + 2, CsvExtract.Y + 2);

Est-ce une correction juste?

Merci

Salut,
j'ai récupéré ton code et cela répond parfaitement à mon besoin.
Cependant, il y a un bug. On perd des informations dans la structure CsvExtract1.


Avec le fichier csv suivant, la valeur 315 n'est pas affichée. On perd également les infos relatives aux épaisseurs.

Fichier
#NoRecuit;NoProgramme;TextRecuit;TypeDeBase;GazAtmosphereProtectrice;TextureDeRecuit;
8429;0111;TextRecuit;GB-HNX;HNx;315;
#NbBobines;
3;

#Liste ordonnée des bobines dans la charge
#NoBobine;MasseEnKg;DiametreInterieurEnMm;DiametreInterieurEnMm;LargeurEnMm;EpaisseurEnMm;
4483902000;14590;630;1361;1556;0.768;
4483901000;14890;630;1390;1556;0.768;
4504550000;12520;630;1724;790;0.813;

#Nb Points des courbes mesurées;
15;
#Liste ordonnées des points de régulation;
#HeureRecuit;ConsigneCanneRegul;DebitGazComb;DebitAirComb;TCanne;TCanneBasse;TCanneDiffuseur;TCanneHaute
0.0;40;45;220.0;1542.8;48;30;120;1443;28;
0.1;80;85;220.0;1542.8;72;70;120;1443;52;
0.2;120;125;220.0;1542.8;97;110;120;1443;77;
0.3;152;157;220.0;1542.8;116;142;120;1443;96;
0.4;176;181;220.0;1542.8;130;166;120;1443;110;
0.5;200;205;220.0;1542.8;145;190;120;1443;125;
0.6;216;221;220.0;1542.8;155;206;120;1443;135;
0.7;233;238;220.0;1542.8;166;223;120;1443;146;
0.8;246;251;211.1;1447.5;175;236;111;1347;155;
0.9;256;261;193.4;1256.8;182;246;93;1157;162;
1.0;266;271;175.7;1066.2;189;256;76;966;169;
1.1;269;274;184.4;1163.6;193;259;84;1064;173;
1.2;273;278;193.2;1261.0;197;263;93;1161;177;
1.3;277;282;193.8;1267.9;202;267;94;1168;182;
1.4;283;288;186.2;1184.3;207;273;86;1084;187;

A priori, oui.
Je le teste demain matin.

De mon côté, j'avais trouvé une solution au niveau du TStringGrid.
Mais, ta solution me permet de ne travailler qu'au niveau de la TStringList ce qui me semble plus facile pour la suite.

Merci

Salut,
c'est tout à fait cela.

J'aimerais le faire au niveau de la StringList plutot que la stringGrid.

Merci d'avance

A+

bonjour,
je viens de récupèrer ton progamme. Il est super et il m'aide bcp pour le prg que je suis en train de faire.

J'essaye de l'adapter pour le besoin suivant :
Mon fichier csv est constitué :
  - soit de lignes commencant par #  => la ligne est un commentaire
  - lignes blanches
  - lignes avec séparateur ;

Ex :

#NoRecuit;NoProgramme;TextRecuit;TypeDeBase;GazAtmosphereProtectrice;TextureDeRecuit;
8429;0111;TextRecuit;GB-HNX;HNx;315;

#NbBobines;
3;
#Liste ordonnée des bobines dans la charge
#NoBobine;MasseEnKg;DiametreInterieurEnMm;DiametreInterieurEnMm;LargeurEnMm;EpaisseurEnMm;
4483902000;14590;630;1361;1556;0.768;
4483901000;14890;630;1390;1556;0.768;
4504550000;12520;630;1724;790;0.813;

#Nb Points des courbes mesurées;
7;
#Liste ordonnées des points de régulation;
#HeureRecuit;ConsigneCanneRegul;DebitGazComb;DebitAirComb;TCanne;TCanneBasse;TCanneDiffuseur;TCanneHaute
0.0;40;45;220.0;1542.8;48;30;120;1443;28;
0.1;80;85;220.0;1542.8;72;70;120;1443;52;
0.2;120;125;220.0;1542.8;97;110;120;1443;77;
0.3;152;157;220.0;1542.8;116;142;120;1443;96;
0.4;176;181;220.0;1542.8;130;166;120;1443;110;
0.5;200;205;220.0;1542.8;145;190;120;1443;125;
0.6;216;221;220.0;1542.8;155;206;120;1443;135;

Je n'aimerai afficher dans la stringList toutes les lignes autre que vide ou commecant par #

Comment faire cette opération le plus simplement?

Merci d'avance


Ps : dans le code de Unit1.pas, j'ai rajouté le code suivant  

Function Compte(Const SubStr:String;Const s:String):Integer;
Var i:Integer;
begin
  Result:=0;
  i:=0;
  Repeat
    i:=PosEx(SubStr,s,i+1);
    If i<>0 Then
      Inc(Result);
  Until i=0;
End;

dans ExtractCsvData :

        {On srute les lignes du fichier}
        for I := 0 to CsvExtract.Y do
          begin
            {On charge le 1er flux de données}
            Temp := List[I];
            {On recherche les ; et on insere les différents item dans la tableau}
            P0 := RecupPosSepar(BoolTab, BoolPtComma, BoolComma, BoolSpace, BoolOther,
              SeparOther, Temp);
  
//Ajout
          longLigne := Length(Temp);
            nbSeparateurDansLigne := Compte(SeparPtComma, Temp);
            if (longLigne <> 0) and (nbSeparateurDansLigne > 0) then
              begin
                premierCaractereLigne := Temp[1];
                {On lit le premier caractère de la ligne lue : si c'est #, on passe à la ligne suivante}
                if (premierCaractereLigne <> '#') then
                  begin

//Fin ajout
                 {Initialiation}
                    J := 0;

                    while P0 > 0 do