Discussion :

[xcamp]

bonjoura tous je debute en VB.net

j'aimerais savoir comment écrir et lire les valeurs de mes texbox dans
dans un fichier text
en gros j'ai des nombre dans mes texbox et j voudrai les rangés comme suite dans mon fichier txt

linge1 0,2,1,9,1,8,1,1
linge2 7,1,4,0,0,5,1,1
ligne3 1,0,9,0,1,1,0,7

voila le code que j'ai mais je rempli juste ligne apres ligne ,mai c'est pas ce que je souhaite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
        Dim contenu As String = "D:\recette.txt"
 
        If System.IO.File.Exists(contenu) = True Then
            Dim objWriter As New System.IO.StreamWriter(contenu)
 
            objWriter.Write(TBFonction.Text & Environment.NewLine)
            objWriter.Write(TbCode.Text & Environment.NewLine)
            objWriter.Write(TBAtt.Text & Environment.NewLine)
 
            objWriter.Close()
            MsgBox("xxx")
        Else
            MsgBox("File Does Not Exist")
        End If

merci

[Invité]

Tu veux quoi et tu as quoi pour le moment

[xcamp]

Tu veux quoi et tu as quoi pour le moment

je veux a partir de VB.net ecrir les valeurs de mes textbox de cette maniere ci

inge1 0,2,1,9,1,8,1,1
linge2 7,1,4,0,0,5,1,1
ligne3 1,0,9,0,1,1,0,7

mais dans dans un fichier text

jusqu'ici j 'arrive juste a creer le fichier comme le montre le code plus haut

[Invité]

Essaye ca

Code :

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

1
2
3
4
5
6
7
8
using (StreamWriter sw = File.CreateText("D:\recette.txt"))
{
     sw.WriteLine(TBFonction.Text)
     sw.WriteLine(TbCode.Text)
     swWriter.WriteLine(TBAtt.Text)
 
     sw.Close();
}

[xcamp]

merci gcorbineau pour lec code

mais le

Code :

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

1
2
3
4
using (StreamWriter sw = File.CreateText("D:\recette.txt"))
{
 
}

ne marche pas, je crois que le code que tu ma fourni est en c#
pourais je l'avoir en Vb.net?

[Invité]

Version VB.NET

Code :

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

1
2
3
4
5
6
7
8
Using sw As StreamWriter = File.CreateText("D:\recette.txt")
 
     sw.WriteLine(TBFonction.Text)
     sw.WriteLine(TbCode.Text)
     sw.WriteLine(TBAtt.Text)
 
     sw.Close()
End Using

[-N4w4k-]

Salut,

j'ai fait un programme pour essayer, en partant du principe que tu avais 8 textbox par ligne, que "ligne1 ", "ligne2 " et "ligne3 " dans ton fichier texte étaient là juste pour la compréhension et que tu n'avais que 3 lignes..

Il y a 3 rangées de 8 textbox, un bouton load et un bouton save..

Voici le code que j'ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Imports System.IO
 
