Dépacement d'index dans un TStringList

Version imprimable

Code:

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
54
55
56
57
//Déclarations de variables
        int i,val1;
        AnsiString pos,pos1,racine,utilisateur,ligne3,enregistrer,rechercher;
        TStringList *file = new TStringList() ;
        TStringList *myStringList= new TStringList() ;
        TStringList *li = new TStringList() ;
 
 
        //Recuperation de la racine du fichier a enregistrer dans edit 6
        enregistrer=Edit5->Text;
 
        //Recuperation du nom d'utilisateur dans Edit4
        utilisateur=Edit3->Text;
 
        //Recuperation de la racine du fichier dans Edit2
        racine=Edit1->Text;
 
        //Lecture du fichier
        file->LoadFromFile( racine );
        for( i=0; i< file->Count; i++)
        {
                //Lecture de chaque ligne
                rechercher = file->Strings[i];
 
                //Teste sur chaque ligne la valeur ,264,
                if(rechercher.Pos(",264,"))
                {
                       //Enregistre la valeur dans val1
                       val1=i;
                }
 
        }
 
 
        //Recuperation de ligne selectionner
        ligne3 = file->Strings[val1] ;
 
 
        //Decoupage de la ligne a chaque virgule
        li->Delimiter = ',' ;
 
        li->DelimitedText = ligne3 ;
 
 
        //Ouverture du fichier
        myStringList->LoadFromFile(enregistrer);
        //Ajout dans le fichier
        myStringList->Add(utilisateur+"," +li->Strings[5]);
 
        //Enregistre dans le fichier
        myStringList->SaveToFile( enregistrer ) ;
 
        //libérer les ressources
        delete myStringList ;
        delete li ;
 
        delete file ;

Voici mon code, le bute est de chercher dans un fichier un code qui renvoie la valeur de la ligne, et avec le numero de la ligne on copie un champ (ou plusieur)..

Le souci c'est que si ce numero n'y est pas, la recherche ce fait mais apres au niveau de l'ajout du champs dans le fichier sa fait une erreur et sa copie rien.

Moi je voudrais essayer d'eviter afficher cette erreur et de copier tous ce qu'il y a..

merci d'avance

pour gerer les exception, regarde du coté de try/catch
Code:

