[vb6]:Ajuster des données dans un fichier text avec un timer

Version imprimable

Voir 40 message(s) de cette discussion en une page

bon jour à tous

voila je vous présente mon soucis:
j'ai un prog qui envoi des données dans un fichier text. cela fonctionne
il envoi ces données toutes les 10 sec et je voudrais que toutes les 10sec, les données inscrites dans le fichier text se mette les unes en dessous des autres, car la a chaque fois elle ecrase les premières. Je pense qu'il faudrait faire une roulette (i=i+1) mais je ne sais pas comment m'y prendre.

voila 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
 
Private Sub Form_Load()
Dim fileNumer As Integer
FileNumber = FreeFile
Open "c:\test.txt" For Output As #FileNumber
 
Close #FileNumber
End Sub
 
Private Sub Timer1_Timer()
 
StatusBar1.SimpleText = "Récupération en cours..."
Dim i, var As Integer
Dim val, 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
 
    Var1 = Text4(0).Text
Var2 = Text1(0).Text
Var3 = Text2(0).Text
 
Var4 = Text4(1).Text
Var5 = Text1(1).Text
Var6 = Text2(1).Text
 
Var7 = Text4(2).Text
Var8 = Text1(2).Text
Var9 = Text2(2).Text
 
Var10 = Text4(3).Text
Var11 = Text1(3).Text
Var12 = Text2(3).Text
 
Var13 = Text3(0).Text
Var14 = Text3(1).Text
Var15 = Text3(2).Text
 
Var16 = Text6.Text
 
 
Print #FileNumber, Var1, Var2, Var3
Print #FileNumber, Var4, Var5, Var6
Print #FileNumber, Var7, Var8, Var9
Print #FileNumber, Var10, Var11, Var12
Print #FileNumber, Var13, Var14, Var15
Print #FileNumber, Var16
 
...

25/07/2006, 14h18
Theocourant

Bonjour,

D'une part tu n'ouvres pas et tu ne fermes pas le fichier dans la procédure liée à l'événement du timer ... donc je ne sais pas où tu peux arriver à écrire ... ou alors le code que tu nous as donné n'est pas complet :?

D'autre part, l'ouverture des fichiers pour écrire en fin de fichier est décrite dans le tutoriel vers lequel je t'ai redirigé lors d'un post précédent : ça fait plaisir d'être écouté :aie: .
Et en plus, c'est indiqué dans l'aide en ligne ...

+

Théo

[EDIT] le lien vers la discussion en question : http://www.developpez.net/forums/sho...=184854&page=2

deja je ne vois pas ou tu ouvres et ferme le fichier ??
Code:

1 2 3 4 5 6 7 Print #FileNumber, Var1, Var2, Var3 Print #FileNumber, Var4, Var5, Var6 Print #FileNumber, Var7, Var8, Var9 Print #FileNumber, Var10, Var11, Var12 Print #FileNumber, Var13, Var14, Var15 Print #FileNumber, Var16
tu le fait plutot ici, ce qui je croit je devrais meme pas marcher.
Code:

1 2 3 4 5 6 7 Private Sub Form_Load() Dim fileNumer As Integer FileNumber = FreeFile Open "c:\test.txt" For Output As #FileNumber Close #FileNumber End Sub
tu devrais plutot ouvrir/fermer le fichier dans le Timer1_Timer, et l'ouvrir avec Append et non Output, ca devrais te donner ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Timer1_Timer() Dim fileNumer As Integer FileNumber = FreeFile '....... 'blablablablabla '....... Open "c:\test.txt" For Append As #FileNumber Print #FileNumber, Var1, Var2, Var3 Print #FileNumber, Var4, Var5, Var6 Print #FileNumber, Var7, Var8, Var9 Print #FileNumber, Var10, Var11, Var12 Print #FileNumber, Var13, Var14, Var15 Print #FileNumber, Var16 Close #FileNumber End Sub
[Edit]La remarque de Theo n'est pas mal venu, priere de faire un min de recherche, tu gagneras en temps.

