1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

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

Réponse 1 / 4
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
Réponse 2 / 4
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ù...
Réponse 3 / 4
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
Réponse 4 / 4
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
Répondre Posez votre question