Ouvrir et enregistrer une listbox dans un fichier texte

Signaler
Messages postés
12
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
19 novembre 2002
-
Messages postés
12
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
19 novembre 2002
-
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

Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

'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
Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003

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
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

J'y était presque ;)

>:) ::Alan USSE:: >:)
0
Messages postés
12
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
19 novembre 2002

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
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

C pas possible !
Kel erreur ca fait ?

>:) ::Alan USSE:: >:)
0
Messages postés
12
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
19 novembre 2002

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
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

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
Messages postés
12
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
19 novembre 2002

Caye c bon ca marche, super cool
0
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

Eh ba, C cool...

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

>:) ::Alan USSE:: >:)
0
Messages postés
12
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
19 novembre 2002

ouais, je vais bientot pouvoir poster un prog sur vbfrance, il sappelle "newsletter sender" et le nom resume très bien sa fonction...
0