Linq extraction fichier XML - ajout ListOfRésolu

Question

Bonjour le Forum 
et plus particulièrement Whismeril qui m'a plus qu'orienté dans mon précédent post (Linq extraction fichier XML).

Résumé:
Extraction récursive de champs d'un fichier xml pour affichage dans un DataGridView.

Dans la Classe JOB, j'ai déclaré
Public Property Parametres() As List(Of String)

Dans la Sub 
Dim maListe As List(Of ENV) = (    From d In xDoc.Descendants("Environment")    Select New ENV With {.Name = d.Attribute("name").Value, _                         .Serveur = returnHost(d.Attribute("host").Value), _                         .Applications = (        From a In d.Descendants("Application")        Select New APP With {.Name = a.Attribute("name").Value, _                             .Serveur = returnHost(If(a.Attributes("host").Count() > 0, a.Attribute("host").Value, Nothing)), _                             .Jobs = (           From j In a.Descendants("Job")           Select New JOB With {.Job = j.Attribute("name").Value, _                                .Serveur = returnHost(If(j.Attributes("host").Count() > 0, j.Attribute("host").Value, Nothing)), _                                .CommentaireApp = If(a.Attributes("comment").Count() > 0, a.Attribute("comment").Value, Nothing), _                                .CommentaireJob = If(j.Attributes("comment").Count() > 0, j.Attribute("comment").Value, Nothing), _                                .Script = j.Element("Script").Value(),               .Parametres = If(j.Elements("Parameters").Count() = 0, Nothing, (                       From p In j.Descendants("Parameter")                       Select p.Value).ToList()),                                .ModeExecApp = returnGeneric(a.Attribute("mode").Value), _                                .ModeExecJob = returnGeneric(j.Attribute("mode").Value), _                                }).ToList()}).ToList()}).ToList()Dim mesJobs As List(Of JOB) = (    From k In maListe, a In k.Applications, j In a.Jobs    Select j.AffecteParent(a, k)).ToList()DataGridView1.DataSource = mesJobs
Je n'arrive pas à modifier le From de mesJobs pour y inclure le p et donc afficher le champ "Paramètres" (après le champ "Script") dans le DataGridView. 

jean-marc

cs_JMO · Answer

Bonsoir le forum, N'ayant pas réussi à exploiter le ToList du champ paramètres, j'ai essayé ceci: Select New JOB With { .Parametres = retourParameters(If(j.Elements("Parameters").Count() > 0, j.Elements("Parameters").Value, Nothing)) avec Public Property Parametres() As String au lieu de Public Property Parametres() As List(Of String) La fonction Function retourParameters(ByVal test As String) As String If test = Nothing Then Return "champ vide" Else Return test End IfEnd Function me retourne tous les paramètres mais concatenés. Ex: me retourne ZZZ180SVC-ZZ-VTInterface Codes a barres Y a-t-il un moyen d'afficher ZZZ180 , SVC-ZZ-VT , Interface Codes a barres Merci pour vos suggestions, jean-marc

Whismeril · Answer

Bonsoir, je n'avais pas vu ton premier post

Est ce que ceci te retourne bien une liste avec tes paramètres?
 .Parametres = If(j.Elements("Parameters").Count() = 0, Nothing, (
                       From p In j.Descendants("Parameter")
                       Select p.Value).ToList()),

cs_JMO · Answer

Dans p, j'ai bien "- p System.Xml.Linq.XElement

cs_JMO · Answer

en image !!!

Whismeril · Answer

Bonjour, OK.

Donc comme je te l'ai expliqué dans le sujet précédent, le binding permet d'afficher simplement les propriétés d'une classe, à la condition que ces propriétés ne soient pas des collections.
Une solution simple (là encore) est de serialiser les membres de la collection en ajoutant une propriété (ParamAffiches  par exemple), qui retourne
    Public ReadOnly Property ParamAffiches() As String
        Get
            Return String.Format(", ", Parametres)
        End Get

End Property C'est ce que tu demandais dan sel second message, mais pour te le proposer, je voulais vérifier la présence des données.

Une alternative est de faire de Parametres un type particulier qui contient une liste de string et réécrire la méthode ToString pour qu'elle retourne le même String.Format. C'est un peu plus long car il va te falloir écrire une classe qui se comporte comme une collection.

Une autre solution est d'ajouter une colonne dont le type de cellule est combobox, mais là il faudra alimenter chaque combo ligne par ligne, le binding ne marche pas.

cs_JMO · Answer

Bonjour, 

Avec
    Public Property Parametres() As List(Of String)    Public ReadOnly Property ParamAffiches() As String        Get            Return String.Format(", ", Parametres)        End Get    End PropertyLa colonne "Parametres" est créée, il y a " , " dans tous les champs de cette colonne.

Avec 
    Public Property Parametres() As List(Of String)    Public ReadOnly Property ParamAffiches() As String        Get            If Parametres Is Nothing Then                Return "champ vide pour controle"            Else                Return String.Format(", ", Parametres)            End If        End Get    End PropertyLa colonne "Parametres" est créée, il y a bien "champ vide ..." pour les champs vides mais il y a " , " dans tous les autres champs de cette colonne.

Avec 
    Public Property Parametres() As List(Of String)    Public ReadOnly Property ParamAffiches() As String        Get            If Parametres Is Nothing Then                Return "champ vide pour controle"            Else                Return String.Format(", ", "test JMO")            End If        End Get    End PropertyLa colonne "Parametres" est créée, il y a bien "champ vide ..." pour les champs vides mais il y a " , " dans tous les autres champs de cette colonne.

Whismeril · Answer

Oh, l'idiot, c'est à string.join que je pensais!

Linq extraction fichier XML - ajout ListOf

7 réponses

Votre réponse

Discussions similaires