[vb.net] sauver contenu textbox dans un fichier texte

voilà je voudrais savoir comment enregistrer le contenu d'une texbox dans un fichier texte?

J'ai trouvé des sources mais aucune en vb.net. Quelqu'un pourrait m'aider svp?

Tiens voila tu peux t aider de ca
http://plasserre.developpez.com/v4-6.htm

En fait je développe une appli qui prend des données d'une base de données access et les affiches dans des textbox.

A coté j'utilise une Textbox qui permet à une personne utilisant le programme de rajouter des infos complémentaires propre à cet enregistrement de la base de données.

Je voudrais à l'aide d'un bouton "sauver" afficher le contenu des textbox de la base de données plus celle de la textbox "nota:" le tout d'en un seul et unique fichier texte.

voiçi mon code:

Code:

---

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

Sub Enregistrer_Sous() Dim SFD As New SaveFileDialog() SFD.FileName = Chemin SFD.Filter() = Filtre If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then If Sauve_Fichier(SFD.FileName, TextBox1.Text, True) Then TempText = TextBox1.Text Chemin = SFD.FileName End If End If SFD.Dispose()   End Sub

---

J'arrive à afficher chaque textbox mais à chaque fois dans un fichier différent.

Edit: La textbox manuelle s'apelle TextBox1, les autres s'apellent Text1, Text2 etc...

Tout dépend comment tu veux enregistrer tes données. S'il faut une mise en forme ou pas. En tout cas pour sauvegarder toutes tes textbox y'a un moyen, c'est de concaténer toutes tes textboxs dans une variable et ensuite d'écrire cette variable dans un fichier.

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9

'Déclaration du nom du fichier (pas obligatoire, tu peux l'écrire direct dans FileOpen à la place de "Fichier") Dim Fichier As String = "Sauvegarde.txt" 'Ouverture du Fichier (Append crée le fichier s'il n'existe pas) FileOpen(1, Fichier, OpenMode.Append, OpenAccess.Write) 'Ecriture du texte dans le Fichier PrintLine(1, "Bonjour je suis le message à sauvegarder") 'Fermeture de "Sauvegarde.txt" UNIQUEMENT ( d'où le (1) ) FileClose(1)

---

C'est une solution simple mais efficace.

Si tu veux mettre en forme ton texte comme par exemple mettre :

Citation:

---

NOM Prénom
Adresse
CodePostal Ville

---

T'as juste à écrire ça:

Code:

---

1 2 3 4 5 6 7 8 9

'Déclaration du nom du fichier (pas obligatoire, tu peux l'écrire direct dans FileOpen à la place de "Fichier") Dim Fichier As String = "Sauvegarde.txt" 'Ouverture du Fichier (Append crée le fichier s'il n'existe pas) FileOpen(1, Fichier, OpenMode.Append, OpenAccess.Write) 'Ecriture du texte dans le Fichier PrintLine(1, Nom & Chr(32) & Prénom & Chr(13) & Adresse & Chr(13) & CodePostal & Chr(32) & Ville) 'Chr(32) correspond à un espace et Chr(13) à un retour à la ligne 'Fermeture de "Sauvegarde.txt" UNIQUEMENT ( d'où le (1) ) FileClose(1)

---

C'est une faible mise en forme mais c'est la seule possible dans un fichier .txt sinon il faut se tourner vers WORD et OfficeTool ;)

Voilà j'espère que tu pourras avancer 8-)

Bonne Chance !

Désolé de ma réponse tardive (vacances oblige).

Comment faire pour concaténer les infos dans une seule variable. Dans mon cas et c'est cela mon problème j'efface la précédente.

Ma fonction "sauve-fichier"

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

Function Sauve_Fichier(ByVal f As String, ByVal tx As String, ByVal showError As Boolean) As Boolean   'Declaration Dim SW As System.IO.StreamWriter Try 'essaye d'ouvrir le fichier en écriture SW = New System.IO.StreamWriter(f) Catch ex As Exception If showError Then MsgBox(ex.Message, MsgBoxStyle.Exclamation) Return False End Try Try 'essaye d'écrire dans le fichier SW.WriteLine("Information du Prélèvement:") SW.WriteLine("") SW.WriteLine(tx) SW.WriteLine("") SW.WriteLine("")   Catch ex As Exception If showError Then MsgBox(ex.Message, MsgBoxStyle.Exclamation) Return False End Try SW.Close() 'ferme le fichier Return True 'ok   End Function

---

regarde la classe FileStream