remplissage d'une StringGrid

Version imprimable

Je teste un programme en vue de remplir une StringGrid avec des coordonnees venant d'un GPS ces coordonnes sont dans un fichier texte environ 30 colonnes et plus de 6000 lignes je peu l'ouvrir, j'ai repris le code de Mattetfamilly pour charger le StringGrid mais
- premierement j'ai une erreur que ne parvient pas a resoudre
- deuxiement mon StringGrid contient 30 colonnes et apres execution une seule colonne apparait

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
//----------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "stringgrid.h"
//----------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//----------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
///////////////////////////////////
{
  OpenDialog1->Options.Clear();
  OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist;
  OpenDialog1->Filter = "Fichiers TXT (*.TXT) (*.txt)|*.txt|Fichiers DOC (*.DOC) (*.doc)|*.doc|Fichiers CSV (*.CSV) (*.csv)|*.csv";
  OpenDialog1->FilterIndex = 1; // demarre le dialogue d'affichage des fichiers
//////////////////////////////////
if(OpenDialog1->Execute())
        {
        String FilePath = OpenDialog1->FileName;
 
int i;
int j;
AnsiString convertisseur;
TStringList *MyStringList = new TStringList();
MyStringList->LoadFromFile(FilePath); //Si tu as créer ton extension lors de la sauvegarde, penses à réutiliser la même ici.
for(i=0;i<MyStringList->Count;i++)
{
convertisseur=MyStringList->Strings[i];
for(j=0;(convertisseur.Pos("\t")>=1);j++)
{
convertisseur[convertisseur.Pos("\t")]='\n';
}
//voir s'il faut ajouter un test sur le cas où j=0
StringGrid1->ColCount = j; //Il est possible que cela soit un j-1 ou un j+1...
 
if(i>(StringGrid1->RowCount-1))
StringGrid1->RowCount = i+1;
StringGrid1->Rows[i] = convertisseur;
}//fin du for
delete MyStringList; //si cette ligne te poses un soucis essayes de la supprimer: en théorie elle est nécessaire.
}

ERREUR sur la ligne soulignee
[C++ Error] stringgrid.cpp(51): E2034 Cannot convert 'AnsiString' to 'TStrings *'

28/05/2006, 18h13
Tenguryu
Chaque Row est composé de Cells

Donc quand tu dit

StringGrid1->Rows[i] = convertisseur;
Tu place un ansistring dans une liste d'ansitring..pas cool

Pour accéder aux Strings d'une Row, utilises:
Code:

1 2 StringGrid1->Rows[i]->Strings[x] = convertisseur // x correspond à la ligne, 0 pour la première, souvent grisée
28/05/2006, 18h45
blondelle
Merci pour la reponse Tenguryu je ne connaisse pas
maintenant cela fonctionne partiellement
je ne rempli que la 1er cellule.
En mode pas a pas je recupere bien mes chaines et j'ecremente le compteur de ligne
voici le code reecrit qui remplace la ligne source d'erreur
Code:

1 2 StringGrid1->Rows[i]->Strings[i] = convertisseur; // x correspond à la ligne, 0 pour la première, souvent grisée
28/05/2006, 23h19
Mattetfamilly
Non!

Le code suivant n'est pas bon.
Il correspond à un chargement cellules per celuules.
D'ailleurs, il va remplir la grille en diagonale...
Code:

1 2 StringGrid1->Rows[i]->Strings[i] = convertisseur
Le bon code est:
Code:

1 2 StringGrid1->Rows[i]->Text = convertisseur
L'erreur indiquée correspond bien à mon erreur de saisie...
C'est normal que tu n'es qu'une colonne, c'est lié à l'erreur.
Une fois corrigée, tu devrais avoir toutes tes colonnes.

Désolé

Mattetfamilly
:oops: :scarymov:
28/05/2006, 23h41
blondelle

Je te remercie Mattetfamilly pour ta reponse et surtout ne te fais pas de soucis l'erreur est humaine et puis ca fait chercher je vais donc tester ce que tu ma donne je te tiens au courant
A +

j'ai teste ta ligne de code effectivement ca ecrit toute une colonne de plus de 6000 ligne seulement il n'y a qu'une seule colonne d'ecrite il devrait en avoir environ 30 je continue a chercher de mon cote je joind mon 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
 
//----------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "stringgrid.h"
//----------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//----------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
///////////////////////////////////
// ici on appelle la boite de dialogue ouvrir un fichier
// avec les options et le filtre
  OpenDialog1->Options.Clear();
  OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist;
  OpenDialog1->Filter = "Fichiers TXT (*.TXT) (*.txt)|*.txt|Fichiers DOC (*.DOC) (*.doc)|*.doc|Fichiers CSV (*.CSV) (*.csv)|*.csv";
  OpenDialog1->FilterIndex = 1; // demarre le dialogue d'affichage des fichiers
///////////////////////////////////
if(OpenDialog1->Execute())
        {
        String FilePath = OpenDialog1->FileName;
///////////////////////////////////
// ici on va charger la StringGrid avec le fichier
int i;
int j;
AnsiString convertisseur;
TStringList *MyStringList = new TStringList();
MyStringList->LoadFromFile(FilePath); //Si tu as créer ton extension lors de la sauvegarde, penses à réutiliser la même ici.
for(i=0;i<MyStringList->Count;i++)
{
convertisseur=MyStringList->Strings[i];
for(j=0;(convertisseur.Pos("\t")>=1);j++)
{
convertisseur[convertisseur.Pos("\t")]='\n';
}
//voir s'il faut ajouter un test sur le cas où j=0
StringGrid1->ColCount = j; //Il est possible que cela soit un j-1 ou un j+1...
if(i>(StringGrid1->RowCount-1))
StringGrid1->RowCount = i+1;
StringGrid1->Rows[i]->Text = convertisseur; // x correspond à la ligne, 0 pour la première, souvent grisée
}//fin du for
delete MyStringList; //si cette ligne te poses un soucis essayes de la supprimer: en théorie elle est nécessaire.
}
}

