[VB.NET]exception génèrée:"cannot read from a closed text reader"

**zouhib** · 31/05/2006, 14h23

salut tout le monde.
(VB 2005 express edition)
mon souci c'est que lorsque j'execute mon application qui au début lit un fichier 'texte' (.dbc) puis ecrit dans un autre fichier texte (.txt), une exception est générée :cannot read from a closed text reader.
quelqu'un a une solution ?

**bossun** · 31/05/2006, 14h37

tu ferme ton stream trop tot.....

met un bout de code pour voir..

**zouhib** · 31/05/2006, 15h08

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
45
46
47
 
    Dim SW As IO.StreamWriter = File.CreateText("C:\user\U256265\Visual Studio 2005\scarv06.txt")
    Dim SR As StreamReader = File.OpenText("C:\user\U256265\Visual Studio 2005\WindowsApplication1\F2005.dbc")
    Public Function lecture(ByVal fichier As String)
        Do
            ligne = SR.ReadLine()
            SR.Close()
        Loop Until (str = ligne.IndexOf("BO_" & ID))
        'Call oDecodage.decoder(tempRxCanMsg)
 
        If ID = 256 Then
 
        End If
        Return ID
    End Function
 
    Sub ecritureFichier(ByVal fichier As String)
Try
 SW.WriteLine("")
            SW.WriteLine("Private Function findData(ByVal buffer As Byte, ByVal i0 As Integer, ByVal len As Integer) As Integer")
            SW.WriteLine("Dim myBV As New BitVector32(0)")
            SW.WriteLine("Dim mySect1 As BitVector32.Section = BitVector32.CreateSection(255)")
            SW.WriteLine("myBV(mySect1) = Buffer ")
            SW.WriteLine("Dim mySectData As BitVector32.Section")
                       SW.WriteLine("Return myBV(mySectData)")
            SW.WriteLine(" End Function")
            SW.WriteLine("")
            lecture("C:\user\U256265\Visual Studio 2005\WindowsApplication1\F2005.dbc")
 
            If ID = 256 Then            ' réception trame 100h périodique (256)
.... ' un peu longue cette procédure !!!
' ensuite là j'appelle cs 2 fonctions dans form1_load
Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            ecritureFichier("C:\user\U256265\Visual Studio 2005\scarv06.txt")
            swf1.Width = 800
            swf1.Height = 600
            swf1.Movie = Application.StartupPath & "\scar.swf"
            Console.WriteLine(Application.StartupPath)
            oCanusb = New Canusb
            oCanusb.CanListen()
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Exclamation, "Chargement")
        End Try
    End Sub
' et c'est là que sa marche pas !!!!

c'est lors de la lecture que sa marche pas ! je comprend pas pourquoi.

**zouhib** · 31/05/2006, 15h09

à cause du SR.close() non (stream reader) ???

**bossun** · 31/05/2006, 15h51

Envoyé par zouhib

à cause du SR.close() non (stream reader) ???

oui cêst à cause de sR.Close()

dès que tu lis la première ligne tu ferme ton flux... or après il n'est jamais ouvert..

ton SR.Close doit se trouve après la boucle....

place-le après

Code :

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

Loop Until (str = ligne.IndexOf("BO_" & ID))

**zouhib** · 31/05/2006, 15h56

wé genial ! j'ai une autre exception !!!!

"Object reference not set to an instance of an object" sa je crois c'est pas dû à SR.close() !!!

**zouhib** · 31/05/2006, 16h34

une idée sur cette exception?????

**behe** · 31/05/2006, 16h40

salut,
essaie de suivre pas à pas ton code lors de l execution, tu verras où ça plante
Sinon à première vue tu instancie bien swf1?

**zouhib** · 31/05/2006, 16h56

oui il est bien instancié swf1 sinon sa m'aurait généré une erreur.
j'ai fais un débogage à la main classique mais je vois pas toujours ou sa cloche!

**zouhib** · 31/05/2006, 17h39

je viens de debuger et j'ai constaté que c'est la fonction lesture qu'il aime pas lorsque je l'appelle dans la procédure ecriture (cf code précédent) par contre je vois pas ce qui va pas, est ce lors de l'appel de cette fonction ou est ce que c'est à cause du corps de cette fonction ! mystère......

**zouhib** · 01/06/2006, 09h11

toujours pas de solutions??!!!!!!!!

**bossun** · 01/06/2006, 09h47

tu as des problems au niveau conception...

innutile de déclarer ça en public...

Code :

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

Dim SR As StreamReader = File.OpenText("C:\user\U256265\Visual Studio 2005\WindowsApplication1\F2005.dbc")

déclare le dans ta fonction lecture....

Code :

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

dim sr as stream = file.opentext(fichier)

**zouhib** · 01/06/2006, 10h30

sa change rien j'ai toujours exception....

**zouhib** · 06/06/2006, 11h39

Salut tout le monde !
J'ai toujours cette exception générée !! :
Object reference not set to an instance of an object.

et je comprend pas pourquoi!
J'ai changé le code précédent, le nouveau :

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
 Public Sub lecture(ByVal fichier As String)
        Do
            ligne = SR.ReadLine()
        Loop Until (str = ligne.IndexOf("BO_"))
        ID = Func1(ligne)
        SW.WriteLine(ID)
        SW.WriteLine("ID_received  =")
        'If str = ligne.IndexOf("BO_") Then
        chaine = ligne2.IndexOf("SG_")  'l'exception est générée sur cette ligne
        For Each ligne2 In chaine
            ligne2 = SR.ReadLine()
        Next ligne2
        donnée = Func2(ligne2)
        SW.WriteLine(donnée)
        'End If
        SR.Close()
        SW.Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Try
        lecture("C:\user\U256265\Visual Studio 2005\F2005.dbc") 'et la même exception est générée aussi ici.
        'Catch ex As Exception
        '    MsgBox(ex.ToString, MsgBoxStyle.Exclamation)
        'End Try
    End Sub

**toniolol** · 06/06/2006, 11h46

Envoyé par zouhib

Code :

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

chaine = ligne2.IndexOf("SG_")  'l'exception est générée sur cette ligne

Salut,
il vient d'où ce ligne2 ?
Je ne vois pas de déclaration locale ou d'assignation.

**zouhib** · 06/06/2006, 11h48

tout est bien déclaré !!

Code :

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

1
2
3
4
5
6
7
8
   Dim ligne As String
    Dim ligne2 As String
    Dim SW As IO.StreamWriter = File.CreateText("C:\user\U256265\Visual Studio 2005\scarv06.txt")
    Dim SR As StreamReader = File.OpenText("C:\user\U256265\Visual Studio 2005\F2005.dbc")
    Dim chaine As String
    Dim str As String
    Dim ID As Integer
    Dim donnée As String

**toniolol** · 06/06/2006, 11h56

Désolé d'insister mais,
ok pour la déclaration mais où est l'assignation dans ligne2 ?
Car d'après le code que l'on voit ligne2=nothing.

**zouhib** · 06/06/2006, 12h02

il n'y a pas d'assignation et c'est peut être sa le problème mais je vois pas quesque je pourrai lui assigner !

**zouhib** · 06/06/2006, 12h05

comme c'est indiqué sur le code, ligne2 récupère les lignes lues sur le fichier texte.

**Nico-xs** · 06/06/2006, 12h17

Code :

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

1
2
3
4
5
 
chaine = ligne2.IndexOf("SG_")  'l'exception est générée sur cette ligne
For Each ligne2 In chaine
     ligne2 = SR.ReadLine()
Next ligne2