EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR

Commentaire de Napster le 23/11/2004 18:30:37

salut , ces vraiment interessant votre sources , ben avant tt je vais le convertir en C++ , j'esper que sa te derenge pas , j'aurais besoin de sa en C++ , ta quelque idée .........  

Commentaire de grandvizir le 24/11/2004 19:32:21

Avant d'adapter, il faudrait déjà que le code soit parfait... ce qui n'est pas encore le cas.

Robert;Janine
Marcel;Roland
"""The spy""";Geneviève
"Martin ; Ludivine";CSV pas bon... ;)

C'est un bon CSV ça ? Excel ne s'y trompera pas.

De plus, la boîte à propos pourrait être bannie. A part alourdir le Zip, ça ne sert à rien du tout.

Sinon, j'apprécie le redimensionnement de ton TStringGrid. Ca n'a rien à voir, mais je voulais le préciser.

Commentaire de jmp77 le 24/11/2004 19:42:57

Deja, Bonjour,

Pourrais tu expliquer pkoi cette liste ne fonctionne pas?

Robert;Janine
Marcel;Roland
"""The spy""";Geneviève
"Martin ; Ludivine";CSV pas bon... ;)

Ma boite a propos je l'ai mis simplement pour l'envoi de mail car j'avais tellement eu du mal que je me suis dit que ca pourrais depanner des gens.

++,
JMP.

Commentaire de oluha le 08/12/2004 15:12:59

Le redimentionnement de ton tstringgrid  m'a beaucoup aidé pour l'adaptation à mon tdbgrid.

Commentaire de furax13 le 17/01/2005 14:42:03

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
    

Commentaire de furax13 le 17/01/2005 15:23:55

Salut,
c'est tout à fait cela.

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

Merci d'avance

A+

Commentaire de jmp77 le 17/01/2005 17:19:22

Me revoici

Voici la petite procedure que tu peux inserer dans la procedure ExtractCsvData(en dessous ou au dessus de la fonction RecupPosSepar) :

procedure CleanList(var ListTemp : TStringList);

   var
   I : Integer;

   begin
   {On scanne tous les items et ceux dans lequel on trouve # ou bien rien et bien on les supprime}
   I := 0;

      While I < ListTemp.Count do
      begin

         If (Length(ListTemp.Strings[I]) = 0) then //Dabord on verifie que le champ soit remplit sinon erreur
         ListTemp.Delete(I)                        //erreur quand on fait juste un test sur le premier chr
         else
         begin

            If (ListTemp.Strings[I][1] = '#') then
            ListTemp.Delete(I)
            else
            Inc(I);
         end;
      end;
   end;

Ensuite dans ExtractCsvData tu rajoutes en dessous de List.LoadFromFile(FileName); :
CleanList(List);

Est ce que cela te convient comme cela?

Commentaire de jmp77 le 17/01/2005 18:09:10

Oui mais de toute facon avec ma soluce ca fonctionne sur les deux.
Puisque que l'on modifie le TStringList avant d'en recuperer les infos.
Je vais poster une mise à jour dans quelques minutes avec une option speciale pour toi.

++,
JMP77.

Tiens moi au courant.

Commentaire de furax13 le 18/01/2005 11:50:35

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

Commentaire de furax13 le 18/01/2005 12:47:43

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+

Commentaire de furax13 le 18/01/2005 13:34:25

Tout est OK.

Merci

Commentaire de ada_azoul le 13/07/2005 09:31:45

Salut   JMP77

  -j'ai téléchargé ton programme
nommé "DatabaseConvertorDelphiFr" ou sous le n# 28226
qui fait le transfert d'une base pdx vers Excel et l'inverse
je trouve que ton programme est génial

j'aimerai te demander si tu n'a pas déja un autre prog
qui fait la mm chose avec les bases  IB(interbase) ou FRB(firebird)

oubien si tu pourras reprendre mon programe mini proj delphi ib
et de lui administré une unité qui fait ce boulot.

ou bien ton propre programme ; j'en ai besoin de ce genre de routine.

en bref j'ai un besoin urgent d'une unité que je peux coller
à mon programme et qui reprend une table (IB) la transfert vers une feuille Excel
la retouche puis la reprendre  dans sa table initiale avec un Update.
si tu as le temps et si ça te dérange pas bien sûre

Merci

Ada b  

Commentaire de ada_azoul le 14/07/2005 00:11:10

Voici une adr

www.delphifr.com/code.aspx?ID=31195

c'est le mien tu pourrais eventuellement lui greffer une unité
oubien travail à partir du dbgrid
je vais essayer te t'envoyer les doc(s) IB
merci et à bientot
Ada b