31/05/2006, 00h28
blondelle

Je suis toujours en panne, je ne trouve pas comment faire pour ecrire toutes les colonnes d'une ligne (precision sur une ligne toutes les colonnes ne sont pas systemetiquement ecrites).
Quand je suis en mode pas a pas la ligne contient bien les separateurs, la colonnes 1 s'ecrit, les autres colonnes sont effacees.
31/05/2006, 10h13
Poilou

Bonjour, :)

Pour ma part, lorsque je veux remplir une stringGrid je passe par la propriété Cells qui s'utilise de la façon suivante :

Code:

StringGrid1->cells[L][C] = "";

Ou L est l'index de la ligne et C l'index de la colonne.

Avec cette commande une seule cellule de la grille est remplie. Je ne vois pas trop comment fonctionne votre code...vous bouclez une premiere fois sur le nombre de ligne mais pour le 2eme for votre condition de sortie évolue pendant que vous etes dans la boucle...

Une boucle While serait plus appropriée je pense...

Poilou
31/05/2006, 13h48
blondelle
Merci pour ta reponse Poilou le code n'est pas de moi je l'ai repris afin de tester la StringGrid je debute en BCB, d'apres ce que j'avais cru comprendre la ligne suivante etait sencee se placer dans chaque colonne de la ligne automatiquement un peu comme "Excel" quand on charge un fichier texte
Code:

1 2 StringGrid1->Rows[i]->Text = convertisseur;
Voila un type de chaine que je recoit dans la variable convertisseur
Code:

1 2 3 convetisseur = { Data:"Waypoint\n000018\n90 AV D Amiens - Bapaume\n User Waypoint \n49 58.294 E2 32.679\n-0.114m\n\n\n\nSymbole & Name\nBlack\nWaypoint\n\n\n\n\n\n\n" }
Si je dois utiliser une double boucle pour passer mes parametres dans chaque colonne
Code:

