Dépacement d'index dans un TStringList

**darkman13130** · 13/06/2008, 15h28

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
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

**sat83** · 13/06/2008, 15h31

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

Code :

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

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

**sat83** · 13/06/2008, 15h34

Un petit exemple avec la classique division par zero :

Code :

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

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" ) ;
  }

**darkman13130** · 13/06/2008, 15h46

Code :

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

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 :

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
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

**sat83** · 13/06/2008, 15h56

Quel est la ligne qui pose problème?

Si c'est celle ci :

Code :

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

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

tu as juste a faire :

Code :

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

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

**darkman13130** · 13/06/2008, 16h15

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

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
//---------------------------------------------------------------------------
 
#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

**sat83** · 13/06/2008, 16h22

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

**darkman13130** · 13/06/2008, 16h31

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 :

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

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

**Baxter67** · 13/06/2008, 16h33

on peut connaitre l'erreur exact que c'est

avec le code si possible

Cordialement Baxter

**sat83** · 13/06/2008, 16h35

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.

**darkman13130** · 13/06/2008, 16h41

Ma ligne de code

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
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 :

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
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;

**pottiez** · 13/06/2008, 16h45

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

**darkman13130** · 16/06/2008, 08h40

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

**pottiez** · 16/06/2008, 09h50

Alors au lieu de faire un try catch, test plutôt le nombre de ligne contenu dans ta stringList li :

Code :

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

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

**darkman13130** · 16/06/2008, 10h17

Code :

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

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

Code :

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

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

**pottiez** · 16/06/2008, 11h22

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)

**darkman13130** · 17/06/2008, 08h42

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

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
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

**pottiez** · 17/06/2008, 09h43

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 :

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
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

**darkman13130** · 17/06/2008, 11h36

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