écrire et allé chercher des infos ds un fichier

Signaler
Messages postés
96
Date d'inscription
mardi 3 juillet 2001
Statut
Membre
Dernière intervention
2 novembre 2006
-
Messages postés
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
-
je cherche à écrire des informations ds un fichier texte genre :
romain 15:52:23
etienne 15:53:23

et pvr ensuite allé chercher le prénom qui correspond à ma variable "prenom" et enregistrer l'heure qui lui correspond ds une variable "heure"
il se peut que je définisse l'heure par une fct timer ds ce cas ça me mettra l'heure en s depuis minuit ( pour dé raison de facilité de calcul)

mci.

1 réponse

Messages postés
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
3
Bonjour,

Bon...

c'est asser simple:

'pour enregistere les donnee :

Open "c:\base.txt" For Append As #1
Print #1, prenom, heure
Close #1

'pour recuperer l'information :

Open "c:\base.txt" For Input As #1
Do While Not EOF(1) ' Vérifie si la fin du fichier
' est atteinte.
Input #1, prenom, heure ' Lit les lignes de
' données.
Debug.Print "Le prenom est : " & prenom & " à " & heure ' Imprime dans la fenêtre
' Exécution.
Loop
Close #1 ' Ferme le fichier.

'apres il te suffit de fair une recherche en fonction du contenus de prenom
'par exe :

Recherche = "Toto" 'attention VB respecte la casse !!! : unilise ucase() pour t'en affranchire !

Open "c:\base.txt" For Input As #1
Do While Not EOF(1) ' Vérifie si la fin du fichier
' est atteinte.
Input #1, prenom, heure ' Lit les lignes de
' données.
Debug.Print "Le prenom est : " & prenom & " à " & heure ' Imprime dans la fenêtre
' Exécution.
If prenom = Recherche Then GoTo Suite 'si on a trouver qui on cherche alors quite la lecture du fichier
Loop
'Une petite getion dans la recherche
MsgBox "La recherche na pas donnee de resultat !", vbInformation
'on a pas touver de reponce on eface la derniere ligne lue
prenom = ""
heure = ""

Suite:

Close #1 ' Ferme le fichier.

voila ...

d'autres infos n'esite pas ;-)

TFlorian.
0