Discussion :

[nicodiablo]

Bonjour,

j'ai créé une petite interface en VB qui me permet de récupérer des données d'un capteur d'accélération.

Sur une des fenêtres j'ai 2 boites text (un labelVit pour la vitesse, un labelVit1 pour une seconde viteese). Ce programme fonctionne en direct, à savoir que toutes les 10sec j'ai un nouvel affichage de ma vitesse 1 et de ma vitesse 2.

Jusqu'à présent je notais à la main les différentes vitesses durant le test. Aujourd'hui j'aimerais créer pouvoir les sauver dans un fichier .csv pour les retraîter derrière.

J'ai tenté plusieurs chose, avec les fonctions Print, a.writeline... mais je n'ai pas réussi.

Ma question est simple comment ouvrir un fichier .csv qui toutes les 10secs m'affiche mes deux valeurs de vitesses cote à cote séparé par un point virgule.

Pour le moment j'ai mis dans ma boucle ce

Code :

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

1
2
3
4
5
6
7
8
9
Dim fs As Object
Dim a As Object
Dim ligne As String
 
Set fs = CreateObject("Scripting.FilesSystemObject")
 
Set a = fs.CreateTextFile(Trim(VarPattApplication) & "\test.cfg", 1, 0)
a.writelLine (TextVitesse1 & ";" & TextVitesse2)
a.Close

Seulement dans ma boucle toutes les 10 secondes j'écrase mes deux valeurs au lieu de ré-écrire à la ligne suivante les deux nouvelles :

ex :
2km;3km
1km;4km (10 secondes après)
....

Si quelqu'un peut m'aider.
Merci bcp.

[iclic]

Bonjour,

Mets dans ta boucle:

Code :

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

1
2
3
4
5
6
Open nomdufichier For Append as numerodubuffer

Print #numerodubuffer, tes valeurs

Close Numerodubuffer

Append pour ne pas écraser tes valeurs

A+

[nicodiablo]

Bonjour,

Mets dans ta boucle:

Code :

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

1
2
3
4
5
6
Open nomdufichier For Append as numerodubuffer

Print #numerodubuffer, tes valeurs

Close Numerodubuffer

Append pour ne pas écraser tes valeurs

A+

Merci pour cette réponse.
Mais je ne comprends pas à quel moment je dois mettre ça ? Je garde toujours le code que j'ai écrit plus haut ???

[nicodiablo]

Bon vous allez pouvoir fermer le sujet car j'ai trouvé la réponse. J'ai en fait créé une nouvelle fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub AddLineToFile(ByVal FileName As String, ByVal NewLine As String)
 
    Dim f As Integer
 
    f = FreeFile
    Open FileName For Append As #f
        Print #f, NewLine
    Close #f
 
End Sub

Puis en suite dans ma boucle de calcul de vitesse je l'appelle :

Code :

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

Call AddLineToFile(Trim(VarPathApplication)  "\test.csv", TextVit1, TextVit2)

Et ça fonctionne terrible !!

[M E H D I]

Salut, essaie cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub WriteFile()
 
Dim  text As String
 
Open "File.csv" For Append As #1  'sans écraser le contenu 
text = TextVitesse1 & ";" & TextVitesse2
Print #1, text
 
Close #1
 
End Sub

[M E H D I]

Bon apparemment t'as trouvé la solution tout seul comme un grand.
J'étais entrain d'écrire et je n'ai pas vu ta réponse.

Clique maintenant sur