Discussion :

[quarkz]

Salut !

J'ai commencé un nouveau programme (faut pratiquer pour y arriver !).
Ce programme va recuperer des strings et les ecrire dans un fichier texte.
Ce que je voudrais c'est qu'il crée un fichier, s'il n'existe pas, avec comme nom la date du jour (par ex: 010105.txt ou equivalent).
Comment implementer cela?

Merci

[Linkin]

pour tester si le fichier existe: FileExists
pour le créer voir Assignfile, Rewrite et CloseFile

et pour la date regarde du côté de DateToStr(Date)

Cordialement

[sjrd]

Tu peux utiliser FormatDateTime pour transformer la valeur TDateTime renvoyée par Date en une chaîne, mais je ne suis pas convaincu que tu parviendras à l'avoir en JJMMAA.
Si ce n'est pas le cas, je proposerais un DecodeDate et un Format :

Code :

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

1
2
3
4
5
6
function NomDeFichierDuJour : string;
var Year, Month, Day : Word; // ce doit être Word, à cause des params var
begin
  DecodeDate(Date, Year, Month, Day);
  Result := Format('%2d%2d%2d.txt', [Day, Month, Year mod 100]);
end;

PS : tu auras peut-être besoin de l'unité DateUtils

[quarkz]

Merci pour ces réponses rapides!
En fait pour ce qui est de trouver le fichier ca c bon puisque je l'avait deja implementé dans un autre programme, j'avais egalement trouvé toutes les fonctions 'assignfile, datetostr, etc...', mon probleme reside essentiellement dans la maniere de le mettre dans le code (etant vraiment debutant ya pas mal de choses qui me passent a coté!), car c bien beau de trouver la datetostr routine dans l'aide, mais sans exemple c'est pas evident ! en fait le plus dur a trouver pour moi c la manière d'inclure cette variable dans le nom du fichier)

je reedite mon message car je viens de trouver la maniere d'utiliser datetostr, donc il me reste plus qu'a avoir un peu d'aide pour inclure ca dans un nom de fichier merci

[cpdump]

Il peut être intéressant d'inverser la date pour le nom de fichier (année, mois, jour), cela permet un trier les fichiers par date facilement.

[Linkin]

Code :

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

1
2
3
4
5
6
7
F : TextFile;
 
AssignFile(F,Monchemin + NomDeFichierDuJour);
if FileExists(Monchemin + NomDeFichierDuJour) then
  Append(F)
else
  Rewrite(F);

et une fois que tu as fini avec ton fichier

Code :

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

CloseFile(F);

En gros, je n'ai pas testé mais ça doit être ça.

[quarkz]

ah yes c'est ce que je voulais. Merci beaucoup!

[sjrd]

ah yes c'est ce que je voulais. Merci beaucoup!

Un p'tit alors ?

[quarkz]

yep!