Enregistrer plusieurs textbox dans un meme fichier [Résolu]

Messages postés
54
Date d'inscription
lundi 30 décembre 2002
Dernière intervention
15 août 2007
- - Dernière réponse : Charles Racaud
Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
- 28 déc. 2006 à 12:11
J'ai créé 5 textbox dans lequel j'écris du texte. J'enregistrer ensuite ces données dans un seul fichier texte (Pierre.text) en cliquant sur mon bouton (Button1)

J'ai donc écrit le code suivant qui fonctionne :








Private





Sub
Command13_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles

Command13.Click



Dim
StrWrite
As


New
System.IO.StreamWriter(
"C:\Projet\Pierre.txt"

)



If

Text11.Text =


"Pierre"



Then


StrWrite.WriteLine(Text1.Text)
StrWrite.WriteLine(Text2.Text)
StrWrite.WriteLine(Text3.Text)
StrWrite.WriteLine(Text4.Text)
StrWrite.WriteLine(Text5.Text)
StrWrite.Close()



End



If

End



SubJ'ai créé une collection de manière à réduire mes lignes de code car j'ai beaucoup d'autres fichiers texte à écrire. J'ai donc commencé à écrire le code suivant :
Dim

TextCollection AsNew System.Collections.Generic.List(Of System.Windows.Forms.TextBox)
TextCollection.AddRange(New System.Windows.Forms.TextBox() {Text1, Text2, Text3, Text4, Text5})
Dim StrWrite As
New System.IO.StreamWriter("C:\Projet\Pierre.txt")

If Text11.Text = "Pierre"Then

......... mais après je n'ai pas réussi à écrire le reste notament avec la fonction StrWrite.WriteLine .....

End
If

merci pour votre aide

zazsze
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
35
3
Merci
J'ai l'impression d'avoir fait la même chose y'a pas si longtemps.
Surtout quand je revois le cocde que tu empois.





Dim TextCollection As New System.Collections.Generic.List(Of System.Windows.Forms.TextBox)
TextCollection.AddRange(New System.Windows.Forms.TextBox() {Text1, Text2, Text3, Text4, Text5})
Dim StrWrite As New System.IO.StreamWriter("C:\Projet\Pierre.txt")
If Text11.Text = "Pierre" Then
  For Each TextBox As System.Windows.Forms.TextBox In TextCollection
    StrWrite.WriteLine(TextBox.Text)
  Next
End If
StrWrite.Close(),

----

(Coloration syntaxique automatique par Kenji)





__________
Kenji

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 110 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Charles Racaud
Messages postés
54
Date d'inscription
lundi 30 décembre 2002
Dernière intervention
15 août 2007
0
Merci
Salut,
Encore une fois merci.

Le pire est que j'avais presque trouvé. J'avais juste oublié l'extention ".text" (StrWrite.WriteLine(TextBox.Text)). J'avais repris un code que tu m'avais effectivement envoyé mais c'était pour écrire le contenu d'un fichier texte dans plusieurs textbox.

zazsze
Commenter la réponse de zazsze
Messages postés
1
Date d'inscription
dimanche 24 décembre 2006
Dernière intervention
6 avril 2009
0
Merci
bonjour j'ai un petit probléme avec visual basic concernant cette partie de code:

Private Sub CmdAjoutDB_Click()
    Dim StrWrite As New System.IO.StreamWriter("CHEAT.DB")
       StrWrite.WriteLine (TxtArCw.Text)
    StrWrite.Close()
End Sub

sa me met : Erreur de compilation: fin d'instruction attendue.
merci pour votre aide.
Commenter la réponse de trashoume
Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
35
0
Merci
trashoume, ici on est en .net ; pas en vb6. Donc c'est normal.
Cherche une solution qui marche en vb6






__________
Kenji
Commenter la réponse de Charles Racaud

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.