Enregistrer le contenu d'un listboxRésolu

Question

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!!!

gillardg · Accepted Answer

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

gillardg · Answer

voila voila on arrive :http://www.vbfrance.com/recherche.aspx?tr=source&r=listbox&dotnet=1

simo5963 · Answer

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  ]÷·.)-

PCPT · Answer

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

Dagry · Answer

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

gillardg · Answer

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

simo5963 · Answer

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  ]÷·.)-

Enregistrer le contenu d'un listbox

7 réponses

Votre réponse