Streamwriter. Question sur la fermeture

Bonjour,

Je code actuellement un programme qui ajoute des lignes dans un fichier texte, mais si je prefererais faire plusieurs Monstreamreader.close() que un seul qui me bloque le fichier ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

' ici je déclare "l'ouverture" de mon streamwriter   Dim sw As StreamWriter = New StreamWriter(Application.StartupPath & "/fichier.txt")   'j'ecrit : sw.Write(ControlChars.CrLf & "DELETE FROM `table1` WHERE `table`. blabalbalbalbal   sw.Write(ControlChars.CrLf & "INSERT INTO `table` VALUES (BLBLABLABLA))     'je ferme sw.Close()

---

mais le soucis c'est que c'est dans une boucle, donc si le streamreader a été fermé, je ne peut plus réécrire dans le fichier ( même en remettant la ligne :

Dim sw As StreamWriter = New StreamWriter(Application.StartupPath & "/fichier.txt")

)

Comment puis-je faire ?

Ps : si je n'ai pas été clair ( ce qui est fort probable ), dites le, je ferais en sorte d'être plus compréhensible


Je vous remercie d'avance et espere qu'une ame charitable pourra se pencher sur mon probleme :lol:

Oui pour le coup c'est pas très clair pour moi 8O

Pourquoi pas fermer ton stream après la boucle ??

Code:

---

1 2 3 4 5 6

Dim sw as new StreamWriter(......) For i as integer = 0 to 10 ' tu boucles ici Next i   sw.close 'tu fermes une fois terminé

---

Oui, au début je fermais le streamwriter après la boucle, mais le soucis c'est que une fois la boucle achevée, le streamwriter se ferme ( logique :P )

et si je veux refaire l'action, impossible de "réouvrir" le streamwriter.

Un schéma simplifié permettra de mieux comprendre :

- je clique sur le bouton "Demarrer"
- ouverture du stream
- lecture, extraction et ecriture des données dans le fichier texte
- fermeture du stream
- Opération finie

- je clique sur le bouton "Demarrer"
- ouverture du stream ( je ne sais pas si elle se déroule correctement :aie: )
- lecture, extraction et plantage à l'écriture
- Opération foirée

je suis sûr que je planche sur un petit problème très stupide ( comme à chaque fois :) , mais bon ... ) :bug:

Tu parles de plantage à l'écriture, quelle est l'erreur exacte ?

justement, ce qui est bizarre c'est qu'il ne met rien ( même sans try .... catch ).

Il me quitte la fonction sans broncher ( il ne fais pas la suite de la procédure ).

En fait, ces lignes se trouvent dans un évènement webbrowser.documentcompleted, si ça peut servir

Donne nous ton code complet qu'on puisse tester car c'est pas possible, une fois le flux fermé tu peux le reouvrir sans pb...

là je ne suis pas chez moi, je mettrait le code en rentrant ...
en tout cas, je dois être a coté de la plaque parce que je ne connais pas véritablement de code pour "ouvrir" le flux, je déclare moi :p

j'ai essayé de faire un truc du genre :

sw.open() mais ça existe pas lol

Voila un exemple d'utilisation des flux ;

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub SaveFile(ByVal NomFichier As String, ByVal data As Byte()) Try Dim Stream As New IO.FileStream(NomFichier, IO.FileMode.Create, IO.FileAccess.Write) 'crée le fichier Stream.Write(data, 0, data.Length) 'ecris les données Stream.Close() 'ferme le flux Catch ex As Exception 'intercepte les erreurs MsgBox(ex.Message) End Try   End Sub

---

++

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 48 49 50 51 52

