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

Version imprimable

31/05/2006, 14h23
zouhib

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

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 ?
31/05/2006, 14h37
bossun

tu ferme ton stream trop tot.....

met un bout de code pour voir..

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

31/05/2006, 15h09
zouhib

à cause du SR.close() non (stream reader) ???
31/05/2006, 15h51
bossun

Citation:

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:

Loop Until (str = ligne.IndexOf("BO_" & ID))
31/05/2006, 15h56
zouhib

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() !!!
31/05/2006, 16h34
zouhib

une idée sur cette exception?????
31/05/2006, 16h40
behe

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?
31/05/2006, 16h56
zouhib

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!
31/05/2006, 17h39
zouhib

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......
01/06/2006, 09h11
zouhib

toujours pas de solutions??!!!!!!!!
01/06/2006, 09h47
bossun

tu as des problems au niveau conception...

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

Code:

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

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

Code:

dim sr as stream = file.opentext(fichier)
01/06/2006, 10h30
zouhib

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

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:

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

06/06/2006, 11h46
toniolol

Citation:

Envoyé par zouhib

Code:

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.

tout est bien déclaré !!

Code:

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

06/06/2006, 11h56
toniolol

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.
06/06/2006, 12h02
zouhib

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 !
06/06/2006, 12h05
zouhib

comme c'est indiqué sur le code, ligne2 récupère les lignes lues sur le fichier texte.
06/06/2006, 12h17
Nico-xs
Code:

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
Il les récupere dans la boucle For Each donc au moment où tu fais

Code:

chaine = ligne2.IndexOf("SG_")

ligne2 est égal à Nothing
06/06/2006, 12h24
zouhib

ok c bon merci