Discussion :

[heidi92]

bonjour,
j'ai plusieurs données que l'utilisateur insère que je veux enregistrer pour leur faire appel une autre fois.
voici ce que j'ai fait pour le bouton enregistrer:

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
tabdonnees(n, 0) = CDbl(TextBox1.Text)
        tabdonnees(n, 1) = CDbl(TextBox2.Text)
        tabdonnees(n, 2) = CDbl(TextBox3.Text)
        tabdonnees(n, 3) = CDbl(TextBox4.Text)
        tabdonnees(n, 4) = CDbl(TextBox5.Text)
        tabdonnees(n, 5) = CDbl(TextBox6.Text)
        tabdonnees(n, 6) = CDbl(TextBox62.Text)
        tabdonnees(n, 7) = CDbl(TextBox61.Text)
        tabdonnees(n, 8) = CDbl(TextBox60.Text)
        tabdonnees(n, 9) = CDbl(TextBox59.Text)
        tabdonnees(n, 10) = CDbl(TextBox58.Text)
        tabdonnees(n, 11) = CDbl(TextBox57.Text)
        tabdonnees(n, 12) = CDbl(TextBox56.Text)
        tabdonnees(n, 13) = CDbl(TextBox53.Text)
        tabdonnees(n, 14) = CDbl(TextBox32.Text)
        tabdonnees(n, 15) = CDbl(TextBox24.Text)
        tabdonnees(n, 16) = CDbl(TextBox65.Text)
        tabdonnees(n, 17) = CDbl(TextBox64.Text)
        tabdonnees(n, 18) = CDbl(TextBox63.Text)
        If RadioButton1.Checked = True Then
            tabdonnees(n, 19) = True
        ElseIf RadioButton2.Checked = True Then
            tabdonnees(n, 20) = True
        ElseIf RadioButton3.Checked = True Then
            tabdonnees(n, 21) = True
        End If
        n += 1
        FileOpen(1, "C:/TP Iaa/données.txt", OpenMode.Output)
        For p As Integer = 0 To n - 1
            Write(1, tabdonnees(p, 0))
            Write(1, tabdonnees(p, 1))
            Write(1, tabdonnees(p, 2))
            Write(1, tabdonnees(p, 3))
            Write(1, tabdonnees(p, 4))
            Write(1, tabdonnees(p, 5))
            Write(1, tabdonnees(p, 6))
            Write(1, tabdonnees(p, 7))
            Write(1, tabdonnees(p, 8))
            Write(1, tabdonnees(p, 9))
            Write(1, tabdonnees(p, 10))
            Write(1, tabdonnees(p, 11))
            Write(1, tabdonnees(p, 12))
            Write(1, tabdonnees(p, 13))
            Write(1, tabdonnees(p, 14))
            Write(1, tabdonnees(p, 15))
            Write(1, tabdonnees(p, 16))
            Write(1, tabdonnees(p, 17))
            Write(1, tabdonnees(p, 18))
        Next
        FileClose()
        MessageBox.Show("Enregistrement éffectué")

pour le bouton ouvrir:

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
Dim R As Integer
            R = InputBox("entrer le numéro du fichier enregistré: " & ("entre 0 et ") & n - 1)
            TextBox1.Text = CStr(tabdonnees(R, 0))
            TextBox2.Text = CStr(tabdonnees(R, 1))
            TextBox3.Text = CStr(tabdonnees(R, 2))
            TextBox4.Text = CStr(tabdonnees(R, 3))
            TextBox5.Text = CStr(tabdonnees(R, 4))
            TextBox6.Text = CStr(tabdonnees(R, 5))
            TextBox62.Text = CStr(tabdonnees(R, 6))
            TextBox61.Text = CStr(tabdonnees(R, 7))
            TextBox60.Text = CStr(tabdonnees(R, 8))
            TextBox59.Text = CStr(tabdonnees(R, 9))
            TextBox58.Text = CStr(tabdonnees(R, 10))
            TextBox57.Text = CStr(tabdonnees(R, 11))
            TextBox56.Text = CStr(tabdonnees(R, 12))
            TextBox53.Text = CStr(tabdonnees(R, 13))
            TextBox32.Text = CStr(tabdonnees(R, 14))
            TextBox24.Text = CStr(tabdonnees(R, 15))
            TextBox65.Text = CStr(tabdonnees(R, 16))
            TextBox64.Text = CStr(tabdonnees(R, 17))
            TextBox63.Text = CStr(tabdonnees(R, 18))
            If tabdonnees(R, 19) = True Then
                RadioButton1.Checked = True
            ElseIf tabdonnees(R, 20) = True Then
                RadioButton2.Checked = True
            ElseIf tabdonnees(R, 21) = True Then
                RadioButton3.Checked = True
            End If

lorsque je les enregistre dans le tableau à partir duquel je les affiche par la suite, ça marche.
mais une fois je quitte l'application, je dois ressaisir les données. c'est pourquoi j'ai pensé à les enregistrer dans un fichier externe que je peux appeler à chaque instant. j'aimerais bien laisser à l'utilisateur le choix de l'endroit où il veut enregistrer le fichier.
j'ai besoin que les données s'affichent dans les textbox qui les conviennent.
veuillez bien m'aider à trouver une solution optimale à ce problème
merci de votre aide et de votre compréhension.

[M_Makia]

Bonjour heidi92,
Concernant l'enregistrement de tes données tu peux utiliser la sérialisation de ton tableau de données au format XML.
=> Exemple : http://msdn.microsoft.com/fr-fr/libr...vs.110%29.aspx

[heidi92]

bonjour,
merci M_Makia, en fait j'ai utilisé le savefiledialog et openfiledialog et ça marche bien
j'ai voulu essayé les sérialisation des données mais je ne savais pas comment faire pour l'intégrer dans ce que j'ai fait.
merci