vb6: Mettre les données d'un textbox sous un fichier de type txt
slt
alors voila, j'ai un problème, j'ai 16 textbox dans mon form, jusque la rien de plus normal, j'ai un timer qui permet de modifier les données du textbox dans un intervalle de temps précis.La encore tout va bien.
Le problème qui se pose est que je voudrais pouvoir inscrire ces données qui sont dans mes textbox sous un fichier txt.
Par exemple, la premiere valeur s'inscrit sur la ligne 1, puis la deuxième valeur sur la ligne 2. Puis les valeurs se modifient grace au timer, puis j'inscrit les 2 nouvelles valeur sur la ligne 4 et 5 par exemple.
Mais le soucis c'est que je ne sais pas combien de temps peut durer cette opération donc je ne peux pas définir à l'avance les lignes. C'est pour ca que j'ai pensé à utiliser une boucle. Mais mon programme ne fonctionne pas.
Voici un bout de mon code:
Code:
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
|
Private Sub Timer1_Timer()
Dim j As Integer
j = j + 1
'Si vous voulez lire plusieurs ligne :
Dim fileNumer As Integer
FileNumber = FreeFile
'Ouvre le fichier
Open "c:\test.txt" For Output As #FileNumber
'Déclare var(n + 5 * j)
Dim Var(1 + 5 * j)
Dim Var(2 + 5 * j)
Dim Var(3 + 5 * j)
Dim Var(4 + 5 * j)
Dim Var(5 + 5 * j)
Dim Var(6 + 5 * j)
Dim Var(7 + 5 * j)
Dim Var(8 + 5 * j)
Dim Var(9 + 5 * j)
Dim Var(10 + 5 * j)
Dim Var(11 + 5 * j)
Dim Var(12 + 5 * j)
Dim Var(13 + 5 * j)
Dim Var(14 + 5 * j)
Dim Var(15 + 5 * j)
Dim Var(16 + 5 * j)
Var(1 + 5 * j) = Text4(0).Text
Var(2 + 5 * j) = Text1(0).Text
Var(3 + 5 * j) = Text2(0).Text
Var(4 + 5 * j) = Text4(1).Text
Var(5 + 5 * j) = Text1(1).Text
Var(6 + 5 * j) = Text2(1).Text
Var(7 + 5 * j) = Text4(2).Text
Var(8 + 5 * j) = Text1(2).Text
Var(9 + 5 * j) = Text2(2).Text
Var(10 + 5 * j) = Text4(3).Text
Var(11 + 5 * j) = Text1(3).Text
Var(12 + 5 * j) = Text2(3).Text
Var(13 + 5 * j) = Text3(0).Text
Var(14 + 5 * j) = Text3(1).Text
Var(15 + 5 * j) = Text3(2).Text
Var(16 + 5 * j) = Text6.Text
Print #FileNumber, Var(1 + 5 * j), Var(2 + 5 * j), Var(3 + 5 * j)
Print #FileNumber, Var(4 + 5 * j), Var(5 + 5 * j), Var(6 + 5 * j)
Print #FileNumber, Var(7 + 5 * j), Var(8 + 5 * j), Var(9 + 5 * j)
Print #FileNumber, Var(10 + 5 * j), Var(11 + 5 * j), Var(12 + 5 * j)
Print #FileNumber, Var(13 + 5 * j), Var(14 + 5 * j), Var(15 + 5 * j)
Print #FileNumber, Var(16 + 5 * j)
'Ferme le fichier test.txt
Close #FileNumber
Command2.Enabled = False
StatusBar1.SimpleText = "Récupération en cours..."
Dim Var As Integer
Dim val As String, typ As String
Dim Rapports(2) As Double
données_récup = Récup.Récupération
If données_récup(4)(0) <> 1 Then
Command2.Enabled = True
StatusBar1.SimpleText = "Erreur de communication à la commande n°" & données_récup(4)(0)
Var = MsgBox(StatusBar1.SimpleText, vbOKOnly, "Erreur")
Exit Sub
End If
For i = 0 To UBound(données_récup(0))
Text1(i).Text = données_récup(0)(i) & " %"
Select Case données_récup(1)(i)
Case 0
typ = "Aucun"
Case 1
typ = "Rebroyé"
Case 2
typ = "Naturel"
Case 3
typ = "Additif/Colorant"
End Select
Text4(i).Text = typ
Text2(i).Text = données_récup(2)(i) & " gr"
Next
For i = 0 To UBound(données_récup(3))
Text3(i).Text = données_récup(3)(i) & " %"
Rapports(i) = données_récup(3)(i)
Next
If (Rapports(0) <> 0 And Rapports(1) <> 0 And Rapports(2) <> 0) Then
val = masave.Sauvegarde(Rapports())
If (val <> "OK") Then
Var = MsgBox("Sauvegarde échouée: " & val, vbOKOnly, "Erreur")
val = "Sauvegarde précédente échouée!"
Else
val = "Sauvegarde précédente réussie"
End If
StatusBar1.SimpleText = val
End If
Command2.Enabled = True
End Sub |
ps: désolé si je m'explique, je suis nouveau ici...merci de votre compréhension
