Enregistrer le contenu d'un listbox [Résolu]
Dagry
- Messages postés
- 29
- Date d'inscription
- samedi 17 mars 2007
- Dernière intervention
- 1 septembre 2008
- Messages postés
- 128
- Date d'inscription
- vendredi 12 octobre 2007
- Dernière intervention
- 24 mars 2009
A voir également:
- Enregistrer le contenu d'un listbox
- Enregistrer le contenu d'un listbox en fichier txt en vb.net ✓ - Forum - Visual Basic
- Enregistrer et ouvrir le contenu d'une listbox a partir d'un fichier - Codes sources - Visual Basic / VB.NET (Divers)
- Enregistrer le contenu d'une textbox dans un fichier - Codes sources - Visual Basic / VB.NET (Texte)
- Enregistrer le contenu de tous les tedit dans un fichier - Codes sources - Delphi / Pascal (Fichier / Disque)
- SAUVEGARDER dans un fichier TXT le contenue d'une LISTBOX en VB.net ✓ - Forum - VB.NET
7 réponses
Meilleure réponse
- Messages postés
- 3288
- Date d'inscription
- jeudi 3 avril 2008
- Dernière intervention
- 14 septembre 2014
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 128
- Date d'inscription
- vendredi 12 octobre 2007
- Dernière intervention
- 24 mars 2009
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 ]÷·.)-
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 ]÷·.)-
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3288
- Date d'inscription
- jeudi 3 avril 2008
- Dernière intervention
- 14 septembre 2014
voila voila on arrive :http://www.vbfrance.com/recherche.aspx?tr=source&r=listbox&dotnet=1
- Messages postés
- 128
- Date d'inscription
- vendredi 12 octobre 2007
- Dernière intervention
- 24 mars 2009
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 ]÷·.)-
<?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 ]÷·.)-
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
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
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
- Messages postés
- 3288
- Date d'inscription
- jeudi 3 avril 2008
- Dernière intervention
- 14 septembre 2014
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
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
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.