Discussion :

[Siguillaume]

Bonjour à tous!
Dans un code Delphi, je veux générer la nom du fichier de sauvegarde des données à partir de la date du système. Voici le code que j'ai écrit:

Code :

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

1
2
3
4
5
 
ladate:=date;
dateconvertit:=datetostr(ladate);
 AssignFile(fichier,'C:\Rapport Annuel'+ dateconvertit +'.txt');
Rewrite (fichier);

Une erreur qui me dit nom de fichier incorrect est généré au niveau du Rewrite(fichier). Quelqu'un a-t-il une idée?

Merci.

[droggo]

Jea,

Je n'utilise jamais les routines de formatage de Delphi pour les dates/heurs, mais je suppose qu'il y a des caractères : pour séparer les données pour l'heure (hh:mm:ss ?), et ce caractère est interdit dans le nom d'un fichier.

[bs.box]

Essaye Ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var NomFichier:String;
begin
NomFichier:=DateToStr(Date);
// Exemple de Date: 01/05/2008
// il faut remplacer les CHARS '/' !! Car ce caractère est illégale pour un
// nom de fichier!!; il y'ona d'autres comme: (? : \ ) ..
NomFichier[3]:='_';
NomFichier[6]:='_';
AssingFile(F, 'C:\Rapport Annuel' + NomFichier + '.txt');
ReWrite(F);
//
end;

[banban54]

bonsoir

une chose du genre :

Code :

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

1
2
3
 
        ChoixRepertoire := extractfilepath(SaveDialog1.FileName) +
          FormatDateTime('"Rapport Annuel du " yyyy-mm-dd " à " hhmmss' +'.txt', Now);

doit fonctionner correctement!
à+

[droggo]

Leo,

// il faut remplacer les CHARS '/'

J'avais oublié celui-là, qu'on retrouve généralement dans les dates formatées.

[Siguillaume]

Merci à vous tous pour vos réponses!
J'ai essayé la solution de bsdocuments, et ça marche très bien!

Je voudrais maintenant ajouter deux choses et là je coince:
1->en plus de la date, je voudrais aussi ajouter l'heure, pour composer le même fichier;
2->je veux faire l'enregistrement sur le bureau de l'utilisateur.

Je m'inspire de la proposition de banban54, mais je n'y arrive toujours pas. Dans mes recherches, j'ai découvert que la fonction SHGetSpecialFolderLocation, permet de récupérer les dossiers spéciaux, et que la variable CSIDL_DESKTOPDIRECTORY, désigne le bureau de l'utilisateur. Mais comment les utiliser?

Merci encore à tous!

[Aka Guymelef]

En ce qui concerne l'utilisation de SHGetSpecialFolderLocation, tout est dans la

[Siguillaume]

En ce qui concerne l'utilisation de SHGetSpecialFolderLocation, tout est dans la

J'ai justement la FAQ, sous les yeux, c'est elle qui ma indiqué cette fonction.
Seulement, je trouve que l'exemple d'utilisation qui est fournit, n'est pas vraiment adapté à ce que je veux faire.
À moins que vous me guidiez un peu, dans la compréhension.
Merci

[Aka Guymelef]

Je ne vois pas trop où est le problème, recopiez la fonction SpecialFolder dans votre (pensez au uses) puis appelez SpecialFolder comme dans l'exemple mais au lieu de passer la constante CSIDL_PERSONAL, passez CSIDL_DESKTOPDIRECTORY.

[Siguillaume]

ok. J'essaie de voir ça. Voici ce que je comprends:
1-> D'abord la fonction, qui permet de retourner le chemin des repertoires speciaux, en tant que chaînes de caractères;
2->ensuite l'utilisation de la fonction.

Est ce bien ça?

[Siguillaume]

Je rencontre une erreur à ce niveau:

Code :

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

SHGetSpecialFolderLocation(Form.Handle, Folder, SFolder);

De quelle form. S'agit-il? Celui en cours?
Quand je le remplace par le nom de celui en cours, il me dit que .Handle n'est pas déclaré. Ce qui est vrai. Je sais plus.

Il y a aussi le problème de l'heure.

[Siguillaume]

J'ai pu résoudre le problème avec l'heure. 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
 
procedure  sauvegarde_rapide;
var dateconvertit:string;
    nomfichier,cheminbureau:string;
  begin
      dateconvertit:=datetostr(Date);
      dateconvertit[3]:='_';
      dateconvertit[6]:='_' ;
      //cheminbureau:= trouverbureau(CSIDL_DESKTOPDIRECTORY);
      nomfichier:='C:\Rapport Annuel_' + dateconvertit + '_' + FormatDateTime('hh-mm-ss',Time) +'.txt';
end;

Si quelqu'un a mieux, je suis preneur.

POur l'heure, je m'arrache toujours les cheveux avec le repertoire du bureau.

Merci

