Code avec fichier .txt en entrée et sortie.
boboker
Messages postés
3
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
18 juillet 2007
-
17 juil. 2007 à 08:54
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 17 juil. 2007 à 17:20
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 17 juil. 2007 à 17:20
4 réponses
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
17 juil. 2007 à 08:59
17 juil. 2007 à 08:59
Bonjour,
Les sources à ce propos ne manquent pas sur ce forum.
Une toute petire recherche avec les mots LIRE ECRIRE FICHIER t'y conduira.
Les sources à ce propos ne manquent pas sur ce forum.
Une toute petire recherche avec les mots LIRE ECRIRE FICHIER t'y conduira.
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
17 juil. 2007 à 09:01
17 juil. 2007 à 09:01
Autre mot clé : OPEN
boboker
Messages postés
3
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
18 juillet 2007
17 juil. 2007 à 09:03
17 juil. 2007 à 09:03
Ok merci.
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
17 juil. 2007 à 17:20
17 juil. 2007 à 17:20
dim v as string
'Recuperation des données
open "monfichier.txt" for binary as #1
v=string(lof(1),0)
get #1,,v
close #1
'Ici v contient les donnée du fichier text
msgbox v
'Sauvegarde des données
if dir("monfichier.txt) then kill "monfichier.txt"
open "monfichier.txt" for binary as #1
put #1,,v
close #1
@+
'Recuperation des données
open "monfichier.txt" for binary as #1
v=string(lof(1),0)
get #1,,v
close #1
'Ici v contient les donnée du fichier text
msgbox v
'Sauvegarde des données
if dir("monfichier.txt) then kill "monfichier.txt"
open "monfichier.txt" for binary as #1
put #1,,v
close #1
@+
E.B.