Private Sub WebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles WebBrowser1.DocumentComplete   Select Case travail   Case 25   'CODE TRES MOCHE QUE J'AI RECUP SUR LE NET Dim fs As System.IO.FileStream = System.IO.File.Open(Application.StartupPath & "/fichier.txt", _ System.IO.FileMode.Append, _ System.IO.FileAccess.Write)   Dim sw As New System.IO.StreamWriter(fs)   travail = 666   'Initialisation des valeurs : '...............     'Nombre de secondes depuis 1970 Dim vieux As Date = "01/01/1970 00:00:00" ligne.zeit = DateDiff(DateInterval.Second, vieux, DateTime.Now)   For i = 1 To 15   sw.Write(ControlChars.CrLf & "DELETE FROM `table` WHERE BLABLABLABLA")   Next     'CODE TRES LONG DONC COUPé MAIS RIEN D'UTILE A MON PROBLEME   sw.Write(ControlChars.CrLf & "INSERT INTO `table` VALUES BLABLABLABLBAL")     If debut < fin.Text Then debut = debut + 1 Timer2.Start()   Else historique("fin") travail = 666 Timer2.Stop() sw.Close() fs.Close()   end If     Case 666 Exit Select End Select

---

Voila, sinon, pour déclarer le streamwriter j'ai essayé ça :

Code:

---

Dim sw As StreamWriter = New StreamWriter(Application.StartupPath & "/fichier.txt")

---

Mais c'est pareil :/

Où est-ce que je rate quelque chose ?


EDIT : si je ferme le prog et le relance, ça fonctionne


_________________________________________________________________

EDIT2 :

Bon, finalement j'ai fait une SUB, et là ça marche impec, ça fait plus propre en plus !

Voici le codage, si quelqu'un est interessé :

Il suffit de l'appeler ainsi :
ecrire("Salut")

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ecrire(ByVal data) Dim fs As System.IO.FileStream = System.IO.File.Open(Application.StartupPath & "/test.txt", System.IO.FileMode.Append, System.IO.FileAccess.Write) Dim sw As New System.IO.StreamWriter(fs)   sw.Write(data)   sw.Close() fs.Close() End Sub

---

MERCI POUR TOUT : RESOLU :mrgreen:

Bah oui c'est ce que je t'avais dit !
Sinon dans ton code déclare le type de tes variables sinon tu va te planter !

++

ok, je vais lui dire que c'est du "string", c'est p't'être pour ça que lors d'une écriture trop long il a planté :)

Il faut coder juste en .NET !
Rajoute ces deux lignes tout en haut de ton code :

Code:

---

1 2	Option Strict on Option Explicit On

---

:king:

Hihi ça se voit tant que ça que je débute et code au bidouillage ? :oops:

J'ai activé l'option strict et l'explicite, ça m'a permis de remplacer lignes qui était interprétée comme absurde par visual studio

par contre au niveau de la fonction Ecrire, il n'a rien trouvé d'incohérent
par contre, quand je lance une grosse opération, il plante au bout d'un moment, avec une erreur d'exception ( que j'ai oublié de noter d'ailleurs ). il semblerai que ça se produit quand le fichier commence a gagner en taille ( 2.7 Mo au dernier plantage )

Citation:

---

Envoyé par edertef

Hihi ça se voit tant que ça que je débute et code au bidouillage ? :oops:

J'ai activé l'option strict et l'explicite, ça m'a permis de remplacer lignes qui était interprétée comme absurde par visual studio

---

Oui :) mais c'est pas un reproche j'etais comme toi avant ! :mouarf:

Citation:

---

Envoyé par edertef

par contre au niveau de la fonction Ecrire, il n'a rien trouvé d'incohérent
par contre, quand je lance une grosse opération, il plante au bout d'un moment, avec une erreur d'exception ( que j'ai oublié de noter d'ailleurs ). il semblerai que ça se produit quand le fichier commence a gagner en taille ( 2.7 Mo au dernier plantage )

---

Euhh explique plus en détail et donne l'erreur !

voila l'erreur

Citation:

---

onsultez la fin de ce message pour plus de détails sur l'appel du débogage
juste-à-temps (JIT) à la place de cette boîte de dialogue.

