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
- Enregistrer le contenu d'un listbox
- Enregistrer le contenu d'un listbox en fichier txt en vb.net (Résolu) » Forum - Visual Basic
- Comment enregistrer le contenu d'une ListBox dans un fichier txt ? » Forum - Visual Basic
- Comment enregistrer le contenu d'un ListBox Dans un Fichier xls (*.xls) » Forum - Visual Basic
- Comment enregistrer le contenu de ma listbox ds un fichier txt » Forum - Visual Basic
- Enregistrer le contenu d'une listbox » Forum - Delphi / Pascal
7 réponses
Meilleure réponse
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 75 internautes ce mois-ci
Meilleure réponse
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 ]÷·.)-
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 75 internautes ce mois-ci
voila voila on arrive :http://www.vbfrance.com/recherche.aspx?tr=source&r=listbox&dotnet=1
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 ]÷·.)-
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
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.