Ouvrir et enregistrer une listbox dans un fichier texte

cs_Chenzen Messages postés 12 Date d'inscription mercredi 16 octobre 2002 Statut Membre Dernière intervention 19 novembre 2002 - 16 oct. 2002 à 13:12
cs_Chenzen Messages postés 12 Date d'inscription mercredi 16 octobre 2002 Statut Membre Dernière intervention 19 novembre 2002 - 21 oct. 2002 à 21:01
Salut, après de multiples essaies qui ont tous échoués, j'aimerai clairement savoir comment enregistrer et ouvrir une listbox dans un fichier texte.
Merci d'avance

www.directdldivx.fr.st (site avec tous mes progs)

10 réponses

Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
16 oct. 2002 à 13:55
'enregistrer
Open Mon_Chemin for output as #1

For I=0 to list.listcount-1
print #1, list.list(I)
next

Close #1

'ouvrir
open Mon_Chemin for input as #1

do while not eof(1)
line input #1, txt
list.additem txt
loop

close #1

Ca devrait marcher

>:) ::Alan USSE:: >:)
0
Int19h Messages postés 58 Date d'inscription jeudi 25 avril 2002 Statut Membre Dernière intervention 19 juillet 2003
16 oct. 2002 à 13:57
Salut

Sauver une ListBox :
open "nomfichier.txt" for output as #1
for a=0 to List1.ListCount-1
Print #1, List1.List(a)
next
close

Ouvrir :
List1.Clear
open "nomfichier.txt" for input as #1
do while eof(1)
line input #1, a$
List1.Additem a$
loop
close

Ouvrir dans un TextBox :
z$=""
open "nomfichier.txt" for input as #1
do while eof(1)
line input #1, a$
z$=z$ + a$
loop
close
Text1 = z$

++

int19h
0
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
16 oct. 2002 à 16:51
J'y était presque ;)

>:) ::Alan USSE:: >:)
0
cs_Chenzen Messages postés 12 Date d'inscription mercredi 16 octobre 2002 Statut Membre Dernière intervention 19 novembre 2002
18 oct. 2002 à 22:29
Malheureusement, ca ne fonctionne pas, ca n'enregistre pas et lorsque jouvre et ben ca plante

www.directdldivx.fr.st (site avec tous mes progs)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
19 oct. 2002 à 13:11
C pas possible !
Kel erreur ca fait ?

>:) ::Alan USSE:: >:)
0
cs_Chenzen Messages postés 12 Date d'inscription mercredi 16 octobre 2002 Statut Membre Dernière intervention 19 novembre 2002
19 oct. 2002 à 16:17
Voila le code et l'erreur lorsque j'appui sur ouvrir (command6) est une erreur d'execution '424' un objet est requis.

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
List1.AddItem Text2.Text
Text2.Text = ""
End Sub

Private Sub Command4_Click()
List1.RemoveItem Index
End Sub

Private Sub Command5_Click()
Open App.Path & "\list.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
List.AddItem txt
Loop
Close #1
End Sub

Private Sub Command6_Click()
Open App.Path & "\list.txt" For Output As #1
For I = 0 To List.ListCount - 1
Print #1, List.List(I)
Next
Close #1
End Sub
0
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
19 oct. 2002 à 17:32
Ca, ca me troue le Q!
C pu de DD, mais j'aurais aimé tester. Y doit y avoir une erreur à la con qui traine... mé la, je vois pô.

Sur quelle valeur de I il plante ?

>:) ::Alan USSE:: >:)
0
cs_Chenzen Messages postés 12 Date d'inscription mercredi 16 octobre 2002 Statut Membre Dernière intervention 19 novembre 2002
20 oct. 2002 à 23:47
Caye c bon ca marche, super cool
0
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
21 oct. 2002 à 19:59
Eh ba, C cool...

C grace à moi ???(dis moi que G été utile à qqch, dis-le !)

>:) ::Alan USSE:: >:)
0
cs_Chenzen Messages postés 12 Date d'inscription mercredi 16 octobre 2002 Statut Membre Dernière intervention 19 novembre 2002
21 oct. 2002 à 21:01
ouais, je vais bientot pouvoir poster un prog sur vbfrance, il sappelle "newsletter sender" et le nom resume très bien sa fonction...
0
Rejoignez-nous