Discussion :

[jerzy59]

Bonjour.
J'ai le code suivant

Code :

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

1
2
3
4
 
Open (Chemin2 & "\Rapport.txt") For Output As #1
    Print #1, heure & Text2.Text
   Close #1

Ceci permet donc au programme d'écrire une ligne (le contenu de text2.text et l'heure) dans un fichier nommé rapport.txt
Le problème est que, comme cette partie de programme se trouve dans une boucle while, à l'itération suivante, la ligne du fichier rapport.txt va etre écrasée par la nouvelle alors que j'aimerai qu'a la fin de chaque ligne, un saut de ligne soit effectué. Ainsi si j'ai 5 itérations, il y a 5 lignes dans le programme.
Comment puis-je faire ?

[AlainTech]

Sortir le Open de la boucle...

[Catbull]

Open se trouve-t-il dans la boucle?

[jerzy59]

Merci c'était tout bête en fait.

Et j'aimerai également pouvoir lire la derniere ligne écrite dans ce fichier.
Comment puis-je faire ?

[Catbull]

La dernière ligne que tu as générée?

[jerzy59]

Oui. PLus loin dans le programme j'aimerai pouvoir lire la derniere ligne de mon fichier et l'afficher dans un objet text

[Catbull]

Si ton programme génére le fichier, il n'est pas utile de l'ouvrir pour déterminer le contenu de la dernière ligne.

Tu peux placer ton texte dans une variable temporaire qui est écrasée à chaque passage de ta boucle.

Il ne te restera plus qu'a lire la variable pour connaitre la dernière ligne générée.

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim ligne as String
 
While Condition
    ligne = heure & Text2.Text
    Print #1, ligne
 
    [instructions]
While

Pour connaitre la dernière ligne, il suffit de lire la variable ligne

[jerzy59]

J'ai sorti la demande d'ouverture du fichier de ma boucle (pour le mettre dans le form load) et lorsque je vais dans une autre fenetre avant de revenir dans ma fenetre principale j'obtiens une erreur "fichier deja ouvert".

Et ou que je mette mon ouverture dans mon programme je me retrouve confronté à cette erreur.
De ce fait je ne sais pas trop ou mettre l'ouverture de fichier

[SfJ5Rpw8]

ben si tu ouvre le fichier dans le form_load... il faut le fermer quelque part...!..

sinon tu nous as pas dit quel était l'événement déclencheur de l'écriture ... pour rajouter à un fichier existant tu peu faire

Code :

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

1
2
3
 Open (Chemin2 & "\Rapport.txt") For Append As #1
    Print #1, heure & Text2.Text
   Close #1

[jerzy59]

L'évenement déclencheur est l'heure. Lorsqu'on atteint une heure définie par l'utilisateur, le programme ouvre le fichier et y inscrit quelques lignes.
J'ouvre donc le fichier au début dans le form load puis je change de fenetre pour parametrer l'heure à laquelle le programme "s'actionnera" et j'ai donc l'erreur "fichier deja ouvert" lorsque je retourne sur ma fenetre principale

[ennamsaoui]

Bonjour.

J'ai le code suivant

Code :

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

1
2
3
4
 
Open (Chemin2 & "\Rapport.txt") For Output As #1
    Print #1, heure & Text2.Text
   Close #1

slt
il faut simplement akjouter un retour a la ligne:

Code :

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

Print #1, heure & Text2.Text & vbCrLf

voila

[jerzy59]

Oui mais dans ce cas la, chaque fois que le fichier s'ouvre a nouveau, les nouvelles données écrasent les anciennes.

J'ai essayé de ne pas fermer le fichier afin que les nouvelles données s'affichent sous les anciennes mais à ce moment la je n'ai plus acces à mes données dans le fichier si le programme tourne encore

[ennamsaoui]

j'ai le meme probleme ke toi, et j'ai tjr pas la reponse!!
ce que j'ai fait c'est de copier les donnees ds un autre fichier et r'ajouter les nvlle données.
et l'ancien fichier je le supprime.
c pas tres propre. mais si tu'a pas un fichier consequent c marche bien!!
essai tjr!!
bon courage

[Jihnn]

Bonjour,

La réponse se trouve sur MSDN !
En fait, For output n'est pas la seule possibilité. Ce que tu veux faire, c'est For append

Code :

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

1
2
3
Open Chemin For Append As #1
 'Tu fais ce que tu veux
Close #1

[jerzy59]

Hé bien cela fonctionne parfaitement ... merci beaucoup

[Vesta]

Donc

Code :

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

1
2
3
Open (Chemin2 & "\Rapport.txt") For Append As #1
    Print #1, heure & Text2.Text
Close #1