Comment sauvegarder un fichier avec choix du repertoire

Version imprimable

24/07/2006, 12h03
vantoff

Comment sauvegarder un fichier avec choix du repertoire

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
24/07/2006, 12h58
say

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

TSaveDialog

A+

:f1: :recherch:
24/07/2006, 13h55
vantoff

Citation:

Envoyé par say

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

TSaveDialog

A+

:f1: :recherch:

J'ai l'impression que vous ne m'avez pas compris
24/07/2006, 13h57
BOUBOU81

Explique nous un peu mieux alors car moi j'aurai répondu la meme chose.
:roll:
24/07/2006, 14h03
bandit boy
Salut,
Il faut tout simplement que tu sauvegardes ton fichier en faisant:
Code:

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();
24/07/2006, 14h07
say

Citation:

Envoyé par vantoff

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

j'ai l'impression que ça devait pas être clair alors :lol: ;)

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:

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

24/07/2006, 14h19
vantoff

Citation:

Envoyé par say

j'ai l'impression que ça devait pas être clair alors :lol: ;)

:nosms:

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

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

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

soit dans ta fonction :

Code:

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

24/07/2006, 14h43
damienlann
Citation:

Envoyé par bandit boy

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:

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

Citation:
Envoyé par say
:? :? ...je ne comprends pas tout là...C'est une attaque??? 8O

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

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

24/07/2006, 15h39
say

:aie:

Code:

TSaveDialog* TSD_Save = new TSaveDialog(this);

avec this ta form..

désolé, j'ai fait vite fait
24/07/2006, 15h48
vantoff

Citation:

Envoyé par say

:aie:

Code:

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:king:
24/07/2006, 15h51
say

comme quoi j'avais compris la question :lol: :twisted: