complication avec un TStringList

Version imprimable

bonjour a tous,
je viens de créer un projet qui permet d'insérer le contenu d'un fichier dans un composant et puis par la suite parcourir ce fichier pour faire des tests et d'extraire des données. pour ce là, j'ai opté pour un composant TStringList. jusque là tout fonctionnait normalement jusqu'à ce que j'intègre dans ce composant un fichier de grande taille qui contient plus de 5000 lignes ( 4951 lignes pour etre exacte). cette perturbation a provoquer un dysfonctionnement de tous ce qui la suit comme instructions.

ce que je voudrais savoir c'est existe il un moyen pour faire des extensions sur la taille d'un composant TStringList ou encore comment je peut modifier mon code avec autre composant sans pour autant tout refaire.

voilà la partie du code que je veut traiter:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... TStringList *Fichier = new TStringList; .... void __fastcall TForm1::ButtonClick(TObject *Sender) { .... AnsiString N = Filepath + Filename; if(FileExists(N)) { Fichier->LoadFromFile(N); for(Line = 0; Line < Fichier->Count; Line++) { if(Fichier->Strings[Line] == "object"); { ExtractValues(); } } } } ....

23/05/2008, 07h32
Gilles Louïse

Citation:

Envoyé par scoubi32006

plus de 5000 lignes ( 4951 lignes pour être exacte)

LOL : Expression à ajouter dans le bêtiser.

5000 lignes (voire plus !), c’est rien du tout pour un TStringList, je ne sais pas la limite supérieure mais ce composant supporte des fichiers énormes comme le petit bloc-notes (Notepad).

Votre erreur vient d’ailleurs.

À bientôt
Gilles
23/05/2008, 13h55
scoubi32006

pour le bêtisier c'est si drôle que ça !!!
parce que mon problème actuel est que j'ai 4951 est que sa ne marche pas !!!!
et pour les 5000 lignes c'est pour qu'au cas où j'ai un autre document plus grand de taille de 5000 lignes lignes ou plus !!!!
donc a mon avis c'est pas drôle !!!

pour le message d'erreur il m'indique de c'est bien le problème de capacité en nombre de ligne !! alors que pour un autre contenu moins long, mon travail fonctionne parfaitement.

voici le code d'erreur que j'ai

Citation:

le projet.exe a provoqué une classe d'exception EStringListError avec le message ' Indice de liste hors limites(4951)'.

merci.
23/05/2008, 14h34
pottiez

http://cpp.developpez.com/faq/bcb/?p...itetstringlist

;)
23/05/2008, 14h40
say

non le message n'indique pas que vous dépassez le nombre de lignes mais plutot que vous accèdez à une ligne qui n'existe pas, c'est un dépassement d'indice

Si vous avez 4951 lignes le dernier indice est 4950...

Code:

for(Line = 0; Line < Fichier->Count-1; Line++)
23/05/2008, 15h12
scoubi32006

merci !!!!

Salut !

