Ouvrir et enregistrer une listbox dans un fichier texte

Question

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)

Alan71 · Answer

'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::  >:)

Int19h · Answer

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

Alan71 · Answer

J'y était presque ;)

 >:)  ::Alan USSE::  >:)

cs_Chenzen · Answer

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)

Alan71 · Answer

C pas possible !
Kel erreur ca fait ?

 >:)  ::Alan USSE::  >:)

cs_Chenzen · Answer

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

Alan71 · Answer

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::  >:)

cs_Chenzen · Answer

Caye c bon ca marche, super cool

Alan71 · Answer

Eh ba, C cool...

C grace à moi ???(dis moi que G été utile à qqch, dis-le !)

 >:)  ::Alan USSE::  >:)

cs_Chenzen · Answer

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