Lire un fichier txt et l'afficher complet dans un Label [Résolu]

Signaler
Messages postés
24
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008
-
Messages postés
24
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008
-
Bonjour,

Pouvez-vous me dire comment lire un fichier Txt dans sa totalité et le stocker dans une variable pour l'afficher dans le Label.
Quand j'utilise : Open "fichier" for append as #1
                            input #1, variable
                         Close #1
   
                         Lbl1.Caption = variable

Il me met que c'est pas la bonne méthode, pourquoi je ne sais pas... ???
Alors je mets ceci : Open "fichier" for input as #1
                                input #1, variable

                              Close #1

   

                         Lbl1.Caption = variable

Cela fonctionne toujours pas...
Alors je fais une p'tite recherche et je trouve :
Open "J:\VB_Qualification_2008_Finale\DAT\InscriptionEvenement.txt" For Input As #1
        While Not EOF(1)
            Input #1, a$
            Text1 = Text1 + Chr$(13) + Chr$(10) 
        Wend
Close #1

Mais rien ne s'affiche ... je sais plus quoi faire
Pouvez-vous m'aider svp
Merci d'avance

4 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut;

    Dim sContenu As String
    Dim ff As Integer
    
ff = FreeFile

Open sCheminEtNomEtExtension For Input As #ff
    sContenu = Input$(LOF(ff), #ff)
Close #ff
MsgBox sContenu
 ~ <small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Messages postés
24
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008

Mon Fichier Txt contient plusieurs lignes, au cas où...
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
ça change rien au code proposé

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Messages postés
24
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008

Merci beaucoup mais peut-tu m'expliquer un peu le code stp ? merci