Tstringgrid sauvegardé dans fichier texte

Version imprimable

bonjour,

j aimerais sauvegarder ma TStringgrid en format texte.

voici ce que j ai fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
void __fastcall TFrmStat::Sauver1Click(TObject *Sender)
{
 //demander le nom de fichier de sortie
 if (this->saveDlgFichier->Execute() == true)
  {
     AnsiString NomSave;
 //demander le nom de fichier de sortie
 
   NomSave=this->saveDlgFichier->FileName;
   TStringList *StrGrd=new TStringList();
      for (int i=1;i<stgDonnees->ColCount;i++)
        {
           for (int j=0;j<stgDonnees->RowCount;j++)
           {
                StrGrd->Add(stgDonnees->Cells[i][j]);
                StrGrd->SaveToFile(NomSave);
           }
        }
      delete StrGrd;
  }
}

ceci a pour conséquence que mon fichier a une unique colonne avec toutes les données.

connaitriez vous moyen de mettre plusieurs colonnes dans ce fichier texte?

merci et bonne journée

15/02/2006, 11h42
bakaneko

Je te propose l'option suivante:

1- parcours des lignes
2- pour chaque ligne, tu parcours les colonnes et tu ajoutes les données à un AnsiString séparées par une tabulation
3- Ajout de cet AnsiString à ton TStringList
4- Sauvegarde du fichier.
15/02/2006, 11h49
kykyn

tres bonne idée mais comment je fais pour y séparer d'une tabulation?
15/02/2006, 11h52
bakaneko
Citation:

Envoyé par kykyn

tres bonne idée mais comment je fais pour y séparer d'une tabulation?

Tu rajoutes le caractère \t :D
Ex:
Code:

1 2 AnsiString Texte = "toto" + "\t" + "tata";
donnera
toto[tab]tata
15/02/2006, 12h02
kykyn

merci je teste tout ça

je suis presque au bout...
voila ce que j ai

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
 
void __fastcall TFrmStat::Sauver1Click(TObject *Sender)
{
 //demander le nom de fichier de sortie
 if (this->saveDlgFichier->Execute() == true)
  {
  AnsiString NomSave;
  AnsiString Texte;
 //demander le nom de fichier de sortie
 
   NomSave=this->saveDlgFichier->FileName;
   TStringList *StrGrd=new TStringList();
      for (int i=0;i<stgDonnees->RowCount;i++)
        {
           for (int j=1;j<stgDonnees->ColCount;j++)
           {
                Texte = Texte+ "/t"+ stgDonnees->Cells[j][i];
           }
           StrGrd->Add(Texte);
           StrGrd->SaveToFile(NomSave);
           Texte == "";
        }
      delete StrGrd;
  }
}

en gros j ai un souci de remise a 0 de mon ansistring et en plus dans mon bloc note ça ne marque pas de tabulation mais /t...
voila si t as une idée merci

Voici le code que je ferrais (basé sur le tien)

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
 
void __fastcall TFrmStat::Sauver1Click(TObject *Sender)
{
 //demander le nom de fichier de sortie
 if (this->saveDlgFichier->Execute() == true)
 {
  AnsiString NomSave;
  //demander le nom de fichier de sortie
  NomSave = this->saveDlgFichier->FileName;
  StringList *StrGrd = new TStringList();
  for (int i=0;i<stgDonnees->RowCount;i++)
  {
   AnsiString Texte;
   for (int j=1;j<stgDonnees->ColCount;j++)
   {
    if (j > 1)
         Texte += "\t";
    Texte += stgDonnees->Cells[j][i];
   }
   StrGrd->Add(Texte);
  }
  StrGrd->SaveToFile(NomSave);
  delete StrGrd;
 }
}

sinon, j'ai fait ce code pour un de mes programmes

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
 
bool ExportGrille(TStringGrid* Grille,TForm* Fiche,AnsiString Total)
{
 int retour = true;
 TSaveDialog* Sauvegarde = new TSaveDialog(Fiche);
 Sauvegarde->Title = "Export du tableau";
 Sauvegarde->DefaultExt = "txt";
 Sauvegarde->Options << ofOverwritePrompt << ofHideReadOnly << ofNoChangeDir << ofNoReadOnlyReturn << ofDontAddToRecent;
 Sauvegarde->Filter = "Fichier texte (*.txt)|*.txt";
 
 if (!Sauvegarde->Execute())
        retour = false;
 else
 {
  TStringList* Export = new TStringList;
  Export->Clear();
  for (int ligne = 0;ligne < Grille->RowCount;ligne++)
  {
   AnsiString Ajout;
   for (int colonne = 0;colonne < Grille->ColCount;colonne++)
   {
    if (colonne > 0)
        Ajout += "\t";
    Ajout += Grille->Cells[colonne][ligne];
   }
   Export->Add(Ajout);
  }
  if ((Total != NULL) || (Total != ""))
  {
   Export->Add("");
   AnsiString valeur = "Total\t" + Total;
   Export->Add(valeur);
  }
  Export->SaveToFile(Sauvegarde->FileName);
  delete Export;
 }
 
 delete Sauvegarde;
 return retour;
}

15/02/2006, 13h28
kykyn

eh ben je te remercie c est nickel!!!!

j ai enfin fini ce projet il me reste plus qu a faire disparaitre la fenetre lorsque je clique sur "enregistrer"

merci!
15/02/2006, 13h47
kykyn

j arrive pas a comprendre pourquoi lorsque je clique sur enregistrer ça ne ferme pas la fenetre de commande d enregistrement.. :(

avec ce 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
 
void __fastcall TFrmStat::Sauver1Click(TObject *Sender) 
{ 
 //demander le nom de fichier de sortie 
 if (this->saveDlgFichier->Execute() == true) 
 { 
  AnsiString NomSave; 
  //demander le nom de fichier de sortie 
  NomSave = this->saveDlgFichier->FileName; 
  StringList *StrGrd = new TStringList(); 
  for (int i=0;i<stgDonnees->RowCount;i++) 
  { 
   AnsiString Texte; 
   for (int j=1;j<stgDonnees->ColCount;j++) 
   { 
    if (j > 1) 
         Texte += "\t"; 
    Texte += stgDonnees->Cells[j][i]; 
   } 
   StrGrd->Add(Texte); 
  } 
  StrGrd->SaveToFile(NomSave); 
  delete StrGrd; 
 } 
}

ma boite de dialogue de sauvegarde ne se ferme pas lorsque je sauvegarde..

est ce que quelqu un saurait car j ai essayé de faire un peu comme bakaneko mais bon je me suis un peu raté je crois...

merci!

15/02/2006, 15h15
totoche76

Hello

C'est TFrmStat ta boite de dialogue de sauvegarde ??

Si tu l'as affichée avec un ->Show(), rajoute Close(); après ton delete StrGrd;
Si tu l'as affichée avec un ->ShowModal(), mets un ModalResult = <une des contantes mrXXX> à la place du Close()

A++
15/02/2006, 15h52
kykyn

Non ma boite de dialogue c est saveDlgFichier qui est une TSaveDialog et normalement lorsque je clique sur "enregistrer" elle devrait se fermer mais je ne comprends pas pourquoi elle ne le fait pas :x