Problème d'enregistrement de données dans un fichier texte [Résolu]

zazsze 54 Messages postés lundi 30 décembre 2002Date d'inscription 15 août 2007 Dernière intervention - 20 déc. 2006 à 18:57 - Dernière réponse : zazsze 54 Messages postés lundi 30 décembre 2002Date d'inscription 15 août 2007 Dernière intervention
- 21 déc. 2006 à 12:43
Bonsoir à tous,
Par l'intermédiaire d'un bouton (Button1), je souhaite enregistrer les données que je saisis dans les TextBox ( 1 à 5 ) dans un fichier (Eric.txt).
Ensuite je fais la même manipulation, pour que mes nouvelles données (toujours saisie dans les mêmes TextBox) soient enregistrées dans un autre fichier (Alain.txt).
Le problème avec le code ci-dessous, c'est que le dernier enregistrement effectué, efface celui que j'avais fait précédement, alors que le chmein d'écriture est pourtant différend.

Pouvez-vous me dire ce qui ne va pas et comment résoudre ce problème.

Private

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

Dim TextCollection
As
New System.Collections.Generic.List(
Of System.Windows.Forms.TextBox)
TextCollection.AddRange(
New System.Windows.Forms.TextBox() {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5})

Dim StrWrite
As
New System.IO.StreamWriter(
"C:\Contact\Eric.txt")

If Text11.Text =
"ERIC"
Then
For
Each TextBox
As System.Windows.Forms.TextBox
In TextCollection
StrWrite.WriteLine(TextBox.Text)

Next
StrWrite.Close()

End
If

Dim StrWrite2
As
New System.IO.StreamWriter(
"C:\Contact\Alain.txt")

If Text11.Text =
"ALAIN"
Then
For
Each TextBox
As System.Windows.Forms.TextBox
In TextCollection
StrWrite2.WriteLine(TextBox.Text)

Next
StrWrite2.Close()

End
If
End
Sub

Merci
zazsze
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
ptit_tof57 79 Messages postés lundi 28 août 2006Date d'inscription 4 avril 2009 Dernière intervention - 21 déc. 2006 à 05:48
3
Merci
Salut essaye voir ça :

En fait si text11.text été egal à ALAIN ton stream été tout de même ouvert mais aucune données n'été ajouté, pour se terminé à la fin de la procédure et tout éffacer.
J'espère que c'est bien ça.

   Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim TextCollection As New System.Collections.Generic.List(Of System.Windows.Forms.TextBox)
        TextCollection.AddRange(New System.Windows.Forms.TextBox() {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5})

        If Text11.Text = "ERIC" Then
            Dim StrWrite As New System.IO.StreamWriter("C:\Contact\Eric.txt")
            For Each TextBox As System.Windows.Forms.TextBox In TextCollection
                StrWrite.WriteLine(TextBox.Text)
            Next
            StrWrite.Close()

        ElseIf Text11.Text = "ALAIN" Then
            Dim StrWrite2 As New System.IO.StreamWriter("C:\Contact\Alain.txt")
            For Each TextBox As System.Windows.Forms.TextBox In TextCollection
                StrWrite2.WriteLine(TextBox.Text)
            Next
            StrWrite2.Close()
        End If

   End Sub

Merci ptit_tof57 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 118 internautes ce mois-ci

Commenter la réponse de ptit_tof57
zazsze 54 Messages postés lundi 30 décembre 2002Date d'inscription 15 août 2007 Dernière intervention - 21 déc. 2006 à 12:43
0
Merci
Salut,

Bonne analyse de ta part, ça fonctionne parfaitement
Un grand merci à toi

zazsze
Commenter la réponse de zazsze

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.