Public Class Form1
    Dim txtboxes1 As New List(Of TextBox)
    Dim txtboxes2 As New List(Of TextBox)
    Dim txtboxes3 As New List(Of TextBox)
 
    Dim filename As String = "test.txt"
 
    'Chargement du formulaire
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'On crée chaque groupe de textbox (ici il y en a 3)
        txtboxes1.Add(TextBox1)
        txtboxes1.Add(TextBox2)
        txtboxes1.Add(TextBox3)
        txtboxes1.Add(TextBox4)
        txtboxes1.Add(TextBox5)
        txtboxes1.Add(TextBox6)
        txtboxes1.Add(TextBox7)
        txtboxes1.Add(TextBox8)
 
        txtboxes2.Add(TextBox9)
        txtboxes2.Add(TextBox10)
        txtboxes2.Add(TextBox11)
        txtboxes2.Add(TextBox12)
        txtboxes2.Add(TextBox13)
        txtboxes2.Add(TextBox14)
        txtboxes2.Add(TextBox15)
        txtboxes2.Add(TextBox16)
 
        txtboxes3.Add(TextBox17)
        txtboxes3.Add(TextBox18)
        txtboxes3.Add(TextBox19)
        txtboxes3.Add(TextBox20)
        txtboxes3.Add(TextBox21)
        txtboxes3.Add(TextBox22)
        txtboxes3.Add(TextBox23)
        txtboxes3.Add(TextBox24)
    End Sub
 
    'Click sur le bouton 'Load'
    Private Sub ButtonLoad_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLoad.Click
        Try
            'on ouvre le fichier texte
            Dim sr As New StreamReader(filename)
 
            Dim ligne = sr.ReadLine
            Dim numLigne As Integer = 1
 
            'on lit ligne par ligne
            While ligne IsNot Nothing
 
                'suivant le numéro de ligne..
                If numLigne = 1 Then
                    '..on remplit le bon groupe de textbox à partir de la ligne courante
                    LineToTextBoxes(ligne, txtboxes1)
                ElseIf numLigne = 2 Then
                    LineToTextBoxes(ligne, txtboxes2)
                ElseIf numLigne = 3 Then
                    LineToTextBoxes(ligne, txtboxes3)
                End If
 
                'on passe à la ligne suivante
                ligne = sr.ReadLine
                numLigne += 1
            End While
            'on ferme le flux
            sr.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    'Click sur le bouton 'Save'
    Private Sub ButtonSave_Click(sender As System.Object, e As System.EventArgs) Handles ButtonSave.Click
        Try
            'on ouvre le fichier texte
            Dim sw As New StreamWriter(filename)
 
            'pour chaque groupe de textbox
            For Each txtboxes As List(Of TextBox) In {txtboxes1, txtboxes2, txtboxes3}
                'on crée la ligne à écrire dans le fichier texte
                Dim ligne As String = TextBoxesToLine(txtboxes)
                'puis on l'écrit
                sw.WriteLine(ligne)
            Next
            'on ferme le flux
            sw.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    'Méthode qui concatène (pas sûr du mot xD) le contenu d'une liste de textbox
    Private Function TextBoxesToLine(txtboxes As List(Of TextBox)) As String
        'on crée une nouvelle liste de chaine de caractere
        Dim nombres As New List(Of String)
        'pour chaque textbox du groupe..
        For Each txtbox In txtboxes
            '..on ajoute le contenu à la liste
            nombres.Add(txtbox.Text)
        Next
        'on retourne le tout sous forme de chaine de caractere
        Return String.Join(",", CType(nombres.ToArray, String()))
    End Function
 
    'Méthode qui remplit une liste de textbox à partir d'une ligne
    Private Sub LineToTextBoxes(ligne As String, txtboxes As List(Of TextBox))
        'on decoupe la ligne grace au caractere separateur ","
        Dim nombres As String() = ligne.Split(",")
 
        'on associe le contenu d'une textbox et un nombre
        For i = 0 To txtboxes.Count - 1
            txtboxes(i).Text = nombres(i)
        Next
    End Sub
 
End Class

Le code contient 120 lignes.. il y a peut être une manière plus simple..

EDIT: vu la réponse de gcorbineau, je ne suis pas certain d'avoir compris la problématique tans pis..

[xcamp]

gcorbineau

merci ca marche
mais seulement voila ce que j'ai sur l'ecran
110

comment je fait pour gerer les autres lignes sant toute fois supprimer la premiere de maniere a obtenir
ca par exemple
110
152
256

[Invité]

Remplace ca

Code :

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

Using sw As StreamWriter = File.CreateText("D:\recette.txt")

Par

Code :

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

Using sw As StreamWriter = File.AppendText("D:\recette.txt")

[shayw]

Salut

pourquoi pas simplement

Code :

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

1
2
3
4
5
6
7
8
9
Public lalist As New List(Of String)
    Private Sub buildandsavemylist(ByVal path As String)
        Dim counter As Integer
        counter = 1
        For Each ctrl As TextBox In Me.Controls
            lalist.Add("linge" & counter.ToString & " " & ctrl.Text)
        Next
        IO.File.WriteAllLines(path, lalist.ToArray)
    End Sub

[xcamp]

shayw

en lisant ton code il me semble que c'est exactement ce que je veu faire
mais pourqoui a cette ligne

Code :

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

1
2
 
 For Each txtboxes As List(Of TextBox) In {txtboxes1, txtboxes2, txtboxes3}

jai une erreur comme qoui expression attendu

[-N4w4k-]

Je crois que ce code est le mien

Il partait du principe que:

tu avais 8 textbox par ligne, que "ligne1 ", "ligne2 " et "ligne3 " dans ton fichier texte étaient là juste pour la compréhension et que tu n'avais que 3 lignes..
Il y a 3 rangées de 8 textbox, un bouton load et un bouton save..

Est ce que c'est ça? cf. la copie d'écran du programme en fichier joint.

txtboxes sont des groupes de TextBox (8 par groupe)

[xcamp]

slt shayw
enfait je parlais plus haut du code -N4w4k-
shayw en ce qui concerne ton code comment je recupere les elemenents de ma textbox dans ce cas

[xcamp]

-N4w4k- c'est exactement ca

[shayw]

dans une boucle je lis le text de chaque textbox et l'ajoute à malist
defini comme une list générique de type string
et après j'écris malist

possible que je n'ai pas bien compris ce que tu veux faire

[-N4w4k-]

-N4w4k- c'est exactement ca

