VB.Net Écrire dans un fichier texteRésolu

Question

Salut... Je veux écrire dans un fichier texte qui existe déjà. Dans ce fichier il peux 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... Voici ce que j'ai de fais mais je ne sais plus quoi écrire comme code pour que ca fonctionne.... J'ai regardé quelques source sur le site mais je ne saisis pas tout... J'ai besoin de votre aide. Merci d'avance Private Sub cdmSave_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdmSave.Click If txtPcode.Text <> "" And txtCoordY.Text <> "" And txtCoordX.Text <> "" Then Dim ObjetFichier As StreamWriter = New StreamWriter(AppPath & "\Coord.txt") Try ObjetFichier.Write(Label7.Text) Finally If Not ObjetFichier Is Nothing Then ObjetFichier.Close() End Try Else MsgBox( "Action Impossible") End If End Sub

cs_chris81 · Accepted Answer

Dim ObjetFichier As IO.StreamWriter = New IO.StreamWriter(AppPath & "\Coord.txt", True)

true pour ecrire a la fin et false pour tout effacer et reecrire au debut.

Indigo : Créateur de Classe VB.Net http://www.infosoft81.com/InfoSoft/Indigo/Deploiement/publish.htm

Big200148 · Answer

Quand tu declare ton streamwriter fait:
Dim ObjetFichier 
As StreamWriter = 
New StreamWriter(AppPath & 
"\Coord.txt", True)

et cela ajoutera des lignes à la fin de ton fichier

cs_JeffC1977 · Answer

Ok merci pour le "True".... Mais il y a rien qui s'écrit dans mon fichier text... Le chemin est bon car au démarage du programme je fais la lecture complète de fichier texte.... Lerreur peut venir de où ???? P.S. j'ai modifié quelque peu le code... Merci de votre aide 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.Write(Enregistrement) Finally If Not ObjetFichier Is Nothing Then ObjetFichier.Close() End Try Else MsgBox( "Action Impossible") End If End Sub

Big200148 · Answer

Essaie le WriteLine qui écrit une ligne directement

cs_JeffC1977 · Answer

J'ai essayé  ObjetFichier.Writeline(Enregistrement) Au lie de ObjetFichier.Write(Enregistrement)

Marche toujours pas.

On dirais qu'il n'ouvre pas le fichier pour enregistrer.. si je vais voir le ficher texte, la date de modification ne change pas ????

Comprends-tu pourquoi ?????

Merci de ton aide

cs_chris81 · Answer

debug pas a pas tu verra s'il ecrit qque chose ds le fichier

Indigo : Créateur de Classe VB.Net http://www.infosoft81.com/InfoSoft/Indigo/Deploiement/publish.htm

Big200148 · Answer

Ton code me parrais correcte pourtant

cs_JeffC1977 · Answer

Et bien étant donné que ca ne fonctionne pas....
Ça rentre toujours dans cette condition...
IfNot ObjetFichier IsNothingThen ObjetFichier.Close()

Donc j'ai un bug dans le code..... Mais où 

Merci

cs_JeffC1977 · Answer

J'ai essayé ça également

Catch exc 
As Exception
MessageBox.Show(exc.Message)

Finally

Mais ca rentre jamais dedans...

Pourquoi mon code fonctionne mais ca n'enregistre pas dans mon fichier texte... ???
Le prob peut-il venir de cette ligne de code...(déclaration de la variable AppPath)

Public AppPath 
As
String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)

Ici, je suis dans le Bouton Save...
Dim

 ObjetFichierW 
As StreamWriter = 
New StreamWriter(AppPath & 
"\Coord.txt", 
True)

Merci de votre aide

cs_JeffC1977 · Answer

Ok ca marche pas sur mon émulateur mais ca marche tres bien sur mon iPaq

merci à tous

VB.Net Écrire dans un fichier texte

10 réponses

Votre réponse

Discussions similaires