1 2 3 4 5 6 7 8 try { //code qui peut générer une exception } catch(...) { //code executer si une exception survient }

Un petit exemple avec la classique division par zero :

Code:

1
2
3
4
5
6
7
8
9
10
  try
  {
     int x = 10;
     int y = 0 ;
     int z = x / y ;
  }
  catch(...)
  {
     ShowMessage( "Division par zéro" ) ;
  }

Code:

1
2
//Ajout dans le fichier
        myStringList->Add(utilisateur+"," +li->Strings[5]);

Merci pour le try j'y avais penser mais je vois pas comment mettre si pour li->Strings[5] comme il avait pas trouver la ligne donc la valeur a ecrire sera vide sa mettra l'erreur j'essaye sa

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
                 if(val1==0);
        }
        catch (Exception &exception)
        {
                ShowMessage("val1=0");
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;

Mais l'erreur y est toujours

13/06/2008, 15h56
sat83
Quel est la ligne qui pose problème?

Si c'est celle ci :

Code:

myStringList->Add(utilisateur+"," +li->Strings[5]);

tu as juste a faire :
Code:

1 2 3 4 5 6 7 try { myStringList->Add(utilisateur+"," +li->Strings[5]); } catch(...) { }
A noter que selon la configuration de ton Borland, il se peux que l'erreur apparaisse quand même quand tu lance l'exécutable depuis Borland. Mais quand tu le lancera en dehors de l'IDE, l'exception sera bien interceptée et aucun message d'erreur n'apparaitra

Ton try tu le mais dans le Unit1.cpp ou dans le project1.cpp car le project1.cpp il y a deja sa

Code:

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

ton try je les mi dans mon code sourci normale il me dit que je doit declarer myStringList,utilisateur,li je comprend pas merci de m'aider

13/06/2008, 16h22
sat83

Ben comme je viens de te l'expliquer, tu met ton try autour de ton code qui pose problème. (Donc Unit1.cpp)

Desoler mais j'ai toujours l'erreur j'ai fait exactement ce que tu mais dit et j'ai essayer sur un pc ou il y a pas borland et j'ai un erreur aussi
Code:

1 2 3 4 5 6 7 8 try { myStringList->Add(utilisateur+"," +li->Strings[5]); } catch(...) { ShowMessage("erreur"); }

13/06/2008, 16h33
Baxter67

on peut connaitre l'erreur exact que c'est

avec le code si possible

Cordialement Baxter
13/06/2008, 16h35
sat83

Ben c'est normal que tu ai le message "erreur" qui s'affiche vu que c'est ce que tu as écrit!

Si tu as toujours l'exception, c'est que la ligne de code qui génère l'exception n'est pas dans ton bloc try.

Donc la première des chose a faire c'est de mettre des points d'arrêt dans ton code, et de l'exécuter en mode pas-à-as (F8) pour isoler quelle(s) sont la (ou les) ligne(s) qui génère une exception, et de les mettre dans ton bloc try.

Ma ligne de code

Code:

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
54
55
56
57
58
59
60
61
62
63
64
//Déclarations de variables
        int i,val1;
        AnsiString pos,pos1,racine,utilisateur,ligne3,enregistrer,rechercher;
        TStringList *file = new TStringList() ;
        TStringList *myStringList= new TStringList() ;
        TStringList *li = new TStringList() ;
 
 
        //Recuperation de la racine du fichier a enregistrer dans edit 6
        enregistrer=Edit5->Text;
 
        //Recuperation du nom d'utilisateur dans Edit4
        utilisateur=Edit3->Text;
 
        //Recuperation de la racine du fichier dans Edit2
        racine=Edit1->Text;
 
        //Lecture du fichier
        file->LoadFromFile( racine );
        for( i=0; i< file->Count; i++)
        {
                //Lecture de chaque ligne
                rechercher = file->Strings[i];
 
                //Teste sur chaque ligne la valeur ,264,
                if(rechercher.Pos(",264,"))
                {
                       //Enregistre la valeur dans val1
                       val1=i;
                }
 
        }
 
 
        //Recuperation de ligne selectionner
        ligne3 = file->Strings[val1] ;
 
 
        //Decoupage de la ligne a chaque virgule
        li->Delimiter = ',' ;
 
        li->DelimitedText = ligne3 ;
 
 
        //Ouverture du fichier
        myStringList->LoadFromFile(enregistrer);
        //Ajout dans le fichier
        try
         {
        myStringList->Add(utilisateur+"," +li->Strings[5]);
        }
        catch(...)
        {
 
        }
 
        //Enregistre dans le fichier
        myStringList->SaveToFile( enregistrer ) ;
 
        //libérer les ressources
        delete myStringList ;
        delete li ;
 
        delete file ;

Pour mon erreur c'est sa "le projet project1.exe a provoqué une classe d'exception EStringListError avec le message 'indice de liste hors limites (13244)

et apres borland me renvoi la

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;

13/06/2008, 16h45
pottiez

Il me semble un peut normal que tu n'arrive pas à accéder à la ligne 5 de la TStringList li, vu qu'à aucun moment tu ne la remplit :?

Il vaut mieux essayer de résoudre l'erreur avant d'essayer de la cacher ;)
16/06/2008, 08h40
darkman13130

tu n'as pas bien lue pottiez j'ai marquer que dans mais fichier texte il etait pas obliger qu'il y est cette valeur comme c'est beaucoup de fichier texte qui comporte plusieur fichier et pas forcement les memes informations qui peut m'aider
16/06/2008, 09h50
pottiez
Alors au lieu de faire un try catch, test plutôt le nombre de ligne contenu dans ta stringList li :
Code:

1 2 if(li->Count >= 6) myStringList->Add(utilisateur+"," +li->Strings[5]);
16/06/2008, 10h17
darkman13130
Code:

1 2 if(li->Count >= 6) myStringList->Add(utilisateur+"," +li->Strings[5]);
Code:

li->Strings[5]

ce code signifie que je prend de la ligne li définie au paravant le champs n° (strings[5])...

Moi ce qui mais l'erreur ce que si par exemple la ligne ou il y a le nom de la carte mere comporte que trois champs comme si dessous avec le separeteur et espace ,(carte mere, asus)donc comme au 5 eme champs j'ai rien il me mais un erreur et moi je la veux pas cette erreur...

Comme j'ai plusieur fichier texte de centaine de pc donc si pas obliger t'avoir toujours le meme nombre de champs
16/06/2008, 11h22
pottiez

