PDA

Afficher la version complète : lire ecrire avec 2 listbox dans fichier



gilles
21/06/2004, 15h25
Bonjour,
J\'ai 2 listbox en lecture et ecriture en visual basic sur un fichier ,il me faudrait s\'il vous plait un exemple que list1 et list2 ne se méllange pas
je vous remerci d\'avance
pour l\'instant j\'ai se qui suis. En lecture j\'ai tout qui va sur list1 et list2 sans se partager



Private Sub mnufilesaveas_Click()
On Error GoTo comerrorhandler
boite.ShowSave
Open boite.FileName For Append As #1
For xa = 0 To List1.ListCount - 1
Print #1, List1.List(xa)
Next xa
Close #1
For xb = 0 To List2.ListCount - 1
Print #2, List2.List(xb)
Next xb
Close #2
comerrorhandler:
End Sub
Private Sub mnuouvrir_Click()
On Error GoTo comerrorhandler
boite.ShowOpen
Open boite.FileName For Input As #1
List1.Clear
Input #1, xa
List1.AddItem xa
Do Until (EOF(1))
Line Input #1, xa
List1.AddItem xa
Loop
Close #1
Open boite.FileName For Input As #2
List2.Clear
Line Input #2, xb
List2.AddItem xb
Do Until (EOF(2))
Input #2, xb
List2.AddItem xb
Loop
Close #2
comerrorhandler:
End Sub

Visiteur MP
21/06/2004, 16h24
pas tout compris.

2 listbox a enregistrer en lecture et ecriture
si on enregistre c\'est donc en écriture,
enregistrer la lecture ?

pas que list1 et list2 se mélangent
je ne comprend pas la question là non plus,
que doit on enregistrer ? lire ?
@+

xidma
21/06/2004, 18h28
Bonjour
Merçi Bul pour l\'intervention
La question est trop obcure, faite nous voir un bout de code ou explique d\'avantage
:wink:
Merçi

Visiteur MP
22/06/2004, 09h21
bonjour,
si je comprend bien : lire et
ecrire le contenu de 2 ListBox
dans un fichier.
plusieurs \"solutions\" possibles
( une remarque au préalable :
Open boite.FileName For Append As #1
c\'est pour \"écrire à la suite\" des données
existantes dans le fichier, est-ce ce qui
est voulu ? sinon faire For OutPut )
_ mettre un \"repère\" sur chaque ligne
qui indique \"où va\" cette ligne, du style :
1ligne pour listbox1
1ligne pour listbox1...
2ligne pour listbox2
1ligne pour listbox2...
_ mettre une ligne qui indique que
les lignes qui suivent vont dans
\"tel listbox\".
_ écrire les listbox dans 2 fichiers différents...
il doit y avoir d\'autres possibilités.
@+

gilles
22/06/2004, 15h56
écriture :



dim n,xa as integer
n=freefile
Open \"fichier\" For Output As #N
For xa = 0 To List1.ListCount - 1
Print #1, \"1\";List1.List(xa)
Next xa
For xa = 0 To List2.ListCount - 1
Print #1, \"2\";List2.List(xa)
Next xa
Close #n



lecture



dim n as integer,xa as string
n=freefile
Open \"fichier\" For input As #N
while not eof(n)
line Input #n, xa
select case left$(xa,1)
case = \"1\"
List1.AddItem right$(xa,len(xa)-1)
case = \"2\"
List2.AddItem right$(xa,len(xa)-1)
end select
wend
close #n



par exemple ?
ne pas oublier de mettre la solution
sur moteur prog, c\'est bien pour
les autres lecteurs.
@+
merci pour ton complément de la part de \"gilles\"

zeb
22/06/2004, 16h38
BALISES CODE


Message de l\'équipe de modération :

Merci d\'utiliser les balises code pour l\'affichage du code source.