VB.Net ÉCrire dans un fichier texte

Question

http://www.vbfrance.com/auteurdetail.aspx?ID=464094 Salut... Je veux écrire dans un fichier texte qui existe déjà. Dans ce fichier il peut y avoir un nombre X de ligne des texte. Je veux donc aller écrire sur la dernière ligne du fichier, sur une nouvelle ligne. Je ne suis pas tres habile avec le StreamWriter et il me manque quelque ligne de code pour finaliser l'écriture du fichier... Jusqu'à présent, il n'enregistre rien dans le fichier texte Merci d'avance Private Sub cdmSave_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdmSave.Click Dim Enregistrement As String If txtPcode.Text <> "" And txtCoordY.Text <> "" And txtCoordX.Text <> "" Then Dim ObjetFichier As StreamWriter = New StreamWriter(AppPath & "\Coord.txt", True) Try Enregistrement = txtPointSaisi.Text & Space(1) & txtCoordY.Text & Space(1) & txtCoordX.Text & Space(1) & "0" & Space(1) & txtPcode.Text ObjetFichier.WriteLine(Enregistrement) Finally If Not ObjetFichier Is Nothing Then ObjetFichier.Close() End Try Else MsgBox( "Action Impossible") End If End Sub

Baguauda · Answer

Je pense qu'il te manque 
ObjetFichier.Flush()

cs_JeffC1977 · Answer

Je mets ça où ?

Baguauda · Answer

soit après 
ObjetFichier.WriteLine(Enregistrement)

ObjetFichier.Flush() 

ou bien il me semble qu'a la place

ObjetFichier.Close()

On a  
ObjetFichier.Dispose() -> qui correspond a Flush + Close.

En fait tu le met ou tu veux - donc soit après chaque WriteLine soit une fois que toutes tes lignes sont écrites

cs_JeffC1977 · Answer

Merci pour ta réponse mais...

Ta premiere option = Ça change rien, ça n'écrit pas dans le fichier
et pour la deuxième option je n'ai pas la posibilité de prendre le "Dispose" je n'ai que 
AutoFlush
Close
Write
Flush
WriteLine

Comment je fais dans le Debug pour savoir s'il semble vouloir écrire une ligne de texte.. La seule variable que je peux vérifier est ma varaiable "Enregistrement" mais je ne peux voir que vaut ObjetFichier.WriteLine(Enregistrement).
C'est normale du fait que c'est un Objet ???

merci encore

Baguauda · Answer

J'oubliais qu'il n'y avait pas de Dispose dans le CF.

Try
Enregistrement
= txtPointSaisi.Text & Space(1) & txtCoordY.Text & Space(1)
& txtCoordX.Text & Space(1) & 
"0" & Space(1) & txtPcode.Text
ObjetFichier.WriteLine(Enregistrement)
ObjetFichier.Flush()

'Place Un catch pour recupérer l'erreur - Je ne me souviens plus très bien de la syntaxe mais ca doit être dans le style
Catch Exception ex
    messagebox.show(ex.Message)

Finally

cs_JeffC1977 · Answer

Ouin et bien j'y comprends rien...

Ça ne sort pas d'erreur ????

cs_JeffC1977 · Answer

ok ca marche...

Ca marche pas sur l'émulateur et je ne saisi pas pourquoi...
Mais ca marche sur mon iPAQ

Merci de ton aide...

cs_Stephane33 · Answer

open
write ou writeln
flush 'Ecrit réellement les données dans le fichier (car elle ne sont en mémoire ) donc à éxécuter soit sur un bloc, soit après chaque ligne
close

Pour la procédure
Try
....
Catch ex as Exception
    msgbox(ex.Message)
Finally
......
End try

Pour l'émulateur, normalement cela doit fonctionner, vérifie les chemins et au besoin raffraichie ta vue dans l'explorateur

Le savoir ne sert que si il est partagé par tous

VB.Net ÉCrire dans un fichier texte

8 réponses

Votre réponse

Discussions similaires