Comment lire un fichier .txt dans un label?

La Biode
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010
- 8 sept. 2005 à 21:29
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
- 9 sept. 2005 à 13:30
J'aimerais savoir comment lire le contenu d' un fichier .txt
enregistrer à l'avance à l'aide de bloc note (ex : c:\test.txt) dans un
label?

Merci de me répondre rapidement.

4 réponses

jnbrunet
Messages postés
258
Date d'inscription
samedi 25 décembre 2004
Statut
Membre
Dernière intervention
13 novembre 2012

8 sept. 2005 à 21:56
Il y a énormément de source sur sa...tu aurais pu chercher un peu au moin....

On Error GoTo Err:
Dim ligne


Open "c:\test.txt" For Input As 1


Do Until EOF(1)
Line Input #1, ligne


Label1.Caption = Label1.Caption & ligne & vbCrLf


Loop
Close #1
Exit Sub
Err:
MsgBox "Une erreur s'est produite...vérifi ton code"

Jn
0
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
8 sept. 2005 à 22:02
Salut La Biode,

Pour compléter la réponse de jnbrunet :



Et avec un petit Bonjour, Salut, Hello, ou se que tu veux ça aurait été bien mieux ;)
ça coûte rien, et c'est toujours plus agréable...

++

Zlub
0
La Biode
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010

8 sept. 2005 à 22:10
Ok merci bien. Et dsl pour le salut j' ai oublier.

+++
0
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
9 sept. 2005 à 13:30
Autre solution de code sans boucle, donc a priori plus raipde ...

Open "c:\test.txt" For Input As 1
Label1.Caption = input(lof(1),#1)
Close #1
0