linkinpar236737
Messages postés161Date d'inscriptionjeudi 20 mars 2003StatutMembreDernière intervention 7 mai 2007
-
23 juil. 2003 à 23:28
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 2019
-
24 juil. 2003 à 01:56
Imaginons que j'ai un label qui se nomme label1 et j'ai également un fichier texte se nommant texte.txt. J'aimerai qu'au chargement de la feuille, le contenu du label soit le contenu du fichier texte.
PatDeLaYaute
Messages postés133Date d'inscriptiondimanche 28 avril 2002StatutMembreDernière intervention15 janvier 20093 24 juil. 2003 à 00:30
salut,
pour ouvrir ton fichier texte.txt fait comme ca :
'Déclaration des variables
Dim F as Integer 'Variable de stockage du n° de fichier libre
Dim Nf as String 'Variable de staockage du nom du fichier
Dim Ligne as String 'Variable de stockage de la ligne lus
F = Freefile 'Renvoie le n° de fichier libre
Nf = "texte.txt" 'Ici remplace par le chemin d'accès au fichier
Open Nf for input as #F 'Ouvre le fichier
'Effectue une boucle jusqu'a la fin du fichier
Do While Not Eof(F)
'Lit la ligne dans le fichier
Line Input#F, Ligne
'Place le texte dans le label
Label1.Caption = Label1.Caption & Ligne
Loop ' Termine la boucle
Close#F 'Ferme le fichier