Linq - Recherche expression dans ToList via une autre ToListRésolu

Question

Bonjour, 
 
Je dispose de deux fichiers xml que je charge dans des ToList.

1er fichier (import d'une base VTOM): 
        ListOfJob = (From k In listofenv, a In k.Applications, j In a.Jobs
                     Select j.AffecteParent(a, k)).OrderBy(Function(j) j.EnvironnementApplicationJob).ToList()

2er fichier (fichier de config):
listofconfigcustomer = ConfigCustomer.LoadFileConfig(pathroot & pathconfig & fileconfig)
Puis, à partir de mon premier fichier, je fais une sélection
Dim listjob = ListOfJob.Where(Function(c) (c.Trame <> String.Empty)).ToList
A partir de "listjob", je souhaiterai extraire certains champs mais le choix de ces champs se trouve dans la ToList du fichier de config.
Je n'arrive pas à trouver la bonne syntaxe.

            For Each items In listjob

Dim titi As String = items.Serveur
                MessageBox.Show(titi) ' retourne correctement le nom du serveur

Dim parameters = listofconfigcustomer.Single(Function(c) c.Name = customer).Parameters

For i As Integer = 0 To parameters.Count - 1
                    MessageBox.Show(parameters(i).ToString)
                    ' parameters(i).ToString = Serveur ou TypeJob ou Application ou etc ....
                    ' c'est ce champ que je souhaite rechercher dans listjob

Next i
            Next items
Merci pour vos suggestion.

jean-marc

cs_JMO · Accepted Answer

Le fichier xml test de données Le fichier xml test de config Environnement Job Application Pour exemple : Je lis le fichier config et souhaite récupérer les champs "Environnement" et "Application" de l'alias "exploitation" du client name SAVEMUTU dans le fichier xml de données. Suite à mon précédent thread, j'ai modifié mon config et donc les classes en conséquence.Public Class ItemsConfig Public Property Name() As String Public Property Contract() As String Public Property Category() As String End Class Public Class ConfigCustomer Public Property Name() As String Public Property NameAlias() As List(Of ItemsConfig) Public Property Parameters() As List(Of String) Public Property Infocgn() As String Public Property Axone_Contract() As String Public Property Product() As String Public Shared Function LoadFileConfig(ByVal Path As String) As List(Of ConfigCustomer) Dim xdoc As XDocument = XDocument.Load(Path) Return ( From c In xdoc.Descendants("Customer") Select New ConfigCustomer With {.Name = c.Attribute("name").Value, _ .Product = c.Attribute("product").Value, _ .Infocgn = c.Attribute("infocgn").Value, _ .Axone_Contract = c.Attribute("axone").Value, _ .Parameters = (From p In c.Descendants("Parameter") Select p.Value).ToList(), _ .NameAlias = (From a In c.Descendants("Alias") Select New ItemsConfig With {.Name = a.Attribute("name").Value, _ .Contract = a.Attribute("contrat").Value, _ .Category = a.Attribute("codebien").Value }).ToList()}).ToList() End Function End Class jean-marc

Whismeril · Answer

Bonsoir Jean Marc,

Avec un exemple de données ce sera plus simple pour de te répondre.

Les résultats de te requête ne sont pas des ToList, mais des listes, la méthodes ToList() convertit le type de collection IEnumarble en liste, quand tu fais un ToArray pour obtenir un tableau, tu n'appelles pas tes tableaux des ToTableaux? Si? ;)

Whismeril · Answer

Bonjour Jean Marc, peux tu préciser en fonction des tes exemples le résultat que tu souhaites obtenir?

cs_JMO · Answer

part fixe : 
Dim env As String = items.Environnement
Dim app As String = items.Application
Dim job As String = items.Job
Dim trame As String = returnTrame(items.Trame) & Environment.NewLine
Dim tramefile As String = returnTrameFile(items.Trame)
Dim configalias As String = listofconfigcustomer.Single(Function(c) c.Name = customer).NameAlias.Item(0).Name
Dim configcontract As String = items.CodeContrat
Dim configcategory As String = items.Categorie

Variables à récupérer par rapport à Paramètres du fichier config

J'aimerai éviter ceci
Dim lineMOP As String = customer & "." & _ 
                        items.Environnement & "." & items.Application & "." & _
                        items.Job & "," & _
                        returnFile(items.Trame) & "," & _
                        returnTrameFile(items.Trame) & "," & _
                        returnTrameFile(items.Trame) & "," & _
                        items.CodeContrat & "," & _ 
                        items.Categorie & ","

Dim configparameters = listofconfigcustomer.Single(Function(c) c.Name = customer).Parameters

For i As Integer = 0 To configparameters.Count - 1
    lineMOP += lineMOP & returnItemMOP(configparameters(i) & ","
Next i
arrayListMOP.Add(lineMOP)

Function ReturnItemMOP(ByVal e As String) As String
         Select Case e
         Case "Environnement" : Return items.Environnement
         Case "Application" : Return items.Application
         Case "Job" :
         Case "Serveur" :	
         Case "CommentaireApp" :	
         Case "CommentaireJob" :	
         Case "ModeExecEnv" :	
         Case "ModeExecApp" :	
         Case "ModeExecJob" :	
         Case "TypeJob" :	
         Case "Script" :	
         Case "ParametresScript" :	
         Case "RessourcesApp" :	
         Case "RessourcesJob" :	
         Case "TypeFrequence" :	
         Case "Frequence" :	
         Case "Cyclique" :	
         Case "CycleJob" :	
         Case "HeureDebut" :	
         Case "HeureFin" :	
         Case "DebutDerniereExecution" :	
         Case "FinDerniereExecution" :	
         Case "Duree" :	
         Case "DateBascule" :	
         Case "Formule" :	
         Case "Planning" :	
         Case "Queue" :	
         Case "Profil" :	
         Case "ApplicationPredecesseur" :	
         Case "ApplicationSuccesseur" :	
         Case "JobPredecesseur" :	
         Case "JobSuccesseur" :	
         Case "Alarme" :	
         Case Else : Return String.Empty
      End Select
End Function
Dans la fonction returnItemMOP, je n'ai pas encore écrit tous les items et retours.
Les champs env, app et job sont utilisés 2 fois:
1) Ce sera le nom de mon fichier docx à crééer "Customer.Environnement.Application.Job
2) Les champs Environnement, Application, Job et ceux passés en paramètre servent pour créer mes fichiers de consignes à partir de plusieurs Templates.
C'est dans ceux-ci que je renseigne les champs "CustomDocumentProperties".