Je ne comprend plus rien as ton problème la, est-ce que tu peut expliqué clairement ce que tu veut, et dans ton code a quoi servent tes variables, car pour moi la variable li ne contient jamais rien et donc c'est normal que ça plante (ou alors tu ne nous as pas donné tout le code)

Je t'explique Clairement car en plus j'en est vraiment besoin
Code:

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 //Déclarations de variables int i,val1; AnsiString pos,racine,utilisateur,ligne3,enregistrer,rechercher; TStringList *file = new TStringList() ; TStringList *myStringList= new TStringList() ; TStringList *li = new TStringList() ; //Recuperation de la racine du fichier a enregistrer dans edit 6 enregistrer=Edit5->Text; //Recuperation du nom d'utilisateur dans Edit4 utilisateur=Edit3->Text; //Recuperation de la racine du fichier dans Edit2 racine=Edit1->Text; //Lecture du fichier file->LoadFromFile( racine ); for( i=0; i< file->Count; i++) { //Lecture de chaque ligne rechercher = file->Strings[i]; //Teste sur chaque ligne la valeur ,264, if(rechercher.Pos(",264,")) { //Enregistre la valeur dans val1 val1=i; } } //Recuperation de ligne selectionner ligne3 = file->Strings[val1] ; //Decoupage de la ligne a chaque virgule li->Delimiter = ',' ; li->DelimitedText = ligne3 ; //Ouverture du fichier myStringList->LoadFromFile(enregistrer); //Ajout dans le fichier myStringList->Add(utilisateur+"," +li->Strings[5]); //Enregistre dans le fichier myStringList->SaveToFile( enregistrer ) ; //libérer les ressources delete myStringList ; delete li ; delete file ;
Bon maintenant je vais expliquer le bute de mon programme j'ai un centaine de pc qui on aida pour savoir toutes les informations du pc et aida génère un fichier texte de toutes les informations et qui séparé par des champs (,) et par des sots de ligne ex

Rapport,,,257,Version,AIDA32 v3.50
Rapport,,,258,Auteur,fiery@aida32.hu
Rapport,,,259,Site web,http://www.aida32.hu
Rapport,,,260,Type de rapport,Générateur de rapports
Rapport,,,261,Ordinateur,SECRÉTARIAT (claudine)
Rapport,,,262,Générateur,demieres
Rapport,,,263,Système d'exploitation,Microsoft Windows 98 4.10.2222A (Win98 SE)
Rapport,,,264,Date,2003-06-06
Rapport,,,265,Heure,11:51
Résumé,,Ordinateur,513,Système d'exploitation,Microsoft Windows 98

Donc par exemple quand je vais la rechercher du n° 265 quand je les trouvés
il trouve la ligne

Rapport,,,265,Heure,11:51

maintenant je voudrais 11:51 donc c'est le 5 champs mais celon les fichier texte ce champs la n'y est pas donc c'est de la que vien l'erreur ou sinon l'ereur vien que je trouve pas le n° a chercher mais pour moi le plus important c'est de traiter l'erreur quand je trouve pas le champs merci

Bonne journée

Ok je vient de comprendre, des conditions if doivent suffire normalement, de plus tu devrais initialisé ta variable val1 à -1 pour pouvoir testé si tu as bien trouvé une ligne correspondant à ta recherche :

Code:

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
54
55
56
//Déclarations de variables
        int i,val1=-1;
        AnsiString pos,racine,utilisateur,ligne3,enregistrer,rechercher;
        TStringList *file = new TStringList() ;
        TStringList *myStringList= new TStringList() ;
        TStringList *li = new TStringList() ;

        //Recuperation de la racine du fichier a enregistrer dans edit 6
        enregistrer=Edit5->Text;

        //Recuperation du nom d'utilisateur dans Edit4
        utilisateur=Edit3->Text;

        //Recuperation de la racine du fichier dans Edit2
        racine=Edit1->Text;

        //Lecture du fichier
        file->LoadFromFile( racine );
        for( i=0; i< file->Count; i++)
        {
                //Lecture de chaque ligne
                rechercher = file->Strings[i];

                //Teste sur chaque ligne la valeur ,264,
                if(rechercher.Pos(",264,"))
                {
                       //Enregistre la valeur dans val1
                       val1=i;
                }
        }

        //Recuperation de ligne selectionner
        if(val1 != -1)
        {
          ligne3 = file->Strings[val1] ;

          //Decoupage de la ligne a chaque virgule
          li->Delimiter = ',' ;
          li->DelimitedText = ligne3 ;

          if(li->Count > 5)
          {
            //Ouverture du fichier
            myStringList->LoadFromFile(enregistrer);
            //Ajout dans le fichier
            myStringList->Add(utilisateur+"," +li->Strings[5]);

            //Enregistre dans le fichier
            myStringList->SaveToFile( enregistrer ) ;
          }
        
        }
        //libérer les ressources
        delete myStringList ;
        delete li ;
        delete file ;

