Serialisation
asmaa17
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009
-
20 juin 2007 à 03:07
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009 - 29 juin 2007 à 01:11
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009 - 29 juin 2007 à 01:11
3 réponses
ptit_tof57
Messages postés
79
Date d'inscription
lundi 28 août 2006
Statut
Membre
Dernière intervention
4 avril 2009
1
20 juin 2007 à 05:05
20 juin 2007 à 05:05
Salut je n'ai pas testé ton code mais est ce que remplacer FileMode.Create par FileMode.Append ne te conviendrais pas ?
A+
Tof
A+
Tof
asmaa17
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009
20 juin 2007 à 11:10
20 juin 2007 à 11:10
Salut,
merci ptit_tof57
ça marche mais il reste un probleme, memesi le fichier contient tous les stagiaire mais lorsque je veux afficher la liste des stagiaires il m' affiche le premier stagiaire. voila le code:
Public
Sub serialistation()
'Enregistrer des Stagiaire dans un fichier binaire
Dim fic
As
New FileStream("Stagiaire.txt", FileMode.Append)
Dim f
As
New BinaryFormatterf.Serialize(fic, element)
fic.Close()
End
Sub
Public
Function deserialistaion()
As ArrayList
'lire le contenu de fichier Stagiaire
Dim fichier
As
New FileStream("Stagiaire.txt", FileMode.Open)
Dim f1
As
New BinaryFormatterelement =
DirectCast(f1.Deserialize(fichier), ArrayList)fichier.Close()
Return element
End
Function
'ce methode(listeStag) Affiche dans une listbox tout le contenu de fichier
Private
Sub listeStag_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Loadelement = deserialistaion() 'element est un ArrayList
For i
As
Integer = 0
To element.Count - 1ListBox1.Items.Add(element.Item(i).N_Inscription() & " " & element.Item(i).nom() & " " & element.Item(i).prenom() & " " & element.Item(i).DateNaissance() & " " & element.Item(i).modu().ToString() & " " & element.Item(i).Note().ToString() & " " & element.Item(i).Sexe().ToString())
Next
End
Sub
merci ptit_tof57
ça marche mais il reste un probleme, memesi le fichier contient tous les stagiaire mais lorsque je veux afficher la liste des stagiaires il m' affiche le premier stagiaire. voila le code:
Public
Sub serialistation()
'Enregistrer des Stagiaire dans un fichier binaire
Dim fic
As
New FileStream("Stagiaire.txt", FileMode.Append)
Dim f
As
New BinaryFormatterf.Serialize(fic, element)
fic.Close()
End
Sub
Public
Function deserialistaion()
As ArrayList
'lire le contenu de fichier Stagiaire
Dim fichier
As
New FileStream("Stagiaire.txt", FileMode.Open)
Dim f1
As
New BinaryFormatterelement =
DirectCast(f1.Deserialize(fichier), ArrayList)fichier.Close()
Return element
End
Function
'ce methode(listeStag) Affiche dans une listbox tout le contenu de fichier
Private
Sub listeStag_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Loadelement = deserialistaion() 'element est un ArrayList
For i
As
Integer = 0
To element.Count - 1ListBox1.Items.Add(element.Item(i).N_Inscription() & " " & element.Item(i).nom() & " " & element.Item(i).prenom() & " " & element.Item(i).DateNaissance() & " " & element.Item(i).modu().ToString() & " " & element.Item(i).Note().ToString() & " " & element.Item(i).Sexe().ToString())
Next
End
Sub
asmaa17
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009
29 juin 2007 à 01:11
29 juin 2007 à 01:11
Salut,
SVP,j'aimerais serialisé une collection mais j'ai des problemes.methode de deserialisation enregistrer uniquement le premier enregistrement de fichier binaire dans la collection.
SVP,j'aimerais serialisé une collection mais j'ai des problemes.methode de deserialisation enregistrer uniquement le premier enregistrement de fichier binaire dans la collection.