List

Résolu
cs_Ulysse3 Messages postés 100 Date d'inscription vendredi 2 juillet 2004 Statut Membre Dernière intervention 25 mai 2019 - 3 févr. 2005 à 02:25
cs_Ulysse3 Messages postés 100 Date d'inscription vendredi 2 juillet 2004 Statut Membre Dernière intervention 25 mai 2019 - 27 févr. 2005 à 18:36
Ok Juste un question comme sa comment on fait pour saver une list

--------------------------------------------------------------------
On Error Resume Next
Dim FileName$,


FileName$ = App.Path + "\List.data"


Open FileName$ For Output As 1
Print #1, L1.List
Print #1, List1.List
Close #1
----------------------------------------------------------------------
Sa c'est ce que je fais et sa marche pas.
Pouvez vous m'aider!

L'informatique c'est cool Mais Une erreur peu etre fatale.

3 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
3 févr. 2005 à 10:12
Les deux listes sont enregistrées l'une derrière l'autre dans le même fichier :





On Error Resume Next
Dim FileName$,

Dim i




FileName$ = App.Path + "\List.data"




Open FileName$ For Output As #1

For i=0 to L1.ListCount-1


Print #1, L1.List(i)


Next i

For i=0 to List1.ListCount-1



Print #1, List1.List(i)


Next i

Close #1







Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
3
22max Messages postés 72 Date d'inscription vendredi 8 octobre 2004 Statut Membre Dernière intervention 16 mars 2007
3 févr. 2005 à 09:21
ben a première vue, tu as oublié le # sur la ligne open ...

Errare Humanum Est
22maX
0
cs_Ulysse3 Messages postés 100 Date d'inscription vendredi 2 juillet 2004 Statut Membre Dernière intervention 25 mai 2019
27 févr. 2005 à 18:36
Merci!

L'informatique c'est cool Mais Une erreur peu etre fatale.
0
Rejoignez-nous