Creation fichier txt

Bonjour a tous,

j'ai trouver plusieurs souce parlant de la creation de fichier ou l'utilisation d'un fichier txt existante, mais rien de claire. est-ce que quelqu'un peut me dire comment creer un fichier txt avec un nom que je fais lui attribuer lors de l'execution et s'il est possible de m'expliquer les commande utiliser pour cette creation.


Merci a vous!


DraaFil

Open "c:\toto.txt" for output as #1
   Print #1, "bonjour"
Close #1
open "c:\toto.txt" for input as #1
   Input #1, a
   Print a
Close #1

au début tu ouvre le fichier c:\toto.txt pour écrire (output) comme le numéro 1 (ça te permet d'ouvrir 15fichiers en même temps)
ensuite tu écrit "bonjour" dans ce fichier
tu le fermes

ensuite tu ouvre toto.txt (le même) pour lire dedans (input), même explication pour le numéro.
ensuite tu met le premier mot du fichier dans la variable a (attention au type de variable)
ensuite tu écris sur ta forme ce qu'il y a dans la variable a (ici "bonjour" car c'est le seul mot du fichier)
tu fermes le fichier

Justement, je veux creer un fichier qui n,existe pas et le nom de ce fichier sera la date

Si le fichier n'existe pas, il est automatiquement créé

Salut,
Dim srtFile as string
Dim intFile as interger
Dim strInputed as string

    strFile = "c:\" & day(date) & "-" & month(date) & "-" & year(Date) & ".txt" 'Permet de créer un nom de fichier compatible windows (sans les slash) : ici c'est sous c ais tu peux le mettre ou tu veux
    intFile = freefile 'Permet de créer un numéro automatique de fichier libre
   
    Open strFile for output as #intFile 'Pour écrire dedans
    Print #intFile, "chaine de caractère"
    Close #intFile 'Pour fermer et libérer le numéro de fichier

    While not (intFile.EOF) 'Permet de balayer ton fichier jusqu'à la fin
        Open strFile for input as #IntFile
        Input #IntFile, strInputed 'Contient une ligne de ton fichier
    Loop
   

 Fiko ;-)

La reponse vous convient pensez > Accepter <

---

 Fiko ;-)

La reponse vous convient pensez > Accepter <

---

ok merci a vous tous, je vais essayer cela!

Je vais embeter un peu fiko81 (pour le plaisir), en signalant qu'il est également possible de faire:

dim temp as string
dim i as integer

temp = date
for i = 1 to len(date)
   if mid(temp, i, 1) = "\" then mid(temp, i, 1) = "-"
next i

strFile = "c:\" + temp

Oups, j'ai oublié la fin :

strFile = "c:\" + temp + ".txt"

ça permet de pas avoir une ligne à rallonge genre :

strFile = "c:\" & day(date) & "-" & month(date) & "-" & year(Date) & ".txt"

Mais sinon ça fonctionne quand même.

Soyons fou, on peut encore mieux faire :
strFile = replace(cstr(date), "\", "-")
on évite encore ça :
temp = date
for i = 1 to len(date)
   if mid(temp, i, 1) = "\" then mid(temp, i, 1) = "-"
next i

Pour le plaisir aussi ne le prend pas mal

 Fiko ;-)

La reponse vous convient pensez > Accepter <

---