Discussion :

[Dendrite]

Bonjour
Dans le cadre de mes meilleurs scores de mon jeu de Yam's, me reste un dernier bug :

Cette procédure me permet de sauvegarder mes meilleurs scores.
Mais, disons une fois sur 4, je me prends une exception dans la tête.

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
    'écrase l'ancien fichier texte avec la nouvelle collection
    Private Sub saveScores(ByVal nomJeu As String)
        Dim ecraseFlux As StreamWriter
        Dim monJoueur As Joueur
        If nomJeu = "bestYams.txt" Then
            ecraseFlux = File.CreateText(nomJeu)
            For Each monJoueur In joueursYams
                ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
            Next
            ecraseFlux.Close()
        ElseIf nomJeu = "bestYahtzee.txt" Then
            ecraseFlux = File.CreateText(nomJeu)
            For Each monJoueur In joueursYahtzee
                ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
            Next
            ecraseFlux.Close()
        End If
 
    End Sub

L'exception est la suivante...

Le processus ne peut pas accéder au fichier 'C:\Documents and Settings\Sylvie\Mes documents\Visual Studio 2008\Projects\yams\yams\bin\Debug\bestYahtzee.txt', car il est en cours d'utilisation par un autre processus.

et correspond à la ligne

Code :

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

ecraseFlux=File.CreateText(nomJeu)

Merci d'avance de vos lumières...
Je voulais écraser le fichier texte avec le nouveau, il me semblait pourtant avoir bien fermé le fichier que j'ouvrais en mode lecture auparavant, avant de le détruire... Je ne comprends pas...

[yonpo]

Salut,

Essaye en instanciant la classe StreamWriter avec New.

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
 
'écrase l'ancien fichier texte avec la nouvelle collection
    Private Sub saveScores(ByVal nomJeu As String)
 
        Dim monJoueur As Joueur
        If nomJeu = "bestYams.txt" Then
            Dim ecraseFlux As New StreamWriter(nomJeu)
            For Each monJoueur In joueursYams
                ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
            Next
            ecraseFlux.Close()
        ElseIf nomJeu = "bestYahtzee.txt" Then
            Dim ecraseFlux As New StreamWriter(nomJeu)
            For Each monJoueur In joueursYahtzee
                ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
            Next
            ecraseFlux.Close()
        End If
 
    End Sub

[mactwist69]

Y'a un petit truc qui m'arrivais avec ce genre d'objet qu'il faut "absolument" fermer,

C'est quand il y a une exception... A ce moment le code ne passe plus dans le Close().

C'est pourquoi je conseil de faire:

Code :

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

1
2
3
4
5
6
7
Try
 
    'TonCode
 
Catch
     MonObjet.Close()
End Try

Tu n'as pas l'air d'utiliser de try catch pour le moment... Dans tous les cas si c'est bien une exception qui t'arrive, je te conseil également de te les faire afficher:
Deboguer->Exception->Cocher les 3 premier checkboxs

Du coup quand il y a une exception (même mineur), il s'arrête dessus.

[Dendrite]

Merci de vos réponses.
J'ai fait un mix, puis testé, mais ça ne marche pas... Ni séparément, ni ensemble. Ca continue à m'envoyer la même exception plus souvent qu'à son tour.

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
    'écrase l'ancien fichier texte avec la nouvelle collection
    Private Sub saveScores(ByVal nomJeu As String)
 
        Dim monJoueur As Joueur
        If nomJeu = "bestYams.txt" Then
            Dim ecraseFlux As New StreamWriter(nomJeu)
            Try
                For Each monJoueur In joueursYams
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
            Catch
                ecraseFlux.Close()
            End Try
        ElseIf nomJeu = "bestYahtzee.txt" Then
            Dim ecraseFlux As New StreamWriter(nomJeu)
            Try
                For Each monJoueur In joueursYahtzee
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
            Catch
                ecraseFlux.Close()
            End Try
        End If
 
    End Sub

Ah pour info, je vous mets le code de la fonction de lecture du fichier qui se déroule avant :
Dois-je également sécuriser avec un try and catch ?

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
   'ouvre le fichier texte et construit la collection de x joueurs en fonction du jeu
    Private Sub chargeScores(ByVal nomJeu As String)
 
        Dim litFlux As New StreamReader(nomJeu)
        Dim ligne As String
        Dim elem() As String
        File.OpenRead(nomJeu)
 
        Do Until litFlux.Peek = -1
            Dim monJoueur As New Joueur
            ligne = litFlux.ReadLine()
            elem = Split(ligne, ";")
            monJoueur.Score = elem(0)
            monJoueur.Pseudo = elem(1)
            If nomJeu = "bestYams.txt" Then
                joueursYams.Add(monJoueur)
            Else if nomJeu = "bestYahtzee.txt" then
                joueursYahtzee.Add(monJoueur)
            End If
 
        Loop
        litFlux.Close()
    End Sub

