Plusieurs lignes

Résolu
nuttyfbr Messages postés 57 Date d'inscription mardi 31 août 2004 Statut Membre Dernière intervention 8 octobre 2006 - 21 janv. 2005 à 20:09
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 - 21 janv. 2005 à 20:48
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

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
21 janv. 2005 à 20:48
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
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
21 janv. 2005 à 20:40
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
0
nuttyfbr Messages postés 57 Date d'inscription mardi 31 août 2004 Statut Membre Dernière intervention 8 octobre 2006
21 janv. 2005 à 20:43
Et pour les réouvrir ?

NuttyKizzy
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
21 janv. 2005 à 20:48
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
0