Discussion :

[LeFoureur]

Bonjour à vous,

Actuellement mon programme enregistre les saisies de mes textbox et combobox dans un fichier .txt grâce au code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim objWriter As New System.IO.StreamWriter("C:\test\test\test.txt", True)
 
        objWriter.WriteLine()
        objWriter.WriteAsync(TextBox4.Text & ",")
        objWriter.WriteAsync(Space(1) & TextBox5.Text & ",")
        objWriter.WriteAsync(Space(1) & TextBox6.Text & ",")
        objWriter.WriteAsync(Space(1) & TextBox7.Text & ",")
        objWriter.WriteAsync(Space(1) & TextBox8.Text & "," & Space(10))
        objWriter.WriteAsync(ComboBox76.Text)
        objWriter.Close()

J'aimerais que les "," n'apparaissent que lorsque du contenu est détecté dans une textbox ou une combobox et non de base (avec une combobox/textbox vide).

J'ai fait pas mal de recherche à ce sujet et je reviens bredouille. ^^

Merci d'avance pour une future réponse à ma question et bonne journée à vous.

[mactwist69]

C'est typiquement un problème de programmation... Comment faire si...
Et tu poses toi même la question : "que lorsque du contenu est détecté"

En VB ça se traduit par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If TextBox5.Text.Lenght > 0 Then 
      objWriter.WriteAsync(Space(1) & TextBox5.Text & ",")
End If

J'ajouterai, qu'il faut au cas où, faire un Trim sur le texte, car des espaces, ça ne t'intéresse pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If TextBox5.Text.Trim.Lenght > 0 Then 
      objWriter.WriteAsync(Space(1) & TextBox5.Text & ",")
End If

[Uranne-jimmy]

Bonjour,
Déjà de base je trouve plus intéressant de faire une boucle pour accéder à tes textbox, dans l'optique où tu aurais par exemple à en rajouter, mais c'est un avis personnel.
Ensuite concernant la détection, pour vérifier que "du contenu est présent" dans la textbox, il faut mettre une condition, en barbare ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if textbox.text <> "" then 
objWriter.WriteAsync(Space(1) & TextBox5.Text & ",")
end if

Sinon, si tu souhaites vérifier que la textbox a changé, c'est à dire que tu souhaites savoir si le texte est différent, alors passe par l’événement ontextchange, tu mets un boolean lié à ta textbox à true si le texte a changé, et après écriture dans ton fichier, tu réinitialises les boolean à false.

[LeFoureur]

Merci messieurs pour cette réponse rapide, je ne connaissais pas cette condition, ça m'aide grandement dans l'élaboration de mon programme .