écrire et allé chercher des infos ds un fichier

Question

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.

TFlorian · Answer

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.

écrire et allé chercher des infos ds un fichier

1 réponse

Discussions similaires