Discussion :

[intruder]

Bonjour
je suis débutant, je désire créer des applications pour gérer des fichiers textes.
j'ai la version vb6 initiation.

j'ai créé un prototype qui doit normalement ouvrir un fichier, le lire, et afficher
les champs d'enregistrement dans des zones de textes.

mes zones de textes restent désespérément vides
ou est mon erreur ?
merci pour votre aide
voici mon prototype:

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
Public num As Integer
 
Private Type tenrg
    nom As String * 20
    prenom As String * 30
    tel As String * 15
End Type
Dim enrg As tenrg
 
Private Sub afficher_Click()
 
Open "c:\fitest.txt" For Random As #2 Len = Len(enrg)
For i = 1 To EOF(2)
    Get #2, num, enrg
    zonetextnom.Text = enrg.nom
    zonetextprenom.Text = enrg.prenom
    zonetexttel.Text = enrg.tel
Next i
fin:
Close
End Sub
 
Private Sub quitter_Click()
End
End Sub

[SfJ5Rpw8]

Voir sur Get ...

Code :

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

1
2
 
Get #2, num, enrg

dans ton cas à priori tu n'utilise ta variable num que dans cette ligne d'ou ...num = toujour 0

[intruder]

merci bbil
pour m avoir mis sur la piste
en effet en inisialisant num à 1 et en l'incrementant, les enregistrements sont passés en revus.

il y avait d'autre petits problemes mais tout est reglé
merci à +