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
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
A voir également:
- Comment lire un fichier .txt dans un label?
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Lire un fichier en c - Forum C / C++ / C++.NET
- Fichier json - Conseils pratiques -Javascript
- Comment savoir si un fichier est une image - Forum C# / .NET
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
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
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
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
8
8 sept. 2005 à 22:02
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
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
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
8 sept. 2005 à 22:10
Ok merci bien. Et dsl pour le salut j' ai oublier.
+++
+++
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
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
Open "c:\test.txt" For Input As 1
Label1.Caption = input(lof(1),#1)
Close #1
