Enregistrer le contenu d'un listbox [Résolu]

Messages postés
29
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
1 septembre 2008
- - Dernière réponse : simo5963
Messages postés
128
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009
- 21 juin 2008 à 14:47
bonjour. j'aimerais savoir comment enregistrer le contenu d'un listbox (en tenant compte des lignes) et comment le consulter. c'est assez urgent. répondez!!!
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
7
3
Merci
Houps correction :



Catch
ex

As
Exception




If
Err.Number = 5

Then



' c'est juste que la dernière ligne est vide








Else

MessageBox.Show(




"Error N° "
& Err.Number & vbCrLf & Err.Description & vbCrLf &

" In Module "
& Err.Source,

My
.Application.Info.ProductName)


End



If






End



Try

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 139 internautes nous ont dit merci ce mois-ci

Commenter la réponse de gillardg
Messages postés
128
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009
3
Merci
Autre solution :












Dim
fRead

As
IO.StreamReaderfRead =


New
IO.StreamReader(

"votreFichier.txt"
)

'votre fichier






'qui contiens les enregistrements






Dim
Enr

As



String
= fRead.ReadLine


While
fRead.Peek > -1

'fin de fichier n’est pas éteindre

ListBox.Items.add(Enr)




'j'ajoute les élés de fichier dans listbox

Enr = fRead.ReadLine







End



While

fRead.Close()








-(.·÷[ BeAuTiFuL MinD  ]÷·.)--(.·÷[ Sun > Microsoft  ]÷·.)-

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 139 internautes nous ont dit merci ce mois-ci

Commenter la réponse de simo5963
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
7
Commenter la réponse de gillardg
Messages postés
128
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009
0
Merci
Donc voile si tu travaille sur les fichier  l’enregistrement se fait comme ça :



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /?>
 




Dim f as io.StreamWriter



 




f=new io.streamWriter(‘votreFichier.txt’,’true’)//fichier d’écriture


‘je vais parcourir le listeBox et je écris dans le fichier



 





 




For i as integer=0 to Listebox.items.count-1



       f.writeline(ListBox.GetItemText(ListBox.Items(i)))


Next


f.close()



 




Merci !!!!






-(.·÷[ BeAuTiFuL MinD  ]÷·.)--(.·÷[ Sun > Microsoft  ]÷·.)-
Commenter la réponse de simo5963
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
32
0
Merci
salut,

http://www.codyx.org/snippet_charger-combobox-ou-listbox-partir-fichier-vice-versa_294.aspx

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
Messages postés
29
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
1 septembre 2008
0
Merci
ok merci mais j'ai trouvé le code hier soir (excusez de ne pas l'avoir publié) mais je cherche maintenant comment afficher le contenu d'un fichier txt dans un list box en respectant les lignes
Commenter la réponse de Dagry
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
7
0
Merci
Sub
TextFile2ListBox()


Dim
line

As



String
=

String
.Empty


Try







Using
sr

As
StreamReader =

New
StreamReader(

"citations.dat"
, System.Text.Encoding.Default)


'lit le fichier ligne par ligne






' jusqu'a la fin du fichier






Do

line = sr.ReadLine()


ListBox1.Items.Add(line)







Loop



Until
line

Is



Nothing

sr.Close()







End



Using






Catch
ex

As
ExceptionMessageBox.Show(


"Error N° "
& Err.Number & vbCrLf & Err.Description & vbCrLf &

" In Module "
& Err.Source,

My
.Application.Info.ProductName)


End



Try


End



Sub
Commenter la réponse de gillardg

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.