Discussion :

[balabonov]

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?

[cubitus91]

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

[balabonov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[D4rkTiger]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

NOM Prénom
Adresse
CodePostal Ville

T'as juste à écrire ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne Chance !

[balabonov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bossun]

regarde la classe FileStream