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

Dagry 29 Messages postés samedi 17 mars 2007Date d'inscription 1 septembre 2008 Dernière intervention - 21 juin 2008 à 00:32 - Dernière réponse : simo5963 128 Messages postés vendredi 12 octobre 2007Date d'inscription 24 mars 2009 Dernière intervention
- 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
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 21 juin 2008 à 13:58
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

Merci gillardg 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de gillardg
Meilleure réponse
simo5963 128 Messages postés vendredi 12 octobre 2007Date d'inscription 24 mars 2009 Dernière intervention - 21 juin 2008 à 14:47
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  ]÷·.)-

Merci simo5963 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de simo5963
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 21 juin 2008 à 01:29
Commenter la réponse de gillardg
simo5963 128 Messages postés vendredi 12 octobre 2007Date d'inscription 24 mars 2009 Dernière intervention - 21 juin 2008 à 01:31
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
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 21 juin 2008 à 11:26
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
Dagry 29 Messages postés samedi 17 mars 2007Date d'inscription 1 septembre 2008 Dernière intervention - 21 juin 2008 à 13:43
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
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 21 juin 2008 à 13:56
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.