Date et heure en nom de fichier.txt [Résolu]

cs_houp
Messages postés
7
Date d'inscription
mercredi 7 mars 2007
Dernière intervention
16 avril 2007
- 9 mars 2007 à 08:52 - Dernière réponse : cs_houp
Messages postés
7
Date d'inscription
mercredi 7 mars 2007
Dernière intervention
16 avril 2007
- 9 mars 2007 à 11:00
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.
Afficher la suite 

Votre réponse

12 réponses

Meilleure réponse
cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 9 mars 2007 à 09:28
3
Merci
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

Merci cs_Exploreur 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 9 mars 2007 à 09:07
0
Merci
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
Commenter la réponse de cs_Exploreur
cs_houp
Messages postés
7
Date d'inscription
mercredi 7 mars 2007
Dernière intervention
16 avril 2007
- 9 mars 2007 à 09:13
0
Merci
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:\nom du fichier" For Append As #1

Et enregistre des valeurs grace à Print #1, Text1.Text
Peut tu me montrer la marche à suivre, stp.


Merci
Commenter la réponse de cs_houp
hvb
Messages postés
961
Date d'inscription
vendredi 25 octobre 2002
Dernière intervention
27 janvier 2009
- 9 mars 2007 à 09:30
0
Merci
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
Commenter la réponse de hvb
cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 9 mars 2007 à 09:40
0
Merci
Salut Hvb,


C'est exactement ce que je dit dans mon post au-dessus du tiens !!


A+
Exploreur


 
Commenter la réponse de cs_Exploreur
cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 9 mars 2007 à 09:41
0
Merci
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


 
Commenter la réponse de cs_Exploreur
jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Dernière intervention
22 août 2014
- 9 mars 2007 à 09:44
0
Merci
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
Commenter la réponse de jmfmarques
bricoyeye
Messages postés
326
Date d'inscription
vendredi 15 avril 2005
Dernière intervention
29 avril 2008
- 9 mars 2007 à 09:49
0
Merci
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
Commenter la réponse de bricoyeye
hvb
Messages postés
961
Date d'inscription
vendredi 25 octobre 2002
Dernière intervention
27 janvier 2009
- 9 mars 2007 à 09:56
0
Merci
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
Commenter la réponse de hvb
cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 9 mars 2007 à 09:59
0
Merci
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
Commenter la réponse de cs_Exploreur
jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Dernière intervention
22 août 2014
- 9 mars 2007 à 10:41
0
Merci
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...
Commenter la réponse de jmfmarques
cs_houp
Messages postés
7
Date d'inscription
mercredi 7 mars 2007
Dernière intervention
16 avril 2007
- 9 mars 2007 à 11:00
0
Merci
Merci à tous surtout à toi Exploreur.
Ton code marche
A+
Salut
Commenter la réponse de cs_houp

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.