Plusieurs lignes

Résolu
Signaler
Messages postés
57
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
8 octobre 2006
-
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
Salut, j'ai trois labels, et je voudrais les enregistrer tous dans le
mêm ficher, sur des lignes différentes. Mais de façon à pouvoir les
réouvrir après ...



Merci

NuttyKizzy

4 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Dim s As String



Open "Nom du fichier" For Input As #1

Input #1, s
Label1.Caption = s


Input #1, s


Label2.Caption = s


Input #1, s


Label3.Caption = s


Close #1

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
Open "Nom du fichier" For Output As #1



Print #1, Label1.Caption

Print #1, Label2.Caption

Print #1, Label3.Caption


Close #1


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com
Messages postés
57
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
8 octobre 2006

Et pour les réouvrir ?

NuttyKizzy
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
dim sTexte(3)



Open "Nom du fichier" For Input As #1



Line Input#1, sTexte(0)

Line Input#1, sTexte(1)


Line Input#1, sTexte(2)




Close #1


Label1.Caption = sTexte(0)

Label2.Caption = sTexte(1)

Label3.Caption = sTexte(2)



Mais la prochaine fois fais une recherche sur le forum : c'est le genre de questions qui reviennent assez souvent...


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com