Dépacement d'index dans un TStringList

Version imprimable

Voir 40 message(s) de cette discussion en une page

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 ?

Voir 40 message(s) de cette discussion en une page