enregistrer textbox dans fichier .txtRésolu

Question

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

jrivet · Accepted Answer

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

NHenry · Answer

Bonjour

à la place de "For Output" met "For Append".

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1

cs_Fabian123 · Answer

Merci à tout les deux pour l'info!!!

et promis, pour mes prochaines questions j'essaierai de penser à typer mes variables!

cs_Exploreur · Answer

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

jrivet · Answer

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

PCPT · Answer

salut,
comme d'autres questions viendront....
http://www.vbfrance.com/doc/faq.aspx#vb_fichier

Dixiss · Answer

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

Enregistrer textbox dans fichier .txt

7 réponses

Votre réponse

Discussions similaires