créer et ecrire dans un fichier

Question

j'ai la procedure qui permet de lire une chaie de caractere &#224; partir du port
 serie et de la stoker dans un string .
s'il vous plais je voudrais si c'est possible une procedure qui permet :
a chaque fois que lorsque je stocke ce string
 cr&#233;er un fichier, lui donner un nom et de l'ouvrir pour &#233;crir  ce string
dedans et de le fermer ce fichier puis le prochain string dans un autre fichier ainsi de 
suite je vous remercie infiniments.

cs_hassen · Answer

bonjour,

voici une fonction qui te permettra de faire ce dont tu a besoin

Public Function EcrireDansUnFichier(s As String, fichier As String)
Dim pv_file As Integer
    pv_file = FreeFile + 1
    Open fichier For Append As #pv_file
        Print #pv_file, s
    Close pv_file
End Function

exemple:
EcrireDansUnFichier "hassen", "c:\hassen.txt"
ceci creera un fichier nomm&#233; hassen.txt dans "c:" dans le quel il est ecrit "hassen"

Hassen TUNISIE

crenaud76 · Answer

Hassen < Pourquoi faire "pv_file = Freefile + 1" ??? Tu cours au clash !!!!
En effet, Freefile te retourne le 1er num de fichier disponible (mettons 5) si tu fait +1 dessus, tu te retrouves avec un 6 et le num de fichier 6 peut &#234;tre d&#233;j&#224; utilis&#233; !!! A moins que tu ne fasse TOUJOURS un freefile +1 !! C'est un peu inutile non ?

Christophe R

cs_hassen · Answer

Christophe R <j'avais fait attention merci pour la remarque.

Hassen TUNISIE

cs_hassen · Answer

Christophe R <j'ai pas fait attention merci pour la remarque.

Hassen TUNISIE

Créer et ecrire dans un fichier

4 réponses

Discussions similaires