AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 20:24:50
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

7 commentaire(s) de furax13 sur des sources sur tout CodeS-SourceS

Le : 18/01/2005 13:34:25
Source : EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR
Tout est OK.

Merci

Le : 18/01/2005 12:47:43
Source : EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR
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+

Le : 18/01/2005 11:50:35
Source : EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR
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

Le : 18/01/2005 09:42:12
Source : EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR
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;

Le : 17/01/2005 18:04:19
Source : EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR
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



Le : 17/01/2005 15:23:55
Source : EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR
Salut,
c'est tout à fait cela.

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

Merci d'avance

A+

Le : 17/01/2005 14:42:03
Source : EXTRACTION DES DONNÉES DES FICHIERS AVEC SÉPARATEUR
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
    



1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


HTC Touch HD
Entre 25€ et 605€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo femme, plage, bien être, soleil, vacances, été, détente, repos
Photo femme, plage, bien être, soleil, vacances, été, détente, reposPhoto teamwork

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 2,995 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.