1 2 StringGrid1->cells[L][C] = "convertisseur";
Je ne vois pas comment recuperer le separateur "\n" afin de traiter la chaine a passer dans chaque cellule

Bonjour,

Voici une fonction que j'utilise pour séparer les éléments d'une chaine en fonction d'un séparateur...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 void Split_Liste(TStrings* Liste,AnsiString Original,AnsiString Separateur) { while (Original.AnsiPos(Separateur) != 0) { Liste->Add(Original.SubString(1,Original.AnsiPos(Separateur) - 1)); Original = Original.Delete(1,Original.AnsiPos(Separateur)); }//endwhile if (Original.Length() > 0) { if (Original != Separateur) Liste->Add(Original); } }
tu vas donc avoir une variable de type TStringList* Liste qui va séparer les données d'une ligne.

Tu peux ensuite boucler sur ton nombre de lignes et ensuite pour chaque lignes boucles sur le nombre de cases de la StringList

Exemple de bout de code fait à la vavite :p
Code:

1 2 3 4 5 6 7 8 9 10 TStringList* UneLigne = new TStringList(); AnsiString convertisseur; //contient les données d'une ligne Split_Liste(UneLigne,convertisseur,"\n"); for(int j=0;j<UneLigne->Count;j++) { StringGrid1->Cells[j][i] = UneLigne->Strings[j]; //i étant une variable de ta précédente boucle for }
En espérant que ça t'aide :)

01/06/2006, 14h15
blondelle

merci pour ta reponse Poilou je tester ton code dans mon programme decidement je suis plus doue pour excel vbe que pour bcb

Je penses qu'il y a un soucis avec les retours de chariots:
il est possible que ton fichier lors de son chargement contienne des '\r'.
Je penses que cela peut n'aficher qu'une colonne dans ces conditions...
Code:

1 2 3 4 5 6 7 8 9 10 11 convertisseur=MyStringList->Strings[i]; for(j=0;(convertisseur.Pos("\t")>=1);j++) { convertisseur[convertisseur.Pos("\t")]='\n'; } do { convertisseur=convertisseur.delete(convertisseur.Pos("\r"),1); }while(convertisseur.Pos("\r")>=1); //
je pensais l'avoir mis pourtant....:oops: :oops:

01/06/2006, 19h28
blondelle

Merci pour ta reponse Mattetfamilly j'ai visualise quelques chaines apparament il n'y a pas "\r" mais on ne sait jamais.
Peut tu me dire si ton code rempli bien toutes les colonnes d'une ligne meme si, ces lignes on des colonnes vides entre deux et, pas le meme nombre de colonnes par ligne.

Je crois que tu pointes bien le soucis et j'allais justement t'ajouter un post sur le sujet:

En fait la ligne suivante n'est pas suffisante:

Code:

1
2
 
StringGrid1->ColCount = j; //Il est possible que cela soit un j-1 ou un j+1...

corriges comme ceci:

Code:

1
2
3
4
5
6
 
