Lire un fichier texte
linkinpar236737
Messages postés
161
Date d'inscription
jeudi 20 mars 2003
Statut
Membre
Dernière intervention
7 mai 2007
-
23 juil. 2003 à 23:28
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 24 juil. 2003 à 01:56
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 24 juil. 2003 à 01:56
2 réponses
PatDeLaYaute
Messages postés
133
Date d'inscription
dimanche 28 avril 2002
Statut
Membre
Dernière intervention
15 janvier 2009
3
24 juil. 2003 à 00:30
24 juil. 2003 à 00:30
salut,
pour ouvrir ton fichier texte.txt fait comme ca :
'Déclaration des variables
Dim F as Integer 'Variable de stockage du n° de fichier libre
Dim Nf as String 'Variable de staockage du nom du fichier
Dim Ligne as String 'Variable de stockage de la ligne lus
F = Freefile 'Renvoie le n° de fichier libre
Nf = "texte.txt" 'Ici remplace par le chemin d'accès au fichier
Open Nf for input as #F 'Ouvre le fichier
'Effectue une boucle jusqu'a la fin du fichier
Do While Not Eof(F)
'Lit la ligne dans le fichier
Line Input#F, Ligne
'Place le texte dans le label
Label1.Caption = Label1.Caption & Ligne
Loop ' Termine la boucle
Close#F 'Ferme le fichier
Bonne prog
@+
PatDeLaYaute
pour ouvrir ton fichier texte.txt fait comme ca :
'Déclaration des variables
Dim F as Integer 'Variable de stockage du n° de fichier libre
Dim Nf as String 'Variable de staockage du nom du fichier
Dim Ligne as String 'Variable de stockage de la ligne lus
F = Freefile 'Renvoie le n° de fichier libre
Nf = "texte.txt" 'Ici remplace par le chemin d'accès au fichier
Open Nf for input as #F 'Ouvre le fichier
'Effectue une boucle jusqu'a la fin du fichier
Do While Not Eof(F)
'Lit la ligne dans le fichier
Line Input#F, Ligne
'Place le texte dans le label
Label1.Caption = Label1.Caption & Ligne
Loop ' Termine la boucle
Close#F 'Ferme le fichier
Bonne prog
@+
PatDeLaYaute
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
5
24 juil. 2003 à 01:56
24 juil. 2003 à 01:56
ou encore plus simplement
Open "c:\fichier" For Input As #1
Text1 = Input(LOF(1), #1)
Close #1
'ps : n oublie pas de mettre multiligne=true au text1
Open "c:\fichier" For Input As #1
Text1 = Input(LOF(1), #1)
Close #1
'ps : n oublie pas de mettre multiligne=true au text1