Je pense que tu devrais lire tout le code (du début à la fin, il y a 120 lignes mais entre les commentaires et les ligne vides, il y en a plus tant que ça), je me suis forcé à commenter chaque ligne ou presque.

EDIT: Allez je suis gentil je te passe même les sources, ça sera plus facile à lire

[xcamp]

EDIT: Allez je suis gentil je te passe même les sources, ça sera plus facile à lire

merci pour le code source c'est sympa de ta part

[xcamp]

par contre je ne comprend pas pourqoui ton code me rencoi toujour des erreurs
je suis sur vb.net 2008
je ne sais pas si c'est un problemen de compatibiliter
regard sur l'image


enfait la lecture se passe tres bien pas ,en fesant un petit text genre en ecrivants des nombre dans le fichier je les recupere tres bien dans mes texbox
mais en ecriture cette partie du code me retourne une erreur : expression attendu juste au niveau a ce niveau

Code :

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

1
2
 
 For Each txtboxes As List(Of TextBox) In {txtboxes1, txtboxes2, txtboxes3}

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 Private Sub ButtonSave_Click(sender As System.Object, e As System.EventArgs) Handles ButtonSave.Click
        Try
            'on ouvre le fichier texte
            Dim sw As New StreamWriter(filename)
 
            'pour chaque groupe de textbox
            For Each txtboxes As List(Of TextBox) In {txtboxes1, txtboxes2, txtboxes3}
                'on crée la ligne à écrire dans le fichier texte
                Dim ligne As String = TextBoxesToLine(txtboxes)
                'puis on l'écrit
                sw.WriteLine(ligne)
            Next
            'on ferme le flux
            sw.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

[-N4w4k-]

Re,

Code :

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

1
2
3
4
5
6
For Each txtboxes As List(Of TextBox) In {txtboxes1, txtboxes2, txtboxes3}
     'on crée la ligne à écrire dans le fichier texte
     Dim ligne As String = TextBoxesToLine(txtboxes)
     'puis on l'écrit
     sw.WriteLine(ligne)
Next

Je ne sais pas pourquoi cette erreur intervient (d'après msdn, c'est quand il manque un membre après un opérateur comme = < > etc.).

Essaie de remplacer le code du dessus par ça:

Code :

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

1
2
3
4
5
6
Dim ligne1 As String = TextBoxesToLine(txtboxes1)
sw.WriteLine(ligne1) 
Dim ligne2 As String = TextBoxesToLine(txtboxes2)
sw.WriteLine(ligne2) 
Dim ligne3 As String = TextBoxesToLine(txtboxes3)
sw.WriteLine(ligne3)

[xcamp]