Oups desole j'ai encore confondu de langage c'est aser frequent ca.

25/07/2006, 14h23
gaetan.tranvouez

je ne vois pas la diff avec moi sovo

tu utilise aussi open dans ton code
25/07/2006, 14h25
sovo

si j'avais une erreur de frappe, regarde encore j'ai editer mon post.

j'ai fait les modif

mais il ne m'accepte pas le append et je sais pas pourquoi

il me marque erreur de syntaxe

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
 
Private Sub Form_Load()
Set Récup = New RécupInfos
Set liaison = New Mlan
Set Récup.liais = liaison
 
End Sub
 
Private Sub Timer1_Timer()
'Command2.Enabled = False
StatusBar1.SimpleText = "Récupération en cours..."
Dim i, var As Integer
Dim val, 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
 
'Texte rajouté pour le stockage
 
Dim fileNumer As Integer
FileNumber = FreeFile
'Ouvre le fichier
open "c:\test.txt" For append As #FileNumber
'Lit la première ligne et la place dans Var1
 
'Ferme le fichier
Close #FileNumber
 
'App.TaskVisible = True
 
 
    Var1 = Text4(0).Text
Var2 = Text1(0).Text
Var3 = Text2(0).Text
 
Var4 = Text4(1).Text
Var5 = Text1(1).Text
Var6 = Text2(1).Text
 
Var7 = Text4(2).Text
Var8 = Text1(2).Text
Var9 = Text2(2).Text
 
Var10 = Text4(3).Text
Var11 = Text1(3).Text
Var12 = Text2(3).Text
 
Var13 = Text3(0).Text
Var14 = Text3(1).Text
Var15 = Text3(2).Text
 
Var16 = Text6.Text
 
 
Print #FileNumber, Var1, Var2, Var3
Print #FileNumber, Var4, Var5, Var6
Print #FileNumber, Var7, Var8, Var9
Print #FileNumber, Var10, Var11, Var12
Print #FileNumber, Var13, Var14, Var15
Print #FileNumber, Var16
 
Close #FileNumber

25/07/2006, 14h30
gaetan.tranvouez

merci je l'ai vu que ensuite que t'avais changé mais je m'en doutais, j'ai quand meme voulu etre sur...
25/07/2006, 14h35
Theocourant

Alors pour info l'ouverture de fichier, puisqu'il le faut, c'est :

Code:

Open "c:\test.txt" For Append As #FileNumber

L'aide existe !!!!! Si tu ne l'as pas j'ai mis le lien dans ma signature ...
:furax:
25/07/2006, 14h43
gaetan.tranvouez

ah ok merci

j'avais pas compris

quand ta di remplace open par append j'avais compris qu'il fallait faire
Append.....for output ...

et non

open ....for append ....

merci beaucoup

et pour mon histoire de boucle, quelquun a une idée svp?????????:)
25/07/2006, 15h21
Theocourant

Citation:

Envoyé par gaetan.tranvouez

et pour mon histoire de boucle, quelquun a une idée svp?????????:)

Quelle boucle ?
25/07/2006, 16h02
sovo

de quel boucle tu parles ??
25/07/2006, 16h28
gaetan.tranvouez
BAH en fait j'ai pensé que j'aurai pu faire comme pour plusieurs valeurs sur excel:
regardez pour excel ca donne ceci:
Code:

1 2 3 4 Static j As Long j = j + 1 wsExcel.Cells(3 + 3 * 2 * j, 1) = Text4(0).Text
j'aurai voulu savoir s'il était possible de l'aborder de la meme facon que comme ci dessus avec excel
25/07/2006, 18h46
Delbeke

Il existe deux autre façon d'ecrire dans un fichier, le mode binaire et le mode Random
Je ne dirais que : le mode d'acces random est peut être ta solution, regarde dans l'aide en ligne la fonction open,mode random.
25/07/2006, 20h04
AlainTech

Bon, Môsieur Gaëtan,

Faudrait arrêter de nous prendre pour ton aide en ligne!

Tu nous sers chaque fois le prétexte que tu ne l'as pas... Et bien, installe-la!

