Bonjour, je voudrais lire le contenu d'un fichier et afficher les données dans des text box.
J'arrive à écrire dans un fichier via des text box.
voici mon code pour l'écriture des données dans le fichier:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40 Dim nomfichier As String Dim numfichier As Integer Private Sub CmdAfficher_Click() End Sub Private Sub cmdEnregistrer_Click() 'Dim nomfichier As String 'Dim numfichier As Integer 'nomfichier = InputBox("Donner le nom du fichier") 'numfichier = FreeFile 'Open "C:\" & nomfichier For Append As numfichier Print #numfichier, txtNom.Text, txtPrenom.Text, txtDateNaissance.Text 'Close #numfichier txtNom.Text = "" txtPrenom.Text = "" txtDateNaissance.Text = "" End Sub Private Sub CmdQuitter_Click() Close #numfichier End End Sub Private Sub Form_Load() nomfichier = InputBox("Donner le nom du fichier") numfichier = FreeFile Open "C:\" & nomfichier For Append As numfichier End Sub
Pour la lecture du fichier voici mon début de code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Dim nom As String Dim prenom As String Dim date_naissance As String 'nom = Input (numfichier) txtNom.Text = Input(numfichier, nom) End Sub Private Sub CmdQuitter_Click() End End Sub Private Sub Form_Load() End Sub
Pouvez-vous m'aider à ouvrir le fichier et récupérer les données??
Merci
Partager