Enregistrer textbox dans fichier .txt

[Résolu]
Signaler
Messages postés
180
Date d'inscription
vendredi 18 janvier 2008
Statut
Membre
Dernière intervention
22 novembre 2013
-
Messages postés
1
Date d'inscription
lundi 29 mars 2010
Statut
Membre
Dernière intervention
29 mars 2010
-
Bonjour,

voilà ma question :

j'ai une textBox et un commandButton, j'encode un nom dans la textbox et lorsque je clique sur le commandbutton il le sauvegarde dans un fichier .txt (blocnote).

mon souci est que il n'enregistre que sur la premiere ligne, donc il ecrase au fur et a mesure les noms et je ne retrouve donc que le dernier nom encodé.

Je souhaiterais qu'après avoir cliqué pour sauvegarder le nom il passe à la ligne pour enregistrer le nom suivant (et avoir ainsi une liste de tous les noms encodés... est-ce possible?

voici le code que j'ai introduit (code que j'ai retrouvé en cherchant sur le forum... merci!)

Private Sub CommandButton1_Click()
Dim texte
texte = TextBox1.Text
Open "C:\essai.txt" For Output As #1
Print #1, texte
Close #1
TextBox3.Text = ""
End Sub

7 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
57
Salut,
Il faut ouvrir ton fichier en mode APPEND et non Output

NOTE/ n'hésite pas a TYPER tes variables
@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
14813
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 juillet 2021
156
Bonjour

à la place de "For Output" met "For Append".

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Messages postés
180
Date d'inscription
vendredi 18 janvier 2008
Statut
Membre
Dernière intervention
22 novembre 2013

Merci à tout les deux pour l'info!!!

et promis, pour mes prochaines questions j'essaierai de penser à typer mes variables!
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
57
Re,
> [auteur/FABIAN123/1275093.aspx Fabian123]: Typer les variables ce n'est pas pour tes prochaines questions qu'il faut faire,c'est dans ton code et ta manière de développer. c'est pas pour nous faire plaisir mais appelons un Chat .... un Chat et non pas dans ton cas Un String , Un Variant

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
salut,
comme d'autres questions viendront....
http://www.vbfrance.com/doc/faq.aspx#vb_fichier
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut à tous,

Pense aussi à valider les réponses qui on résolu ton problème....

A+
Exploreur

 Linux a un noyau, Windows un pépin
Messages postés
1
Date d'inscription
lundi 29 mars 2010
Statut
Membre
Dernière intervention
29 mars 2010

Bonjour c'etait pour demander une information en rapport a la question poser , Je programme une application et j'ai fais sa :
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Timer1.Start()

End Sub

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer1_Tick_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
MsgBox("La transaction s'effectuera dans 24 heure")
End If


End Sub


Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

End Sub

Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim texte
texte = TextBox1.Text
Open "C:\essai.txt" For Append As #1
Print #1, texte
Close #1
TextBox3.Text = ""
End Sub
Et il me marque Instruction Non valide , je voudrais que quand j'appuie sur "Click (le bouton) je recoivent les information .. merci de me repondre
Dixisss