Un traitement ligne par ligne sera plus simple :
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 for(int j = 0; j < Fichier->Count; j++) { N = Fichier->Strings[j]; if(N == "object") { //S'il y a quelque chose à faire en réponse à ... } else { if(N.Pos("...")) { //Donc en réponse à "..." ... } else { if(N.Pos("...")) { //Donc en réponse à "..." ... } //... } } }
Par contre ce serait bien de savoir dans quel but parce qu'on peut se trouver devant une situation où l'on ne pourrait que difficilement procéder de la sorte. Je pense en particulier à un mécansime qui instancierait quelque chose à chaque "object"... (quelque chose ne relevant pas forcément de la VCL)... objets dont les propriétés seraient ensuite initialisées avec des valeurs à extraire en aval...

A plus !

23/05/2008, 15h35
Gilles Louïse

Citation:

Envoyé par scoubi32006

pour le bêtisier c'est si drôle que ça !!!
parce que mon problème actuel est que j'ai 4951 est que sa ne marche pas !!!!
et pour les 5000 lignes c'est pour qu'au cas où j'ai un autre document plus grand de taille de 5000 lignes lignes ou plus !!!!
donc a mon avis c'est pas drôle !!!

Eh ! Oui, c'est drôle !

Apparemment vous ne voulez pas admettre que 4951 est inférieur à 5000, or vous annoncez plus que 5000.

Donc c’est drôle. En tout cas pour moi.

Et drôle également, ce fait que vous insistiez.

Cela dit, vous irez loin, dire n’importe quoi rapporte énormément dans cette société.

Continuez ! Vous tenez le bon bout.

À bientôt
Gilles

1 pièce(s) jointe(s)

Bonjour a tous,
bien que j'ai testé toutes les solutions que vous m'aviez donné j'ai pas pus résoudre mon problème.
voici mon code après quelques modifications

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
75
76
77
78
79
80
81
82
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
 
Memo1->Lines->Clear();
AnsiString N = Filepath + Filename;
if(FileExists(N))
    {
    Fichier->LoadFromFile(N);
    for(Line = 0; Line < Fichier->Count-1; Line++)
        {
        if(Fichier->Strings[Line] == "object");
            {
            ExtractValues();
            }
        }
    }
}
//-------------
 
void __fastcall TForm1::ExtractValues()
{
int moy=0;
 
 
int tait=0;
 
int nb=0;
 
 
 
Line=0;
Line++;
for(int j = 0; j < Fichier->Count-1; j++)
 
    {
    AnsiString N = Fichier->Strings[j];
    //N = N.UpperCase(); //pour lever l'ambiguité 'x' ou 'Y'
 
            tai=0;
        if(N.Pos("TLabel") != 0)
            {
            N = Fichier->Strings[j+5];
            ExtractValue(N);
            tait=tait+tai;
 
            nb++;
 
            moy=tait/nb;
 
            }
 
 
 
    Memo1->Lines->Add("tait");
    Memo1->Lines->Add(tait);
    Memo1->Lines->Add("nb");
    Memo1->Lines->Add(nb);
    Memo1->Lines->Add("moy");
    Memo1->Lines->Add(moy);
 
 }
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ExtractValue(AnsiString N)
{
 
 
int p = N.Pos("=");
if(p != 0)
    {
    p=p+3;
 
    N = N.SubString(p,N.Length()-p+3);
 
    tai=N.Length()-1;
 
 
 
    }
}

et dans la PJ que voilà, c'est le fichier que je veut lire.

que dois je corriger pour avoir un code qui fonctionne merci.

27/05/2008, 13h40
henderson
Salut !

Citation:

Memo1->Lines->Add("tait");
Memo1->Lines->Add(tait);
Memo1->Lines->Add("nb");
Memo1->Lines->Add(nb);
Memo1->Lines->Add("moy");
Memo1->Lines->Add(moy);
Code:

1 2 3 4 5 6 7 Memo1->Lines->Add("tait"); Memo1->Lines->Add( IntToStr(tait) ); Memo1->Lines->Add("nb"); Memo1->Lines->Add( IntToStr(nb) ); Memo1->Lines->Add("moy"); Memo1->Lines->Add( IntToStr(moy));
A plus !
27/05/2008, 14h00
scoubi32006

merci pour la réponse,
mais le problème n'est pas un problème d'affichage, mais c'est problème de démarrage en fait il m'affiche le message précédemment vue qui est

Citation:

le projet.exe a provoqué une classe d'exception EStringListError avec le message ' Indice de liste hors limites(4734)'.

et bien que j'ai modifié mon code initiale avec les rectifications suggérées je reste toujours au même point: je n'arrive pas a lire le fichier avec le AniString.

que dois je faire.
27/05/2008, 15h50
say

c'est donc un problème d'indice...un peu de debug de base devrait vous permettre d'avancer :
1/ identifier la ligne incriminée
2/ afficher les valeurs des indices
etc..etc..

P.S : malgré que n'est pas français...bien que oui en revanche ;)
27/05/2008, 15h57
Poilou

Bonjour,

Je comprends pas trop votre bout de code mais ce que je vois c'est :

- Une boucle sur le nombre de ligne du fichier
pour la boucle for, il faut mettre

Code:

for(Line = 0; Line < Fichier->Count; Line++)

ou

Code:

for(Line = 0; Line <= Fichier->Count-1; Line++)

- si la valeur d'une ligne est égale à "object" on refait une boucle sur le nombre de ligne du fichier. c'est toujours le même fichier ?

- la ou ça bloque, à mon avis, c'est sur cette ligne

Code:

Fichier->Strings[j+5];

car arrivé à 4 lignes de la fin, on va dépasser les limites du tableau.

Pour éviter l'erreur, il faut faire un test si (j+5) < Fichier->Count

Cordialement,

Fabrice