************** Texte de l'exception **************
System.AccessViolationException: Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée.
à System.Windows.Forms.UnsafeNativeMethods.CallWindowProc(IntPtr wndProc, IntPtr hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)
à System.Windows.Forms.NativeWindow.DefWndProc(Message& m)
à System.Windows.Forms.Control.DefWndProc(Message& m)
à System.Windows.Forms.Control.WndProc(Message& m)
à System.Windows.Forms.AxHost.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Assemblys chargés **************
mscorlib
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
Connexion au site
Version de l'assembly : 1.0.0.0
Version Win32 : 1.0.0.0
CodeBase : file:///C:/Documents%20and%20Settings/Administrateur/Mes%20documents/Visual%20Studio%202005/Projects/Webbrowser2REN/Webbrowser2REN/Webbrowser/Connexion%20au%20site%20WEBBROWSER/bin/Debug/Connexion%20au%20site.exe
----------------------------------------
Microsoft.VisualBasic
Version de l'assembly : 8.0.0.0
Version Win32 : 8.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Data
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_32/System.Data/2.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
AxInterop.SHDocVw
Version de l'assembly : 1.1.0.0
Version Win32 : 1.1.0.0
CodeBase : file:///C:/Documents%20and%20Settings/Administrateur/Mes%20documents/Visual%20Studio%202005/Projects/Webbrowser2REN/Webbrowser2REN/Webbrowser/Connexion%20au%20site%20WEBBROWSER/bin/Debug/AxInterop.SHDocVw.DLL
----------------------------------------
System.Windows.Forms.resources
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_fr_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------
Interop.SHDocVw
Version de l'assembly : 1.1.0.0
Version Win32 : 1.1.0.0
CodeBase : file:///C:/Documents%20and%20Settings/Administrateur/Mes%20documents/Visual%20Studio%202005/Projects/Webbrowser2REN/Webbrowser2REN/Webbrowser/Connexion%20au%20site%20WEBBROWSER/bin/Debug/Interop.SHDocVw.DLL
----------------------------------------
Accessibility
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/assembly/GAC_MSIL/Accessibility/2.0.0.0__b03f5f7f11d50a3a/Accessibility.dll
----------------------------------------
mscorlib.resources
Version de l'assembly : 2.0.0.0
Version Win32 : 2.0.50727.42 (RTM.050727-4200)
CodeBase : file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
Microsoft.mshtml
Version de l'assembly : 7.0.3300.0
Version Win32 : 7.0.3300.0
CodeBase : file:///C:/WINDOWS/assembly/GAC/Microsoft.mshtml/7.0.3300.0__b03f5f7f11d50a3a/Microsoft.mshtml.dll
----------------------------------------

************** Débogage JIT **************
Pour activer le débogage juste-à-temps (JIT), le fichier de configuration pour cette
application ou cet ordinateur (machine.config) doit avoir la valeur
jitDebugging définie dans la section system.windows.forms.
L'application doit également être compilée avec le débogage
activé.

Par exemple :

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

Lorsque le débogage juste-à-temps est activé, les exceptions non gérées
seront envoyées au débogueur JIT inscrit sur l'ordinateur
plutôt que d'être gérées par cette boîte de dialogue.

---

J'ai laissé tourner le prog pendant plus d'une heure il a fonctionné, là il viens de me faire l'erreur

ça semble aléatoire

Oulalal c'est ton programme en release qui ta donnée cette erreur ?

Tu devrais peut etre débogger ton programme en Debug pour chopper l'erreur avec des points d'arrets car la c'est pas le top pour faire un deboggage !

Sinon c'est vrai que cette erreur ne m'est jamais arrivée. Sur quel ligne de code apparait elle ?

Je ne suis pas sur mais à mon avis, il serait plus sage de créer ton stream Public , de lui donner le chemin de ton fichier à l'ouverture de ta form (vu que c'est toujours le meme fichier), et de simplement ecrire lorsque tu en as besoin, sans oublier de fermer le Stream lorsque tu quittes ta form.
Sinon essaye peut etre avec

Code:

---

sw.dispose

---

aprés la fermeture du close, ca peut aider. Tu peux aussi t'eviter de créer ton filestream en declarant comme ca

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

Public Logfile as string = nothing Public sw as StreamWriter= nothing ' ' lorsque le formulaire s'ouvre..   logfile as String = my.Application.Info.DirectoryPath & "\fichier.txt") sw= New StreamWriter(logfile,True,System.Text.Encoding.UTF8,1024)     Sub ecrire(ByVal data) Try sw.Write(data) Catch ex As Exception MsgBox("Erreur d'ecriture ! " & ex.Message, MsgBoxStyle.Critical) End Try End Sub   ' ' Lorsqu'il se ferme.. if not IsNothing(sw) then sw.close sw.dispose end

---