La programmation ne se fait pas au petit bonheur la chance en "essayant" des "trucs" mais bien en étudiant les références fournies par les éditeurs des langages.

Si ton boss (ou maître de stage) ne peut pas comprendre qu'il n'est pas possible de travailler sans un minimum de documentation, il est temps que tu cherches ailleurs sinon tu vas te faire bouffer.

Tes "tu peux m'expliquer ce que tu as écrit", je commence à en avoir soupé.

Tant ce site qu'Internet fourmille de tutos, de faq, d'exemples et autres explications.
Imprime-les, grave-les, photocopies-les, dors avec, fais ce que tu veux mais arrête de penser qu'un forum est un professeur (je dirais presque serviteur) particulier entièrement à ton service pour penser et faire tes devoirs à ta place.

Quand on te fournit un code, prends-le comme une chance de pouvoir étudier la syntaxe qui y est utilisée plutôt que de demander l'explication à chaque fois.

A l'avenir, je me permettrai de juger si tes questions méritent qu'on y réponde ou non en fonction de l'effort que tu auras fourni.

J'ai mis ce message sur le forum pour que ceux qui essayent de t'aider comprennent qu'ils ne t'aident, en fait, pas en te mâchant le travail comme ils le font.

Si tu as un problème avec ce que j'ai écrit ici, MP mais pas de réponse sur le forum.
25/07/2006, 20h12
sovo

+1
c'est vrai que ca commencais aussi a me souffler un peut mais je m'abstenais pour ne pas le choquer.
25/07/2006, 20h13
Delbeke

pareil

je sais je vais vous poser une question mais la j'ai vraiment cherché avant de venir. J'ai suivi l'aide de delbeke et ait choisi la fonction random, je suis allé sur l'aide vb6 donné par theocourant qui me l'a souvent rappelé et je suis arrivé a ceci:
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 Private Type Enreg Code As Integer Nom As String * 20 End Type Private Sub Timer1_Timer() Dim Ligne As Enreg ' Déclare la variable. Open "c:\test.txt" For Random As #1 Len = Len(Ligne) Put #1, 1, "exo1" Put #1, 2, "exo2" Put #1, 3, "exo3" Put #1, 4, "exo4" Close #1 End Sub
Mais voila, ces lignes(exo1, exo2...) se mettent les unes a coté des autres. Ca je veux le garder, mais je voudrais également savoir comment faire un saut de ligne.

merci d'avance

26/07/2006, 12h19
AlainTech

Un fichier Random n'est pas un fichier texte normal.
C'est un fichier de base de donnée destiné à être lu en utilisant un pointeur.
Il n'est donc pas judicieux de lui donner l'extension .txt ni de le lire avec un éditeur de texte.

ok donc j'ai cherché autre chose et j'ai trouvé cette technique, mais celle ci me met une erreur "Type activeX non géré dans visual Basic", et c'est la première fois que je vois cette erreur.

Mon nouveau code est celui ci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim fileNumer As Integer FileNumber = FreeFile Open "c:\test.txt" For output As #FileNumber Dim j As Constants j = j + 1 Dim var(1 + 5 * j) var(1 + 5 * j) = Text4(0).Text Print #FileNumber, var(1 + 5 * j),

Citation:
Envoyé par gaetan.tranvouez
ok donc j'ai cherché autre chose et j'ai trouvé cette technique, mais celle ci me met une erreur "Type activeX non géré dans visual Basic", et c'est la première fois que je vois cette erreur.

Mon nouveau code est celui ci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim fileNumer As Integer FileNumber = FreeFile 'Ouvre le fichier Open "c:\test.txt" For Append As #FileNumber 'Lit la première ligne et la place dans Var1 Dim j As Constants j = j + 1 Dim var(1 + 5 * j) var(1 + 5 * j) = Text4(0).Text Print #FileNumber, var(1 + 5 * j),
C'est quoi cette ligne ?
Code:

1 2 Dim j As Constants

Voir 40 message(s) de cette discussion en une page