Exporter résultat variable dans .txt

Bonjour,

Alors voilà, suite à mon précédent poste, j'arrive maintenant à afficher le contenu de ma variable.

Je souhaiterais exporter le contenu de cette variable dans un fichier texte qui s'appelera "la date du jour" (Ex: 30/07/10 pour demain, 31 pour après demain etc...).

Avez-vous une idée ? J'ai essayé plusieurs possibilité tels que saveas, save, savetofile, savetoO1olefile rien..

Citation:

---

Envoyé par DjPwneD

...J'ai essayé plusieurs possibilité tels que saveas, save, savetofile, savetoO1olefile rien..

---

ce n'est pas des fonctions VB6 standard.. cela ressemble a du VBA ...

Comment savoir si l'on utilise VBA (Visual basic pour application) ou VB6 ?


Pour écrire dans un fichier tu peu continuer sur le même principe que lors de ta lecture voir :
Tutoriel 24 : Les bases de la gestion de fichiers
Pour le "calculer" le nom du fichier utilise la commande Format (voir aide en ligne)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Command6_Click() Dim test As String, dat As String,numfich as integer     dat = Date 'récupération de "la date du jour" dans dat dat = Replace(dat, "/", "_")'remplace le caractère "/" (qui ne peut pas être utilisé pour nommer les répertoires) par "_" (tu peux mettre autre chose au lieu de "_")   test = "C:\" & dat & ".txt" 'concaténation qui donne le chemin total (aujourd'hui tu auras "C:\29_07_2010.txt")   'création du fichier txt newfiche (test) 'écriture dans le fichier numfich = FreeFile Open test For Output As #numfich Print #numfich, tavariable   Close #numfich 'fermeture   End Sub

---

code de la fonction newfich;

Code:

---

1 2 3 4 5 6 7 8

Public Sub newfich(che As String) Dim nmfich As Integer, adrnom As String adrnom = che nmfich = FreeFile Open adrnom For Output As #nmfich 'normalement cette instruction ouvre le fichier txt mais s'il n'existe pas elle le crée (une façon de le faire) Close #nmfich   End Sub

---

conseil : ajouter

Code:

---

option explicit

---

dans la zone de déclaration general dans toute form de tout projet

Je viens de terminer une application qui utilise les fichiers txt; création,suppression,écriture,lecture, copier-coller,test d'existences........, et je suis prêt à tout fournir (si tu auras besoin8-))

Citation:

---

Alors voilà, suite à mon précédent poste,........

---

il est utile d'indiquer le lien

Bonjour,

Alors, j'ai bien bouquiné hier soir sur ces commandes et en fait ce n'est pas bien "compliquer".

Voici ce que j'ai mis:

"

Citation:

---

Open "C:\Le " + Mid(Date, 1, 2) + "." + Mid(Date, 4, 2) + "." + Mid(Date, 7, 4) + ".log" For Output As #2
Print #2, Cpt&
Close #2

---

Cpt& pour le nom de ma variable

Bon, c'est quelque chose de basic mais il fait ce que je demande...

Par contre, avec ce que tu as proposé guefrachi, il n'y a aucune ressemblance...
Ca peut poser des soucis, même si je me doute qu'il n'y a pas "une" facon de pondre un le fichier?

Citation:

---

Envoyé par DjPwneD

Bonjour,

Alors, j'ai bien bouquiné hier soir sur ces commandes et en fait ce n'est pas bien "compliquer".

Voici ce que j'ai mis:

"

Cpt& pour le nom de ma variable

Bon, c'est quelque chose de basic mais il fait ce que je demande...

Par contre, avec ce que tu as proposé guefrachi, il n'y a aucune ressemblance...
Ca peut poser des soucis, même si je me doute qu'il n'y a pas "une" facon de pondre un le fichier?

---

Ta façon est celle de guefrachi pour ouvrir le fichier c'est la même !
la seule différence est que toi tu ouvre le fichier sans que son nom soit une variable, celle de guefrachi (plus propre), consiste à déclarer le nom du fichier dans une variable avant de l'ouvrir !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Open test For Output As #numfich Print #numfich, tavariable Close #numfich 'fermeture   si test = "C:\Le " + Mid(Date, 1, 2) + "." + Mid(Date, 4, 2) + "." + Mid(Date, 7, 4) + ".log"   alros ça revient au même de dire   Open "C:\Le " + Mid(Date, 1, 2) + "." + Mid(Date, 4, 2) + "." + Mid(Date, 7, 4) + ".log" For Output As #2 Print #2, Cpt& Close #2

---

Merci de l'info.

déconseillé:

Citation:

---

Open "C:\Le " + Mid(Date, 1, 2) + "." + Mid(Date, 4, 2) + "." + Mid(Date, 7, 4) + ".log" For Output As #2
Print #2, Cpt&
Close #2

---

recommandé:

Code:

---

1 2 3 4 5

numfich=freefile Open "C:\Le " + Mid(Date, 1, 2) + "." + Mid(Date, 4, 2) + "." + Mid(Date, 7, 4) + ".log" For Output As #numfich Print #numfich, Cpt& Close #numfich

---

Citation:

---

Ta façon est celle de guefrachi pour ouvrir le fichier c'est la même !

---

ça me rappelle une histoire amusante; des élèves (section littéraire) faisaient des mathématiques comme matière optionnelle, (y inclut l'étude des fonctions), à l'examen ils ont eu la question:

Citation:

---

étudier la fonction suivante:
g(x)=....

---

alors ils ont contesté à l'enseignant :

Citation:

---

nous avons étudié en cours f(x) et non pas g :mrgreen:

---

...

pour ton nom de fichier comme je pencherai plus comme je te l'ai écrit plus haut par l'utilisation de l'instruction format qui contrairement a vos Mid ou replace... ne dépends par de la configuration des options régionales de windows ( date
courte)

Code:

---

Open "C:\Le " & format(date,"dd.mm.yy") & ".log" For Output As #numfich

---