Enregistrer plusieurs textbox dans un meme fichier

[Résolu]
Signaler
Messages postés
54
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
15 août 2007
-
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
-
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

4 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
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
Messages postés
54
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
15 août 2007

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
Messages postés
1
Date d'inscription
dimanche 24 décembre 2006
Statut
Membre
Dernière intervention
6 avril 2009

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.
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
trashoume, ici on est en .net ; pas en vb6. Donc c'est normal.
Cherche une solution qui marche en vb6






__________
Kenji