Discussion :

[gaetan.tranvouez]

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 :

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
 
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
 
...

[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é .
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

[sovo]

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

Code :

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

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 :

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

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 :

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
 
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.

[gaetan.tranvouez]

je ne vois pas la diff avec moi sovo

tu utilise aussi open dans ton code

[sovo]

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

[gaetan.tranvouez]

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 :

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
 
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

[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...

[Theocourant]

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

Code :

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

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 ...

[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?????????

[Theocourant]

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

Quelle boucle ?

[sovo]

de quel boucle tu parles ??

[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 :

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

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

[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.

[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.

[sovo]

+1
c'est vrai que ca commencais aussi a me souffler un peut mais je m'abstenais pour ne pas le choquer.

[Delbeke]

pareil

[gaetan.tranvouez]

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 :

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
 
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

[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.

[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 :

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

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),

[Delbeke]

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 :

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

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 :

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

1
2
 
Dim j As Constants