j'ai trouvé une solution qui marche tres bien alors voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Public Class Sauvegarde
 
    Inherits System.Windows.Forms.Form
 
    Public Chemin_Origine As DirectoryInfo 
    Public Chemin_defaut As DirectoryInfo
    Public Nom_Origine_du_TXT As String
 
 
    Dim filename As String = "c:\"
    'PLC variable handles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'sauvegarder dans le fichier text
        If TBname.Text.Trim <> "" Then
            FolderBrowserDialog1.ShowDialog()
            If Trim(FolderBrowserDialog1.SelectedPath) <> "" Then
                Chemin_defaut = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)
 
                If InStr(UCase(TBname.Text.Trim), ".TXT") = 0 Then
                    If InStrRev(TBname.Text.Trim, ".") > 0 Then
                        TBname.Text = Mid(TBname.Text.Trim, 1, InStrRev(TBname.Text.Trim, ".") - 1)
                    End If
                    TBname.Text = TBname.Text.Trim + ".txt"
                End If
 
                '
                ' If Chemin_Origine.FullName = Chemin_defaut.FullName And Nom_Origine_du_TXT.Trim = TBname.Text.Trim Then
                ' 16=Image Critical, 4=Yes et No, 256=Position sur 2ème bouton
                If MsgBox("Voulez-vous vraiment enregistrer ?", 16 + 4 + 256, "Ecriture Fichier Texte") = MsgBoxResult.No Then
                    TBname.Focus()
                    Exit Sub
                    'End If
                Else
                    Dim Fic As New FileInfo(Chemin_defaut.FullName + "\" + TBname.Text.Trim)
                    If Fic.Exists Then
                        If MsgBox("Le fichier " + Fic.Name + " existe déjà!" + Chr(13) + "Voulez-vous l'écraser ?", 16 + 4 + 256, "Ecriture Fichier Texte") = MsgBoxResult.No Then
                            TBname.Focus()
                            Exit Sub
                        End If
                    End If
                End If
                Dim Sw As StreamWriter = File.CreateText(Chemin_defaut.FullName + "\" + TBname.Text.Trim)
                Dim chaine As String
                Dim Prefixe_zone As String = ""
                Dim Nom_objet As String = ""
                Dim Valeur As String = ""
                For Lg = 1 To 8
                    chaine = "Ligne_" + Lg.ToString.Trim
                    For Cl = 1 To 5
                        Select Case Cl
                            Case 1
                                Prefixe_zone = "TBFon"
                            Case 2
                                Prefixe_zone = "TBCod"
                            Case 3
                                Prefixe_zone = "TBAtt"
                            Case 4
                                Prefixe_zone = "TBPoz"
                            Case 5
 
                        End Select
                        Nom_objet = Prefixe_zone + Lg.ToString.Trim
                        Valeur = Replace(Me.GroupBox2.Controls(Nom_objet).Text.ToString.Trim, ",", ".")
                        If Valeur = "" Then
                            Valeur = "-"
                        End If
                        chaine = chaine + "," + Replace(Valeur, ",", ".")
                    Next
                    Sw.WriteLine(chaine)
                Next
                Sw.Close()
                Init_zone()
                MsgBox("Enregistrement OK.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Enregistrement des données")
            Else
                MsgBox("Veuillez donner un nom de fichier!.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Contrôle des saisies")
            End If
        End If
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
   Function Nom_objet(ByVal Cl As Integer) As String
        Dim Prefixe_zone As String = ""
        Select Case Cl
            Case 1
                Prefixe_zone = "TBf"
            Case 2
                Prefixe_zone = "TBc"
            Case 3
                Prefixe_zone = "TBA"
            Case 4
                Prefixe_zone = "TBP"
            Case 5
 
        End Select
        Return Prefixe_zone
    End Function
 
    Private Sub Init_zone()
        TBname.Text = ""
        For Lg = 1 To 20
            For Cl = 1 To 10
                Me.GroupBox2.Controls(Nom_objet(Cl) & Lg.ToString.Trim).Text = ""
            Next
        Next
    End Sub

'ouverture et lecture du fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
 
  Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ' ouverture et lecture du fichier
        Chemin_defaut = New DirectoryInfo("c:\")
        FolderBrowserDialog1.ShowDialog()
        If Trim(FolderBrowserDialog1.SelectedPath) <> "" Then
            Chemin_defaut = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)
            Chemin_Origine = Chemin_defaut
            Dim Fic As FileInfo
            OpenFileDialog1.InitialDirectory = Chemin_defaut.FullName
            OpenFileDialog1.Filter = "Fichiers texte (*.txt)|*.txt"
            OpenFileDialog1.Title = "Choix du fichier"
            OpenFileDialog1.ShowDialog()
            If Trim(OpenFileDialog1.FileName) <> "" Then
                Fic = New FileInfo(OpenFileDialog1.FileName)
                If Fic.Exists Then
                    TBname.Text = Fic.Name
                    Nom_Origine_du_TXT = Fic.Name
                    Dim Ligne As String = ""
                    Dim Cl As Integer
                    Dim Pos_Depart As Integer
                    Dim Pos_Virgule As Integer
                    Dim sr As StreamReader = New StreamReader(Fic.FullName)
                    For Lg = 1 To 20
                        Pos_Depart = 1
                        Ligne = sr.ReadLine()
                        Cl = 1
                        Do While Pos_Depart < Ligne.Length
                            Pos_Virgule = InStr(Pos_Depart, Ligne, ",")
                            If Pos_Depart = 1 Then
                                'Me.Controls("Label" & Lg.ToString.Trim).Text = Mid(Ligne, Pos_Depart, Pos_Virgule - Pos_Depart)
                            Else
                                Me.GroupBox2.Controls(Nom_objet(Cl) & Lg.ToString.Trim).Text = Replace(Mid(Ligne, Pos_Depart, Pos_Virgule - Pos_Depart), ".", ",")
                                Cl = Cl + 1
                            End If
                            Pos_Depart = Pos_Virgule + 1
                            If Cl = 5 Then
                                Me.GroupBox2.Controls(Nom_objet(Cl) & Lg.ToString.Trim).Text = Replace(Mid(Ligne, Pos_Depart), ".", ",")
                                Exit Do
                            End If
                        Loop
                    Next
                    sr.Close()
                End If
                Fic = Nothing
            End If
        End If
    End Sub
 
 
    Function Nom_objet(ByVal Cl As Integer) As String
        Dim Prefixe_zone As String = ""
        Select Case Cl
            Case 1
                Prefixe_zone = "TBF"
            Case 2
                Prefixe_zone = "TBCod"
            Case 3
                Prefixe_zone = "TBAt"
            Case 4
                Prefixe_zone = "TBPoz"
            Case 5
 
        End Select
        Return Prefixe_zone
    End Function