[cinemania]

et les clauses Using dans le code ...

l'intéret de la clause using c'est qu'on instancie l'objet quand on déclare la clause, puis celui ci reste instancié pendant tout le bloc qui suit, mais dès qu'on sort du bloc using, et ce quelqu'en soit la raison... (return, exception...) l'objet est libéré.
C'est une autre façon d'appréhender la programmation propre sans pour autant faire des bloc de try catch gros comme des usines à gaz et imbriqués.

De façon général il est conseillé d'utiliser ces clauses sur tout objet implantant l'interface IDisposable, surtout quand l'objet en question manipule des ressources non managées.

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
 
    'écrase l'ancien fichier texte avec la nouvelle collection
    Private Sub saveScores(ByVal nomJeu As String)
 
        Dim monJoueur As Joueur
 
 
        If nomJeu = "bestYams.txt" Then
            Using ecraseFlux As New StreamWriter(nomJeu)
 
                For Each monJoueur In joueursYams
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
 
            End Using
        ElseIf nomJeu = "bestYahtzee.txt" Then
            Using ecraseFlux As New StreamWriter(nomJeu)
                For Each monJoueur In joueursYahtzee
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
            End Using
        End If
 
    End Sub

En fait cette écriture n'empêche pas l'exception, et dans le cas où celle-ci serait catché à l'étage inférieur dans la pile d'exécution, on s'assure que l'objet instancié est toujours libéré en appelant automatiquement son membre Dispose() qui sur un StreamWriter en plus de fermer le fichier, libère la ressource système sous-jacente.

Pour ton problème il peut y avoir 2 cas qui produise cela. Soit ton système n'est pas heureux parce que la ressource sous jacente n'a pas été précédemment libérée (fermée ne signifie pas libérée), soit parce que tu as plusieurs threads qui se parasites.

En regardant ta fonction de lecture j'ai vu quelque chose qui me fait sauter au plafond aussi au passage !!!

Code :

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

1
2
3
4
5
 
        Dim litFlux As New StreamReader(nomJeu)
        Dim ligne As String
        Dim elem() As String
        File.OpenRead(nomJeu)

[mactwist69]

Merci de vos réponses.
J'ai fait un mix, puis testé, mais ça ne marche pas... Ni séparément, ni ensemble. Ca continue à m'envoyer la même exception plus souvent qu'à son tour.

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
    'écrase l'ancien fichier texte avec la nouvelle collection
    Private Sub saveScores(ByVal nomJeu As String)
 
        Dim monJoueur As Joueur
        If nomJeu = "bestYams.txt" Then
            Dim ecraseFlux As New StreamWriter(nomJeu)
            Try
                For Each monJoueur In joueursYams
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
            Catch
                ecraseFlux.Close()
            End Try
        ElseIf nomJeu = "bestYahtzee.txt" Then
            Dim ecraseFlux As New StreamWriter(nomJeu)
            Try
                For Each monJoueur In joueursYahtzee
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
            Catch
                ecraseFlux.Close()
            End Try
        End If
 
    End Sub

Ah pour info, je vous mets le code de la fonction de lecture du fichier qui se déroule avant :
Dois-je également sécuriser avec un try and catch ?

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
   'ouvre le fichier texte et construit la collection de x joueurs en fonction du jeu
    Private Sub chargeScores(ByVal nomJeu As String)
 
        Dim litFlux As New StreamReader(nomJeu)
        Dim ligne As String
        Dim elem() As String
        File.OpenRead(nomJeu)
 
        Do Until litFlux.Peek = -1
            Dim monJoueur As New Joueur
            ligne = litFlux.ReadLine()
            elem = Split(ligne, ";")
            monJoueur.Score = elem(0)
            monJoueur.Pseudo = elem(1)
            If nomJeu = "bestYams.txt" Then
                joueursYams.Add(monJoueur)
            Else if nomJeu = "bestYahtzee.txt" then
                joueursYahtzee.Add(monJoueur)
            End If
 
        Loop
        litFlux.Close()
    End Sub

Heu... C'est pas tout à fait ce que je voulais dire...