Nous sommes dans le cas 1.

Whismeril · Answer

Alors une classe Personne, basique (sans jeux de mots!)
Nom, Prénom, Date de Naissance -> Age

	Public Class Personne
		Public Sub New(ByVal Nom As String, ByVal Prenom As String, ByVal Naissance As Date)
			Me.Nom = Nom
			Me.Prenom = Prenom
			Me.Naissance = Naissance 'j'affecte la propriété comme ça l'age sera calculé
		End Sub

Private _naissance As DateTime
		Public Property Naissance() As DateTime
			Get
				Return _naissance
			End Get
			Set(ByVal value As Date)
				_naissance = value
				Age = DateTime.Now.Year - _naissance.Year
			End Set
		End Property

Public Property Nom() As String

Public Property Prenom() As String

Private _age As Integer
		Public Property Age() As Integer
			Get
				Return _age
			End Get
			Private Set(ByVal value As Integer)
				_age = value
			End Set
		End Property

End Class

Une classe de résultats
	Public Class ResultatJMO
		Public Property Age() As Integer

Public Property Parametres() As List(Of String)'je mets une liste et pas un arraylist car linq sait caster tout seul en liste.
	End Class 
 
On va traiter une liste de personnes, en retournant le prénom et le nom de ceux qui ont 5 ans.
Une fois triées les personnes avec le bon âge, on utilise la réflexion pour obtenir les champs dont le nom est présent dans un tableau.
Premier exemple avec un For Each, ou je décompose un peu les étapes.
			Dim personnes As New List(Of Personne)()
			personnes.Add(New Personne("Di", "Alain", Date.Parse("01/01/2010")))
			personnes.Add(New Personne("Sort", "Jean", Date.Parse("01/01/2011")))
			personnes.Add(New Personne("Zétofrais", "Mélanie", Date.Parse("02/02/2010")))
			personnes.Add(New Personne("Croche", "Sara", Date.Parse("02/02/2011")))

Dim ageATrouver As Integer = 5
			Dim champsARetourner() As String = {"Prenom","Nom" }

Dim resultats As New List(Of ResultatJMO)()

For Each p As Personne In personnes.Where(Function(pp) pp.Age = ageATrouver)
				Dim r As New ResultatJMO()
				r.Age = ageATrouver
				r.Parametres = New List(Of String)()
				For Each champ As String In champsARetourner
					Dim pi As PropertyInfo = p.GetType().GetProperty(champ)
					r.Parametres.Add(CStr(pi.GetValue(p)))
				Next champ
				resultats.Add(r)
			Next p


Ça peut se faire aussi avec une requête Linq
			Dim resultats As List(Of ResultatJMO) = (
			    From p In personnes.Where(Function(pp) pp.Age = ageATrouver)
			    Select New ResultatJMO With {.Age = ageATrouver, .Parametres = (
			            From c In champsARetourner
			            Let pi = p.GetType().GetProperty(c)
			            Select CStr(pi.GetValue(p))).ToList()
}).ToList()

cs_JMO · Answer

Bonsoir Whismeril,
J'essaie de tester ton code mais j'ai une erreur surCStr(pi.GetValue(p))La résolution de surcharge a échoué, car aucun 'GetValue' accessible n'accepte ce nombre d'arguments.

jean-marc

Linq - Recherche expression dans ToList via une autre ToList

6 réponses

Votre réponse

Discussions similaires