Discussion :

[vantoff]

Bonjour,
j'aimerai suavegarder le contenu de ma TMemo dans un fichier .txt de façons suivante
Il faut que l'utilisateur puisse lui-même choisir le repertoire dans lequel il veut sauvegarder son fichier.txt. et ce à partir d'un boutton(sauvegarder sous) et un TEdit qui permettra le choix du repertoir comme sous Windows.

Merci

[say]

un petit tour sur le forum..ou sur l'aide de BCB t'aurait surement renvoyer vers

TSaveDialog

A+

[vantoff]

un petit tour sur le forum..ou sur l'aide de BCB t'aurait surement renvoyer vers

TSaveDialog

A+

J'ai l'impression que vous ne m'avez pas compris

[BOUBOU81]

Explique nous un peu mieux alors car moi j'aurai répondu la meme chose.

[bandit boy]

Salut,
Il faut tout simplement que tu sauvegardes ton fichier en faisant:

Code :

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

1
2
3
 
AnsiString Filename = Edit1->Text+"Fichier.txt";
StringList->SaveToFile(FileName);

Sauf qu'il faut que ton nom complet respecte qhelques règles:
1)Le chemin soit complet: depuis "C:\" jusque "Fichier.txt"
2)Que le chemin existe
3)Que tous les séparateurs "\" soit doublé, c'est à dire "\\" pour qu'ils soient pris en compte.

Mais say à raison de te proposer le TSaveDialog, il est plus simple et tu ouvres directement une boite de dialogue classic. C'est plus simple et plus sympa. Tu la lances avec SaveDialog->Execute();

[say]

J'ai l'impression que vous ne m'avez pas compris

j'ai l'impression que ça devait pas être clair alors

[vantoff]

Pour comprendre cliquer sur fichier->Enregistrer sous->Bureau ou Mes documents ou autres repertoire. C'est ça que je veux faire. Il faut que l'utilisateur sauvegarde le contenu de la Memo là ou il le souhaite et non pas avec un SaveToFile par lequel on ne peut pas choisir son repertoire.

Moi j'ai fait ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::SauvegardeClick(TObject *Sender)
{
   TStringList *List = new TStringList; //TStringList: Permet de gerer une liste de chaîne en les stockant ou les manipulant.
   int i;
  if(FileExists("Decodeur_SBI.txt"))
  List->LoadFromFile("Decodeur_SBI.txt");
 for(i=0;i<Terminal->Lines->Count;i++)
 List->Add(Terminal->Lines->Strings[i]);
 List->SaveToFile("Decodeur_SBI.txt");
 delete  List ;
 
 
}

Mais je ne peut sauvegarder ou je veux.
Pour mieux comprendre cliquer sur Fichier à l'extreme gauche de votre PC puis sous Enregistrer sous...
Ainsi vous comprendriez mieux

[vantoff]

j'ai l'impression que ça devait pas être clair alors

[say]

...je ne comprends pas tout là...C'est une attaque???

Sinon personnellement je fais de l'export de fichier...et mes utilisateurs peuvent très bien choisir leur répertoire de sauvegarde..

Code :

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

1
2
3
4
5
6
7
 
TSaveDialog* TSD_Save = new TSaveDialog(Sender);
TSD_Save->InitialDir = "C:\";
TSD_Save->Title = "Enregistrer sous...";
TSD_Save->Filter = "Fichiers Txt (*.txt)|*.TXT";
if (TSD_Save->Execute())
              SaveToFile(TSD_Save->FileName);

[say]

soit dans ta fonction :

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
void __fastcall TForm1::SauvegardeClick(TObject *Sender)
{
   TStringList *List = new TStringList; //TStringList: Permet de gerer une liste de chaîne en les stockant ou les manipulant.
   int i;
  if(FileExists("Decodeur_SBI.txt"))
  List->LoadFromFile("Decodeur_SBI.txt");
 for(i=0;i<Terminal->Lines->Count;i++)
 List->Add(Terminal->Lines->Strings[i]);

TSaveDialog* TSD_Save = new TSaveDialog(Sender);
TSD_Save->InitialDir = "C:\";
TSD_Save->Title = "Enregistrer sous...";
TSD_Save->Filter = "Fichiers Txt (*.txt)|*.TXT";
if (TSD_Save->Execute())
     List->SaveToFile(TSD_Save->FileName);
 delete  List ;

}

en gros

[damienlann]

Sauf qu'il faut que ton nom complet respecte qhelques règles:
1)Le chemin soit complet: depuis "C:\" jusque "Fichier.txt"
2)Que le chemin existe
3)Que tous les séparateurs "\" soit doublé, c'est à dire "\\" pour qu'ils soient pris en compte.

il faut egalement ajouter un : "
avant et aprés au cas ou il y ait des espaces dans le chemin... (exemple flagrant : Program Files)

Code :

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

1
2
AnsiString Filename = "\"" + Edit1->Text + "Fichier.txt" + "\"";
StringList->SaveToFile(FileName);

devrait fonctionner.

[vantoff]

...je ne comprends pas tout là...C'est une attaque???

Sinon personnellement je fais de l'export de fichier...et mes utilisateurs peuvent très bien choisir leur répertoire de sauvegarde..

Code :

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

1
2
3
4
5
6
7
TSaveDialog* TSD_Save = new TSaveDialog(Sender);
TSD_Save->InitialDir = "C:\";
TSD_Save->Title = "Enregistrer sous...";
TSD_Save->Filter = "Fichiers Txt (*.txt)|*.TXT";
if (TSD_Save->Execute())
              SaveToFile(TSD_Save->FileName);

(Sender):Impossible de trouver un correspondant de:TSaveDialog:: TSaveDialog(TObjet*)

[say]

Code :

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

TSaveDialog* TSD_Save = new TSaveDialog(this);

avec this ta form..

désolé, j'ai fait vite fait

[vantoff]

Code :

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

TSaveDialog* TSD_Save = new TSaveDialog(this);

avec this ta form..

désolé, j'ai fait vite fait

C'est bon ça marche tu es un Champion

[say]

comme quoi j'avais compris la question