Parce que la d'après ce code il n'arrivera pas a fermer le fichier a moins qu'il y ai une exception.... L'idée (a la lecture comme a l'écriture):

Code :

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

1
2
3
4
5
6
7
8
9
Try
 
   MonFichier.open()
   'autrecode
   MonFichier.Close()
 
Catch
   MonFichier.Close()
EndTry

Comme ca si il y a une erreur dans: 'autrecode, il fermera le fichier dans le catch.... si il n'y a pas d'erreur, il le fermera normalement.

Car si il n'y a pas d'exception, il ne rentre pas dans le catch.

[Sehnsucht]

@mactwist69

Finally c'est pas mal non plus

Code :

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

1
2
3
4
5
6
7
8
9
 
Try
   MonFichier.Open()
   'autrecode
Catch ex As Exception
   'gestion erreur
Finally
    MonFichier.Close()
End Try

même si dans ce cas je recommanderais plutôt le Using comme cinemania...

Cordialement !

[mactwist69]

Oui, le finally est mieux adapter pour ce cas... je souhaitais simplement remettre mon conseil dans le bon ordre.

Je connaissais pas l'utilité du Using comme cela (libéré l'espace)... Mais c'est vrai que j'ai l'habitude d'essayer de gérer les erreurs...

[Dendrite]

A cinémania

Pour ton problème il peut y avoir 2 cas qui produise cela. Soit ton système n'est pas heureux parce que la ressource sous jacente n'a pas été précédemment libérée (fermée ne signifie pas libérée), soit parce que tu as plusieurs threads qui se parasites.

et quel est le code pour libérer ?

En regardant ta fonction de lecture j'ai vu quelque chose qui me fait sauter au plafond aussi au passage !!!

Code :

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

1
2
3
4
5
 
        Dim litFlux As New StreamReader(nomJeu)
        Dim ligne As String
        Dim elem() As String
        File.OpenRead(nomJeu)

Peux-tu me dire ce qui est aberrant ?

J'ai pris ces codes dans divers tutos, en essayant de les adapter à ma problématique, ce qui explique encore une fois leurs côtés laborieux... Je n'aurais jamais pensé qu'une sauvegarde de dix noms sur deux fichiers texte puisse être à ce point laborieuse en VB.

Vraiment, ce projet ne m'a pas rendu vb.net très sympathique. La simplicité semble proscrite ?

J'ai fait un peu de PHP, de C, de java... j'ai toujours trouvé une certaine cohérence... Tandis que là... C'est une usine à gaz. M'enfin, ce n'est pas le sujet du fil, et je manque sans doute de recul...

[Bluedeep]

Peux-tu me dire ce qui est aberrant ?

Ouvrir un StreamReader puis un Stream via un File.OpenRead.

Aucun interêt d'ouvrir le même fichier deux fois avec deux méthodes différentes.

[Dendrite]

Et du coup quel est le bon code ? (j'ai quand même trouvé ça dans un tuto... )

C'est sans doute l'origine de mon conflit.

[yonpo]

j'ai quand même trouvé ça dans un tuto...

Si tu es perdu regarde ici, c'est très bien expliqué (comme tout le cours au passage).

Comme sous entendu dans mon premier poste, il y a deux méthodes pour utiliser les "Stream": soit en instanciant avec la classe StreamWriter et avec New, ou soit avec la Classe File.

[Dendrite]

Doh, c'était bien ça l'erreur.
Je n'avais pas compris que les deux classes s'excluaient, je croyais qu'elles se complétaient.
A l'arrivée, trop de béquilles m'empêchaient de marcher.

Merci bien pour toutes vos réponses.

[Dendrite]

Une dernière question tout de même.
J'ai repris finalement le code proposé par cinemania.
C'est un oubli de ne pas avoir mis ecraseFlux.close() avant la fin de chaque using, ou bien ça ne s'emploie pas dans ce contexte ? Pardon hein, c'est pas encore limpide pour moi.

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
 
    'écrase l'ancien fichier texte avec la nouvelle collection
    Private Sub saveScores(ByVal nomJeu As String)
 
        Dim monJoueur As Joueur
 
 
        If nomJeu = "bestYams.txt" Then
            Using ecraseFlux As New StreamWriter(nomJeu)
 
                For Each monJoueur In joueursYams
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
 
            End Using
        ElseIf nomJeu = "bestYahtzee.txt" Then
            Using ecraseFlux As New StreamWriter(nomJeu)
                For Each monJoueur In joueursYahtzee
                    ecraseFlux.WriteLine(monJoueur.Score & ";" & monJoueur.Pseudo)
                Next
            End Using
        End If
 
    End Sub

[yonpo]

l'intéret de la clause using c'est qu'on instancie l'objet quand on déclare la clause, puis celui ci reste instancié pendant tout le bloc qui suit, mais dès qu'on sort du bloc using, et ce quelqu'en soit la raison... (return, exception...) l'objet est libéré.

D'après ce qui est expliqué, ce n'est pas un oublie.

[Dendrite]

Merci. Je fais un peu trop de choses à la fois en ce moment, je vous fais répéter, pardon...