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

zazsze 54 Messages postés lundi 30 décembre 2002Date d'inscription 15 août 2007 Dernière intervention - 19 déc. 2006 à 23:23 - Dernière réponse : Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention
- 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
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 19 déc. 2006 à 23:30
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

Merci Charles Racaud 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de Charles Racaud
zazsze 54 Messages postés lundi 30 décembre 2002Date d'inscription 15 août 2007 Dernière intervention - 19 déc. 2006 à 23:55
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
trashoume 1 Messages postés dimanche 24 décembre 2006Date d'inscription 6 avril 2009 Dernière intervention - 28 déc. 2006 à 09:20
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
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 28 déc. 2006 à 12:11
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.