Sujet Précédent Sujet Suivant

Sérialisation xml d'une listview

pixou30 Messages postés 19 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 5 décembre 2009 - 27 nov. 2009 à 10:59
pixou30 Messages postés 19 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 5 décembre 2009 - 5 déc. 2009 à 13:47
salut tout le monde,
j'ai créer un programme pour gérer une collection de film avec vb.net 2008 express.
il fonctionne correctement, maintenant je voudrais sauvegarder le contenu de la liste dans un fichier XML.

j'ai fait quelques recherche, et d'après ce que j'ai trouvé, il faudrait que je fasse une sérialisation de mes données de ma listview dans un fichier xml...
seulement tous les exemples que je trouve sont pour des datagridview...

est ce que quelqu'un pourrait me donner un exmple de sérialisation d'une listview ?

merci d'avance


http://www.bravo-sierra.fr/

3 réponses

Réponse 1 / 3
pixou30 Messages postés 19 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 5 décembre 2009
27 nov. 2009 à 14:29
up
ou juste m'aider sur mon projet ?

je viens de réussir à faire une sauvegarde, en xml, mais ça ne me parait pas super propre... 

    Public Sub SaveFileToXML(ByVal FileName As String)
        Dim detailFilm As film
        Dim XmlDoc As XmlDocument = New XmlDocument()
        'création du document
        XmlDoc.LoadXml("<LISTEFILMS></LISTEFILMS>")
        For Each detailFilm In mod_ligneListeTemporaire
            Dim element_film As XmlElement
            element_film = XmlDoc.CreateElement("FILM")

            Dim element_reference As XmlElement
            element_reference = XmlDoc.CreateElement("REFERENCE")
            element_reference.InnerText = detailFilm.referenceFilm

            'creation et definition de la balise url (TITRE)
            Dim element_titre As XmlElement
            element_titre = XmlDoc.CreateElement("TITRE")
            element_titre.InnerText = detailFilm.TitreFilm

            'creation et definition de la balise Nom (TITRE_ORIGINAL)
            Dim element_titreOriginal As XmlElement
            element_titreOriginal = XmlDoc.CreateElement("TITRE_ORIGINAL")
            element_titreOriginal.InnerText = detailFilm.TitreOriginal

            'creation et definition de la balise Nom (REALISATEUR)
            Dim element_realisateur As XmlElement
            element_realisateur = XmlDoc.CreateElement("REALISATEUR")
            element_realisateur.InnerText = detailFilm.Realisateur

            'creation et definition de la balise Nom (PAYS)
            Dim element_pays As XmlElement
            element_pays = XmlDoc.CreateElement("PAYS")
            element_pays.InnerText = detailFilm.Pays

            'creation et definition de la balise Nom (DUREE)
            Dim element_duree As XmlElement
            element_duree = XmlDoc.CreateElement("DUREE")
            element_duree.InnerText = detailFilm.Duree

            'creation et definition de la balise Nom (ANNEE)
            Dim element_annee As XmlElement
            element_annee = XmlDoc.CreateElement("ANNEE")
            element_annee.InnerText = detailFilm.Annee

            'creation et definition de la balise Nom (NOTE)
            Dim element_note As XmlElement
            element_note = XmlDoc.CreateElement("NOTE")
            element_note.InnerText = detailFilm.Note

            'creation et definition de la balise Nom (DATE_DE_SORTIE)
            Dim element_dateSortie As XmlElement
            element_dateSortie = XmlDoc.CreateElement("DATE_DE_SORTIE")
            element_dateSortie.InnerText = detailFilm.DateSortie

            'creation et definition de la balise Nom (PUBLIC_VISE)
            Dim element_publicVise As XmlElement
            element_publicVise = XmlDoc.CreateElement("PUBLIC_VISE")
            element_publicVise.InnerText = detailFilm.PublicVise

            'creation et definition de la balise Nom (DATE_D_AJOUT)
            Dim element_dateAjout As XmlElement
            element_dateAjout = XmlDoc.CreateElement("DATE_D_AJOUT")
            element_dateAjout.InnerText = detailFilm.DateAjout

            'creation et definition de la balise Nom (EDITEUR)
            Dim element_editeur As XmlElement
            element_editeur = XmlDoc.CreateElement("EDITEUR")
            element_editeur.InnerText = detailFilm.Editeur

            'creation et definition de la balise Nom (GENRE)
            Dim element_genre As XmlElement
            element_genre = XmlDoc.CreateElement("GENRE")
            element_genre.InnerText = detailFilm.Genre

            'creation et definition de la balise Nom (VU)
            Dim element_vu As XmlElement
            element_vu = XmlDoc.CreateElement("VU")
            element_vu.InnerText = detailFilm.Vu

            'creation et definition de la balise Nom (AFFICHE_DU_FILM)
            Dim element_afficheFilm As XmlElement
            element_afficheFilm = XmlDoc.CreateElement("AFFICHE_DU_FILM")
            element_afficheFilm.InnerText = detailFilm.AfficheFilm

            'creation et definition de la balise Nom (ACTEURS)
            Dim element_acteurs As XmlElement
            element_acteurs = XmlDoc.CreateElement("ACTEURS")
            element_acteurs.InnerText = detailFilm.Acteurs

            'creation et definition de la balise Nom (RESUME_DU_FILM)
            Dim element_resume As XmlElement
            element_resume = XmlDoc.CreateElement("RESUME_DU_FILM")
            element_resume.InnerText = detailFilm.ResumeFilm

            'ajout des 17 balises enfants a la balise parent
            element_film.AppendChild(element_reference)
            element_film.AppendChild(element_titre)
            element_film.AppendChild(element_titreOriginal)
            element_film.AppendChild(element_realisateur)
            element_film.AppendChild(element_pays)
            element_film.AppendChild(element_duree)
            element_film.AppendChild(element_annee)
            element_film.AppendChild(element_note)
            element_film.AppendChild(element_dateSortie)
            element_film.AppendChild(element_publicVise)
            element_film.AppendChild(element_dateAjout)
            element_film.AppendChild(element_editeur)
            element_film.AppendChild(element_genre)
            element_film.AppendChild(element_vu)
            element_film.AppendChild(element_afficheFilm)
            element_film.AppendChild(element_acteurs)
            element_film.AppendChild(element_resume)
            'on ajoute la balise parent au document
            XmlDoc.DocumentElement.AppendChild(element_film)
        Next
        'Ecriture du Xml
        XmlDoc.Save(Application.StartupPath & FileName)
    End Sub


ça me parait un peu long comme déclaration... non ?

http://www.bravo-sierra.fr/
0
Réponse 2 / 3
pixou30 Messages postés 19 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 5 décembre 2009
29 nov. 2009 à 19:23
personne pour m'aider ?

http://www.bravo-sierra.fr/
0
Réponse 3 / 3
pixou30 Messages postés 19 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 5 décembre 2009
5 déc. 2009 à 13:47
up


http://www.bravo-sierra.fr/
0

Discussions similaires

Lire fichier Xml en C++
Kimahri01 -
tdajab -

7 réponses
Comment récupérer le nombre de ligne d'une Listview
VB_PtitCat -
Renfield -

4 réponses
Parser un fichier XML et récupérer les data dans un fichier excel
cams2211 -
cams2211 -

2 réponses
Je veux remplir mon listview
cs_reyman -
reyman -

5 réponses
Vb.Net Remplire une Listview d'une façon horizontale
Karin.code -
Karin.code -

15 réponses
Rejoignez-nous