date et heure en nom de fichier.txtRésolu

Question

Bonjour


Je souhaiterais avoir de l'aide sur un prog que je réalise en vb6.
Mon but est d'enregistrer des données dans un fichier texte avec comme nom de fichier la date et l'heure de l'enregistrement.
Pour l'instant jarive à enregistrer les données dans un fichier dont jindique le nom et à enregister la date et l'heure dans ce fichier.
Si quelqu'un pouvait m'aider.
Merci.

cs_Exploreur · Accepted Answer

Salut,


Voici un début de code :


' Variable pour le futur nom de ton fichier
 Dim VarNameFichier As String
 
' Récupère la date et heure systeme
 VarNameFichier = Date & "_" & Time

' Remplace le carractère "/" par "_" pour la date
 VarNameFichier = Replace(VarNameFichier, "/", "_")

' Remplace le carractère ":" par "_" pour les heures
 VarNameFichier = Replace(VarNameFichier, ":", "_")

Voila, tu peux déjà travailler avec cela...

A+
Exploreur

cs_Exploreur · Answer

Salut,


Tout cela est possible, mais il te faudra décomposée ta date et ton heure, car comme tu le sais Windows, n'accepte pas certains carractères, imaginon :

Ta date actuelle est : 09/03/2007
Ton heure actuelle est : 09:03:00

Il te faudra avoir comme retour dans une variable String :

Ta date : 09_03_2007
Ton heure : 09_03_00

Après traitement de tes paramètre, tu pourra enregistrer ton fichier comme suit :
09_03_2007_09_03_00.Txt
Ton fichier = VariableDate & "_" & VariableTime

Je ne donne pas de code, car tu sais déjà écrire et enregistrer dans un fichier...Tu n'as juste qu'a faire une manipulation de Date et Time...

Est-ce cela que tu souhaites (Format d'enregistrement ?)

A+
Exploreur

cs_houp · Answer

Je récupere la date et l'heure avec ces instuctions:
     Text3.Text = Format$(Date, "dddd dd mmmm yyyy")
    Text3.Text = UCase(Left(Text3.Text, 1)) & Right(Text3, Len(Text3.Text) - 1)
    Text3.Text = Text3.Text & Format$(Time, " - hh:mm:ss")

Et je crée mon fichier avec ceci:
Open "C:
om du fichier" For Append As #1

Et enregistre des valeurs grace à Print #1, Text1.Text
Peut tu me montrer la marche à suivre, stp.


Merci

hvb · Answer

ou tu peux faire un bête Replace des "/" pour la date, et des ":" pour l'heure par un caractère valide pour un nom de fichier.

Hvb aka Batto
bato.ltd at gmail.com

cs_Exploreur · Answer

Salut Hvb,


C'est exactement ce que je dit dans mon post au-dessus du tiens !!


A+
Exploreur

cs_Exploreur · Answer

Salut Houp,


Voici :


' Variable pour le futur nom de ton fichier
 Dim VarNameFichier As String
 
' Récupère la date et heure systeme
 VarNameFichier = Date & "_" & Time


' Remplace le carractère "/" par "_" pour la date
 VarNameFichier = Replace(VarNameFichier, "/", "_")


' Remplace le carractère ":" par "_" pour les heures
 VarNameFichier = Replace(VarNameFichier, ":", "_")
 
' Auto N°
 Monfichier = FreeFile
 
' Création fichier
 Open "C:" & VarNameFichier & ".Txt" For Output As #Monfichier
 
' Ecriture dans le fichier
 Print #Monfichier, "Ceci est un test"
 
 Close #Monfichier

A+
Exploreur

jmfmarques · Answer

Bonjour,

Il me semble que ProperCase existe sous VB6 (que je n'ai pas)

Vérifie et change celà :

 Text3.Text = Format$(Date, "dddd dd mmmm yyyy")
 Text3.Text = UCase(Left(Text3.Text, 1)) & Right(Text3, Len(Text3.Text) - 1)

Que tu peux d'ailleurs également écrire ainsi , moins fastidieusement !

toto = Format$(Date, "dddd dd mmmm yyyy")
Mid(toto, 1, 1) = UCase(Left(toto, 1))
Text3.Text = toto

bricoyeye · Answer

Salut
Dim nomdefichier As String
nomdefichier = Format$(Date, "dddd_dd_mmmm_yyyy") + Format$(Time, "_hh_mm") + ".text"
Ce qui te donne:
vendredi_09_mars_2007_09_49.text

hvb · Answer

désolé Exploreur, ton message n'était pas encore affiché lorque j'ai repondu (il y a 1mn30 d'interval entre nos deux messages). Je suis en cours, et j'ouvre plusieurs fenetre sans m'en occuper. ^^

Hvb aka Batto
bato.ltd at gmail.com

cs_Exploreur · Answer

Non..non..ne soit pas désolé, c'est moi qui le suit car je n'ai pas regarder l'interval avant...lol..
Et puis cela arrive souvent des post croisés....

A+
Exploreur

jmfmarques · Answer

Bon (de retour des courses) :

 toto = Format$(Now, "dddd_dd_mmmm_yyyy_hh_mm_ss")
 Mid(toto, 1, 1) = UCase(Left(toto, 1))
 Text3.Text = toto

et c'est tout...

cs_houp · Answer

Merci à tous surtout à toi Exploreur.
Ton code marche
A+
Salut

Date et heure en nom de fichier.txt

12 réponses

Votre réponse

Discussions similaires