Discussion :

[PATDRO]

Bonjour,

dans la cadre d'un cours par correspondance, il est indiqué le développement ci-dessous :

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
 
Module Répertoire
 
    Sub Main()
        Dim Nom, Prénom, Tel
        Nom = "Drollet"
        Prénom = "Patrice"
        Tel = "0321512998"
 
        ajoute(Nom, Prénom, Tel)
 
 
    End Sub
 
 
    Sub ajoute(ByVal Nom As String, ByVal Prénom As String, ByVal Tel As String)
        If Not existe(Nom, Prénom) Then
            Dim FichierRepertoire = FreeFile()
            FileOpen(FichierRepertoire, "C:\Repertoire.txt", OpenMode.Append)
            WriteLine(FichierRepertoire, Nom, Prénom, Tel)
            FileClose(FichierRepertoire)
        End If
    End Sub
 
End Module

Le code erreur de l'instruction If Not Existe indique ceci :

Erreur 1 Le nom 'existe' n'est pas déclaré. C:\Users\drollet-p\Documents\Visual Studio 2008\Projects\Séquence 5\Séquence 5\Répertoire.vb 16 16 Séquence 5

Est-ce une erreur au niveau de cette instruction?

[clementmarcotte]

Bonjour,

Bonjour,


Est-ce une erreur au niveau de cette instruction?

Réponse brève : OUI

Pas terrible comme enseignant.

Essaie avec :

Code :

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

If Not exists(Nom, Prénom) Then

[wallace1]

Bonsoir,

@Clementmarcotte : absolument pas d'accord avec toi....désolé, je ne comprends pas à quoi tu fais référence avec "exists()" o_O !!

@PATDRO :

Ce que ton prof voulais te faire prendre conscience c'est qu'avant de vouloir écrire dans un fichier séquentiel on vérifie que l'entrée n'est pas déjà présente !
Et pour ce faire il t'invite à réfléchir afin de mettre en place une fonction "existe" avec 2 arguments et une valeur de retour de type booléen qui indique si le nom et le prénom existe déjà dans le fichier :

Voilà à quoi ça pourrait ressembler :

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
41
42
43
44
 
Module Répertoire
 
    Sub Main()
        Dim Nom, Prénom, Tel
        Nom = "Drollet"
        Prénom = "Patrice"
        Tel = "0321512998"
 
        ajoute(Nom, Prénom, Tel)
 
    End Sub
 
 
    Sub ajoute(ByVal Nom As String, ByVal Prénom As String, ByVal Tel As String)
        If Not existe(Nom, Prénom) Then
            Dim FichierRepertoire = FreeFile()
            FileOpen(FichierRepertoire, "C:\Repertoire.txt", OpenMode.Append)
            WriteLine(FichierRepertoire, Nom, Prénom, Tel)
            FileClose(FichierRepertoire)
        Else
            MsgBox("Le nom existe déjà dans le fichier !!")
        End If
    End Sub
 
    Function existe(ByVal Nom As String, ByVal Prénom As String) As Boolean
        Dim FichierRepertoire = FreeFile()
        FileOpen(FichierRepertoire, "C:\Repertoire.txt", OpenMode.Input)
        Dim value = String.Empty
        Dim found As Boolean
 
        While Not EOF(FichierRepertoire)
            If LineInput(FichierRepertoire).StartsWith(Chr(34) & Nom & Chr(34) & "," & Chr(34) & Prénom & Chr(34)) Then
                found = True
                Exit While
            End If
        End While
 
        FileClose(FichierRepertoire)
 
        Return found
    End Function
 
End Module

Perso je suis très attaché aux classes StreamReader et Streamwriter pour travailler avec les fichiers mais il existe bien sur de multiples façons de procéder.

A+

[clementmarcotte]

Bonjour,

Bonsoir,

@Clementmarcotte : absolument pas d'accord avec toi....désolé, je ne comprends pas à quoi tu fais référence avec "exists()" o_O !!

A+

Mea culpa, mea maxima culpa.

Pour paraphraser La Sagouine (une Acadienne pure-laine) : je n'avions pas vérifié s'il y avions une fonction Existe()

[PATDRO]

Bonsoir,

@Clementmarcotte : absolument pas d'accord avec toi....désolé, je ne comprends pas à quoi tu fais référence avec "exists()" o_O !!

@PATDRO :

Ce que ton prof voulais te faire prendre conscience c'est qu'avant de vouloir écrire dans un fichier séquentiel on vérifie que l'entrée n'est pas déjà présente !
Et pour ce faire il t'invite à réfléchir afin de mettre en place une fonction "existe" avec 2 arguments et une valeur de retour de type booléen qui indique si le nom et le prénom existe déjà dans le fichier :

Voilà à quoi ça pourrait ressembler :

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
41
42
43
44
 
Module Répertoire
 
    Sub Main()
        Dim Nom, Prénom, Tel
        Nom = "Drollet"
        Prénom = "Patrice"
        Tel = "0321512998"
 
        ajoute(Nom, Prénom, Tel)
 
    End Sub
 
 
    Sub ajoute(ByVal Nom As String, ByVal Prénom As String, ByVal Tel As String)
        If Not existe(Nom, Prénom) Then
            Dim FichierRepertoire = FreeFile()
            FileOpen(FichierRepertoire, "C:\Repertoire.txt", OpenMode.Append)
            WriteLine(FichierRepertoire, Nom, Prénom, Tel)
            FileClose(FichierRepertoire)
        Else
            MsgBox("Le nom existe déjà dans le fichier !!")
        End If
    End Sub
 
    Function existe(ByVal Nom As String, ByVal Prénom As String) As Boolean
        Dim FichierRepertoire = FreeFile()
        FileOpen(FichierRepertoire, "C:\Repertoire.txt", OpenMode.Input)
        Dim value = String.Empty
        Dim found As Boolean
 
        While Not EOF(FichierRepertoire)
            If LineInput(FichierRepertoire).StartsWith(Chr(34) & Nom & Chr(34) & "," & Chr(34) & Prénom & Chr(34)) Then
                found = True
                Exit While
            End If
        End While
 
        FileClose(FichierRepertoire)
 
        Return found
    End Function
 
End Module

Perso je suis très attaché aux classes StreamReader et Streamwriter pour travailler avec les fichiers mais il existe bien sur de multiples façons de procéder.

A+

Merci de votre retour