MyStringList->LoadFromFile(FilePath); //Si tu as créer ton extension lors de la sauvegarde, penses à réutiliser la même ici.
StringGrid1->ColCount=1;//cela met la grille à une seule colonne de base
StringGrid1->RowCount=1;//cela met la grille à une seule ligne de base
for(i=0;i<MyStringList->Count;i++)
{

et corriges aussi comme cela:

Code:

1
2
3
 
if(j>StringGrid1->ColCount)
StringGrid1->ColCount = j; //Il est possible que cela soit un j-1 ou un j+1...

01/06/2006, 19h44
blondelle

Je te remerci Mattetfamilly le code fonctionne parfaitement dans ce premier essai je vois si cela fonctionne avec mes autres fichiers et je communiquerai le code pour ceux qui en auront besoin
encore une fois merci
01/06/2006, 23h40
blondelle

Je te remercie Mattetfamilly
J'ai teste ton code ca marche il faut juste que je vois en fonction du separateur "\t" ou "\;" qui est differant suivant le type fichier, les separateur "\t" "\n" sont des separateur tire du c associes a la fonction printf

J'ai trouve une solution pour tester le separateur mais il me met un warning
Code:

1 2 3 4 5 6 7 8 9 10 11 // teste pour trouver les separateurs en fonction on modifie // (convertisseur.Pos("\t")); if (a = (convertisseur.Pos("\t")) > 0) a = '\t'; else if (a = (convertisseur.Pos("\;")) > 0) a = '\;'; else if (a = (convertisseur.Pos("\,")) > 0) a = '\,';
warning mis a la compilation
Code:

1 2 3 4 [C++ Warning] stringgrid.cpp(44): W8060 Possibly incorrect assignment [C++ Warning] stringgrid.cpp(47): W8060 Possibly incorrect assignment [C++ Warning] stringgrid.cpp(50): W8060 Possibly incorrect assignment
pourtant le programme fonctionne et le type de separateur est bien pris en compte suivant le fichier appele

Salut !

Je croi plutôt que tu veu faire ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
// teste pour trouver les separateurs en fonction on modifie
// (convertisseur.Pos("\t"));
if (convertisseur.Pos("\t") > 0)
a = '\t';
else
if (convertisseur.Pos(";") > 0)
a = ';';
else
if (convertisseur.Pos(",")> 0)
a = ',';

:lol:

++

03/06/2006, 11h24
blondelle

merci pour ta reponse Interruption13h ca marche je n'ais plus de message d'erreur (je suis vraiment pas tres doue)

je donne mon code pour ceux que cela interresse

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "stringgrid.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
///////////////////////////////////
// ici on appelle la boite de dialogue ouvrir un fichier
// avec les options et le filtre
  OpenDialog1->Options.Clear();
  OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist;
  OpenDialog1->Filter = "Fichiers TXT (*.TXT) (*.txt)|*.txt|Fichiers DOC (*.DOC) (*.doc)|*.doc|Fichiers CSV (*.CSV) (*.csv)|*.csv";
  OpenDialog1->FilterIndex = 1; // demarre le dialogue d'affichage des fichiers
///////////////////////////////////
if(OpenDialog1->Execute())
        {
        String FilePath = OpenDialog1->FileName;
///////////////////////////////////
// ici on va charger la StringGrid avec le fichier
int i;
int j;
char a;
AnsiString convertisseur;
TStringList *MyStringList = new TStringList();
MyStringList->LoadFromFile(FilePath); //Si tu as créer ton extension lors de la sauvegarde, penses à réutiliser la même ici.
 
StringGrid1->ColCount=1;//cela met la grille à une seule colonne de base
StringGrid1->RowCount=1;//cela met la grille à une seule ligne de base
 
for(i=0;i<MyStringList->Count;i++)
{
convertisseur=MyStringList->Strings[i];
 
// teste pour trouver les separateurs en fonction on modifie
// (convertisseur.Pos("\t"));
if (convertisseur.Pos("\t") > 0)
a = '\t';
else
if (convertisseur.Pos("\;") > 0)
a = '\;';
else
if (convertisseur.Pos("\,") > 0)
a = '\,';
 
// on va chercher le separateur soit ( "\t" ) soit ( "\;" ) soit ( "\," )
for(j=0;(convertisseur.Pos(a)>=1);j++)
{
// on va chercher le separateur soit ( "\t" ) soit ( "\;" ) soit ( "\," )
convertisseur[convertisseur.Pos(a)]='\n';
 
//voir s'il faut ajouter un test sur le cas où j=0
 
if(j>StringGrid1->ColCount)
StringGrid1->ColCount = j; //Il est possible que cela soit un j-1 ou un j+1...
//StringGrid1->ColCount = j; //Il est possible que cela soit un j-1 ou un j+1...
 
if(i>(StringGrid1->RowCount-1))
StringGrid1->RowCount = i+1;
 
StringGrid1->Rows[i]->Text = convertisseur; // x correspond à la ligne, 0 pour la première, souvent grisée
}//fin du for
}
delete MyStringList; //si cette ligne te poses un soucis essayes de la supprimer: en théorie elle est nécessaire.
        }
}