En rouge les modification à apporter

17/06/2008, 11h36
darkman13130

Par contre tu peut vraiment m'aider stp car jai delimité les champs pars un ',' mais borland delimite un champs avec un ' ' espace aussi et sa m'eviterai la moitier des erreurs si tu peut me repondre je serais soulager merci
17/06/2008, 11h42
pottiez

Désolé, je ne comprend pas ton nouveau message, qu'est-ce que tu as délimité par des ',' ? Le fichier d'enregistrement ?
17/06/2008, 11h53
darkman13130

quand je lit dans le fichier j'ai dit que mes champs etait delimiter pas de ',' ex

rapport,265,systeme exploitation, windows xp pro

tous sa ca marche mais le probleme c'est quand je dit le 4eme champs sa devrais etre (windows xp pro) et non en faite c'est (exploitation) car en faite borland par defaut il doit metre les champs separateur ' ' espace et avec le mien sa fait espace et la virgule que moi je voudrais que la virgule tu comprend ...
17/06/2008, 12h09
pottiez

Oui, je comprend,
pour cela tu peut essayer de remplacer DelimitedText par CommaText dans ton code mais ce n'est pas sur que ça fonctionne.
Sinon il faut mettre ton texte entre chaque virgule entre guillement, donc faire en sorte que le texte
Rapport,,,257,Version,AIDA32 v3.50
Rapport,,,258,Auteur,fiery@aida32.hu
Rapport,,,259,Site web,http://www.aida32.hu
Rapport,,,260,Type de rapport,Générateur de rapports
Rapport,,,261,Ordinateur,SECRÉTARIAT (claudine)
Rapport,,,262,Générateur,demieres
Rapport,,,263,Système d'exploitation,Microsoft Windows 98 4.10.2222A (Win98 SE)
Rapport,,,264,Date,2003-06-06
Rapport,,,265,Heure,11:51
Résumé,,Ordinateur,513,Système d'exploitation,Microsoft Windows 98

devienne"Rapport","","","257","Version","AIDA32 v3.50"
"Rapport","","","258","Auteur","fiery@aida32.hu"
"Rapport","","","259","Site web","http://www.aida32.hu"
"Rapport","","","260","Type de rapport","Générateur de rapports"
"Rapport","","","261","Ordinateur","SECRÉTARIAT (claudine)"
"Rapport","","","262","Générateur","demieres"
"Rapport","","","263","Système d'exploitation","Microsoft Windows 98 4.10.2222A (Win98 SE)"
"Rapport","","","264","Date","2003-06-06"
"Rapport","","","265","Heure","11:51"
"Résumé","","Ordinateur","513","Système d'exploitation","Microsoft Windows 98"
17/06/2008, 12h13
darkman13130

ta seconde solutions n'est pas envisageable car il y a des milliers de ligne et de fichier texte
17/06/2008, 12h14
pottiez

Ça peut être fait facilement par programme
17/06/2008, 12h15
darkman13130

ta premier methode ne fonctionne pas je suis demoraliser j'en est vraiment besoins c'est le seul probleme et j'ai fini ce pu... de truc lol qui peut maider

Avec ca ca devrait fonctionner :

