Tstringgrid sauvegardé dans fichier texte

**kykyn** · 15/02/2006, 11h29

bonjour,

j aimerais sauvegarder ma TStringgrid en format texte.

voici ce que j ai fait :

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

**bakaneko** · 15/02/2006, 11h42

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.

**kykyn** · 15/02/2006, 11h49

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

**bakaneko** · 15/02/2006, 11h52

Envoyé par kykyn

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

Tu rajoutes le caractère \t

Ex:

Code :

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

1
2
 
AnsiString Texte = "toto" + "\t" + "tata";

donnera
toto[tab]tata

**kykyn** · 15/02/2006, 12h02

merci je teste tout ça

**kykyn** · 15/02/2006, 12h34

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

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

**bakaneko** · 15/02/2006, 12h39

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

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

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

**kykyn** · 15/02/2006, 13h28

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!

**kykyn** · 15/02/2006, 13h47

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

**kykyn** · 15/02/2006, 14h43

avec ce 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
 
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!

**totoche76** · 15/02/2006, 15h15

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

**kykyn** · 15/02/2006, 15h52

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

Tstringgrid sauvegardé dans fichier texte

C++Builder

Discussions similaires

Partager

Partager