[Aka Guymelef]

Essaye de passer Application.Handle plutôt, même si d'après la MSDN la valeur du handle passé ne semble pas avoir grande importance...

En ce qui concerne ton problème sur le formatage de l'heure, je pense que la solution de banban54 répond à ta question non ? Consulte l'aide sur la fonction FormatDateTime pour plus de renseignement.

[Siguillaume]

Avec Application.Handle, je n'ai plus de bug.
Tout semble bien fonctionner.
Seulement, la variable CSIDL_DESKTOPDIRECTORY, fait enregistrer le fichier dans le repertoire:C:\Documents and Settings\Utilisateur et non sur le bureau. C'est dans ce même repertoire qu'il enregistre, même quand j'utilise la variable CSIDL_PERSONAL.
Il y a t-il quelquechose qui manque?
Voici le nouveau 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
 
function trouverbureau(Dossier:Integer):String;
  var
    SDossier:pItemIDList;
    lechemin:Array[0..Max_Path] of Char;
 
  begin
    SHGetSpecialFolderLocation(Application.Handle,Dossier, SDossier);
    SHGetPathFromIDList(SDossier, lechemin);
    Result:=StrPas(lechemin);
  end;  
 
procedure  sauvegarde_rapide;
var dateconvertit:string;
    nomfichier:string;
  begin
      dateconvertit:=datetostr(Date);
      dateconvertit[3]:='_';
      dateconvertit[6]:='_' ;
      nomfichier:=trouverbureau(CSIDL_PERSONAL)+'Rapport Annuel_' + dateconvertit + '_' + FormatDateTime('hh-mm-ss',Time) +'.txt';
  end;

Le problème avec l'heure est résolu dans ce code.

[SergioMaster]

pourquoi faire simple quand on peut faire compliqué

Code :

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

1
2
3
 
 nomfichier:=cheminbureau+'Rapport Annuel_' + dateconvertit + '_' + FormatDateTime('hh-mm-ss',Time) +'.txt';
  end;

il me semble que

Code :

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

nomfichier:=cheminbureau+'Rapport Annuel_' + FormatDateTime('dd_mm_aaaa_hh-mm-ss',now) +'.txt';

ferait la même chose sans avoir a convertir la date et encore là je n'utilise pas toutes les possibilité de FormatdateTime puisque l'on peut aussi mettre des constantes et pas simplement le formattage de la date

[Aka Guymelef]

Essaye alors avec la constante CSIDL_DESKTOP qui est censé faire la même chose que CSIDL_DESKTOPDIRECTORY. En tout cas moi j'ai testé sous XP et ça fonctionne très bien. Avec quel SE testes-tu ?

[Siguillaume]

Pour le FormatDateTime:
Eh oui. ça marche super bien, j'ai retouché:dd_mm_aaaa_hh-mm-ss', en dd_mm_yyyy_hh-mm-ss' ,et ça marche très bien Merci pour cette optimisation à banban et Sergiomaster.

Pour le CSIDL_DESKTOP,
j'ai remplacé par cette variable. Mais, le fichier n'est toujours pas sur le bureau.
Je suis également sur XP. Bizarre quand même...
Merci de ton assistance, qui me fait vraiment progresser.

[Aka Guymelef]

Essayes de rentrer en debuggage et regarde ce que te retourne trouverbureau et regarde si ça à l'air cohérent ou pas ?

Autre chose, cette fonction ne retourne le répertoire sans '\' à la fin donc il faut le concaténer avant le nom sinon en fait tu es en train de créer un fichier de la forme :

C:\Documents and Settings\Utilisateur\BureauNomDuFichier.txt

[SergioMaster]

j'ai retouché:dd_mm_aaaa_hh-mm-ss', en dd_mm_yyyy_hh-mm-ss'

au temps pour moi mais tu es sur de toi pour les minutes
donc je me permet de retoucher

Code :

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

dd_mm_yyyy_hh-nn-ss

et comme je regarde la syntaxe de la routine j'en profite

Code :

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

1
2
 
formatdatetime('"\Rapport Annuel_"dd_mm_yyyy_hh-nn-ss".txt"',now);

pour ce qui est du(des) chemin moi j'ai pris l'habitude de passé par le composant inclus dans la JVCL jvComputerInfoEx qui fait tout le boulot à ma place

[Siguillaume]

C:\Documents and Settings\Utilisateur\BureauNomDuFichier.txt

C'est effectivement ce que j'avais comme nom.
Et là, il a suffit que j'ajoute '\', comme ceci:

Code :

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

1
2
 
nomfichier:=trouverbureau(CSIDL_DESKTOP)+'\Rapport Annuel_' + FormatDateTime('dd_mm_yyyy_hh-nn-ss',Now) +'.txt';

et tout marche bien.
Ah la programmation:un seul '/' pour que tout foire.

Merci infiniment à toi!!!!