Fichiers séquentiels et fonction existe
Bonjour,
Le cours de la formation que je suis me donne le code suivant pour expliquer l'utilisation de la fonction Existe (seulement la partie "Function", j'ai ajouté le reste) :
Code:
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
| Sub main()
Dim Nom, Prenom As String
Nom = InputBox("Entrer un Nom :")
Prenom = InputBox("Entrer un Prenom :")
MsgBox(existe(Nom, Prenom))
End Sub
Function existe(ByVal Nom As String, ByVal prenom As String) As Boolean
If Dir(NomFichier) = "" Then
existe = False
Else
Dim FichierRepertoire As Integer
Dim NomLu, PrenomLu, TelLu As String, trouvé As Boolean
FichierRepertoire = FreeFile()
FileOpen(FichierRepertoire, NomFichier, OpenMode.Input)
trouvé = False
While Not EOF(FichierRepertoire) And Not trouvé
Input(FichierRepertoire, NomLu)
Input(FichierRepertoire, PrenomLu)
Input(FichierRepertoire, TelLu)
If NomLu = Nom And PrenomLu = prenom Then
trouvé = True
End If
End While
FileClose(FichierRepertoire)
existe = trouvé
End If
End Function
End Module |
Ce que je ne comprends pas c'est qu'au niveau de la ligne :
Code:
Input(FichierRepertoire, TelLu)
J'ai le message suivant qui apparait :
L'exception EOF n'a pas été générée.
Par ailleurs les 3 lignes suivantes :
Code:
1
2
3
| Input(FichierRepertoire, NomLu)
Input(FichierRepertoire, PrenomLu)
Input(FichierRepertoire, TelLu) |
Les paramètres NomLu, PrenomLu, TelLu sont soulignés en vert et le message suivant m'indique que : les variables sont passées par référence avant qu'une valeur ne leur ait été assignée.
Pourtant j'avais l'impression de les avoir défini plus haut au niveau de la ligne :
Code:
Dim NomLu, PrenomLu, TelLu As String, trouvé As Boolean
Pouvez-vous m'aider ?
Merci par avance
Bonne journée !
