Dane6
Messages postés24Date d'inscriptionmercredi 16 avril 2008StatutMembreDernière intervention28 mai 2008
-
24 mai 2008 à 09:33
Dane6
Messages postés24Date d'inscriptionmercredi 16 avril 2008StatutMembreDernière intervention28 mai 2008
-
26 mai 2008 à 17:22
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
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201117 24 mai 2008 à 09:36
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>