Discussion :

[sandball22]

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

[petit rabot]

Pour lire ton fichier .txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Open "C:\tutu.txt" For Input As #1     'Ouvre le fichier tutu.txt
    Do While Not EOF(1)                     ' Effectue la boucle jusqu'à la fin du fichier.
 
    Line Input #1, LineResult          'je lis la ligne
    Debug.Print LineResult             'affiche dans la fenêtre Exécution
    toto= LineResult                     'met le ligne dans la variable toto
 
    Loop                                     'boucle
    Close #1                                'ferme le fichier.

[zazaraignée]

Une astuce pour se simplifier la vie : l'utilisation du RichTextBox
Tu le trouvera dans les autre composants (Ctrl + T ouvre la bt de dialogue Composants) sous le nom Microsoft RichTextBox Control (SP6). SP6 pour Service Pack 6.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Load()
    ' charge le fichier txt dans un RichTextBox
    ' ce fichier se trouve dans le même répertoire que le programme
    RichTextBox1.LoadFile App.Path & "\toto.txt"
End Sub

[sandball22]

je viens tester le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 Open "C:\tutu.txt" For Input As #1     'Ouvre le fichier tutu.txt
    Do While Not EOF(1)                     ' Effectue la boucle jusqu'à la fin du fichier.
 
    Line Input #1, LineResult          'je lis la ligne
    Debug.Print LineResult             'affiche dans la fenêtre Exécution
    toto= LineResult                     'met le ligne dans la variable toto
 
    Loop                                     'boucle
    Close #1                                'ferme le fichier.

cela fonctionne bien .
par contre on lit toute la ligne. comment fait on pour pouvoir séparer les éléments de la ligne?

[DAUDET78]

en fonction de quel délimiteur? virgule ? espace?

[sandball22]

des espaces. mais je suis preneur pour les virgules

[ProgElecT]

Edit: 3 messages dans la même minute

Salut

Si cela te convient

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
Option Explicit
Dim nomfichier As String
Dim numfichier As Integer
 
Private Sub Form_Load()
nomfichier = "C:\PersoFrancis\AAAAA.txt" '********** A modifier ********
End Sub
 
Private Sub Command1_Click()
numfichier = FreeFile
Open nomfichier For Output As numfichier
'Print #numfichier, txtNom.Text, txtPrenom.Text, txtDateNaissance.Text
Write #numfichier, "Texte dans txtNom", "Texte dans txtPrenom", "Texte dans txtDateNaissance"
Close #numfichier
End Sub
 
Private Sub Command2_Click()
Dim LineResult As String, Decoupe() As String
numfichier = FreeFile
Open nomfichier For Input As numfichier
Line Input #numfichier, LineResult
Close #numfichier
Decoupe = Split(LineResult, ",")
txtNom.Text = Replace(Decoupe(0), Chr(34), "")
txtPrenom.Text = Replace(Decoupe(1), Chr(34), "")
txtDateNaissance.Text = Replace(Decoupe(2), Chr(34), "")
End Sub

[sandball22]

je n'ai pas trop compris la procédure pour la commande 1.
Elle sert à quoi? a remplir le fichier?

le code sous click2 ne fonctionne pas, j'ai des erreurs.
en faite, j'ai que la première ligne qui s'affiche pas les suivantes.