Discussion :

[PinkLady]

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 :

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
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 :

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

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 :

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

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 :

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

Dim NomLu, PrenomLu, TelLu As String, trouvé As Boolean

Pouvez-vous m'aider ?

Merci par avance
Bonne journée !

[Pol63]

ca ne ressemble pas à du code vb.net mais du code vb6

http://plasserre.developpez.com/cours/vb-net/
il y a un chapitre sur la gestion des fichiers avec les vraies classes à utiliser

"les variables sont passées par référence avant qu'une valeur ne leur ait été assignée."
ceci n'est qu'un avertissement pour te dire que as déclaré des variables, mais n'a rien mis dedans avant de les utiliser
si pour toi c'est normal ne pas en tenir compte
si tu veux retirer cet avertissement :

Code :

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

dim b as boolean = false

(...)

[PinkLady]

Merci pour ta réponse mais le truc c'est que l'algorithme ne tourne pas jusqu'au bout puisqu'au niveau :

Code :

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

Input(FichierRepertoire, TelLu)

On m'indique que "l'exception EOF n'a pas été générée"...

[PinkLady]

Je pense que ce n'est pas grand chose...
Mais j'aimerai comprendre, ce serait dommage d'envoyer un devoir en faisant du copier/coller...
Merci par avance !