Code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
//Déclarations de variables
        int i,val1=-1;
        AnsiString pos,racine,utilisateur,ligne3,ligne4,enregistrer,rechercher;
        TStringList *file = new TStringList() ;
        TStringList *myStringList= new TStringList() ;
        TStringList *li = new TStringList() ;

        //Recuperation de la racine du fichier a enregistrer dans edit 6
        enregistrer=Edit5->Text;

        //Recuperation du nom d'utilisateur dans Edit4
        utilisateur=Edit3->Text;

        //Recuperation de la racine du fichier dans Edit2
        racine=Edit1->Text;

        //Lecture du fichier
        file->LoadFromFile( racine );
        for( i=0; i< file->Count; i++)
        {
                //Lecture de chaque ligne
                rechercher = file->Strings[i];

                //Teste sur chaque ligne la valeur ,264,
                if(rechercher.Pos(",264,"))
                {
                       //Enregistre la valeur dans val1
                       val1=i;
                }
        }

        //Recuperation de ligne selectionner
        if(val1 != -1)
        {
          ligne3 = file->Strings[val1] ;
          ligne4 = "";
          while(ligne3.Pos(",") != 0)
          {
            ligne4 += "\"";
            ligne4 += ligne3.SubString(1,ligne3.Pos(",")-1);
            ligne3.Delete(1,ligne3.Pos(","));
            ligne4 += "\",";
          } 
          if(ligne3.Length() != 0)
          {
            ligne4 += "\"";
            ligne4 += ligne3;
            ligne4 += "\"";
          }

          //Decoupage de la ligne a chaque virgule
          li->Delimiter = ',' ;
          li->DelimitedText = ligne4 ;

          if(li->Count > 5)
          {
            //Ouverture du fichier
            myStringList->LoadFromFile(enregistrer);
            //Ajout dans le fichier
            myStringList->Add(utilisateur+"," +li->Strings[5]);

            //Enregistre dans le fichier
            myStringList->SaveToFile( enregistrer ) ;
          }
        
        }
        //libérer les ressources
        delete myStringList ;
        delete li ;
        delete file ;

En rouge les modification à apporter

17/06/2008, 14h31
darkman13130

tu es un boss mec mais quand tu as 5minute est ce que tu peux me mettre quelque commentaire quand je comprend pas trop ce que sa fait mais sa marche

Voici les commentaires :

Code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
//Déclarations de variables
        int i,val1=-1;
        AnsiString pos,racine,utilisateur,ligne3,ligne4,enregistrer,rechercher;
        TStringList *file = new TStringList() ;
        TStringList *myStringList= new TStringList() ;
        TStringList *li = new TStringList() ;
 
        //Recuperation de la racine du fichier a enregistrer dans edit 6
        enregistrer=Edit5->Text;
 
        //Recuperation du nom d'utilisateur dans Edit4
        utilisateur=Edit3->Text;
 
        //Recuperation de la racine du fichier dans Edit2
        racine=Edit1->Text;
 
        //Lecture du fichier
        file->LoadFromFile( racine );
        for( i=0; i< file->Count; i++)
        {
                //Lecture de chaque ligne
                rechercher = file->Strings[i];
 
                //Teste sur chaque ligne la valeur ,264,
                if(rechercher.Pos(",264,"))
                {
                       //Enregistre la valeur dans val1
                       val1=i;
                }
        }
 
 
        if(val1 != -1)
        {
          //Recuperation de ligne selectionner
          ligne3 = file->Strings[val1] ;
           ligne4 = "";
 
          //Ajoute les guillemets autour de champs
          while(ligne3.Pos(",") != 0)
          {
            ligne4 += "\"";  //Ajout de la guillemet de début
            ligne4 += ligne3.SubString(1,ligne3.Pos(",")-1);  //Ajoute le premier champs qui figure dans ligne3
            ligne3.Delete(1,ligne3.Pos(","));  //supprime le premier champs qui vient d'être ajouté a ligne4 (le champs suivant prend alors la première place pour le passage suivant dans la boucle)
            ligne4 += "\",";  //Ajout de la guillement de fin
          } 
          //Ajoute les guillemets autour du dernier champs
          if(ligne3.Length() != 0)  //Si il rest un champs (pas de virgule derière le dernier champs, donc il n'est pas passé dans la boucle precedente)
          {
            ligne4 += "\"";  //Ajout guillemet debut
            ligne4 += ligne3;  //Ajout du dernier champs
            ligne4 += "\"";  //Ajout guillemet fin
          }
 
          //Decoupage de la ligne a chaque virgule
          li->Delimiter = ',' ;
          li->DelimitedText = ligne4 ;
 
          if(li->Count > 5)
          {
            //Ouverture du fichier
            myStringList->LoadFromFile(enregistrer);
            //Ajout dans le fichier
            myStringList->Add(utilisateur+"," +li->Strings[5]);
 
            //Enregistre dans le fichier
            myStringList->SaveToFile( enregistrer ) ;
          }
 
        }
        //libérer les ressources
        delete myStringList ;
        delete li ;
        delete file ;

17/06/2008, 16h33
darkman13130

un grand merci a toi