[VB.NET] List(Of et la function Find

Version imprimable

Bonjour,

J'ai du mal à comprend le fonctionnement des "Predicate"

En simplifiant voici ce que j'ai
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Public Class Employes Public ListEmploye As New List(Of Employe) End Class Public Class Employe Public ID As String = "" Public Nom As String = "" Public Prenom As String = "" Public Sub New(ByVal UnID, ByVal UnNom, ByVal UnPrenom) ID = UnID Nom = UnNom Prenom = UnPrenom End Sub Public Overrides Function ToString() As String Return Prenom & " " & Nom End Function End Class
Avec la function Find dans la class Employes je voudrais retrouver l'employe "TOTO"

mais je comprend rien avec leur Predicate

merci

Un prédicat dans ce cas, c'est une fonction qui prends un argument de type T et qui retourne Vrai ou faux. Pour reprendre ton exemple je peux écrire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MaListe As New Employes
        MaListe.ListEmploye.Add(New Employe("1", "nom1", "prenom1"))
        MaListe.ListEmploye.Add(New Employe("2", "nom2", "prenom2"))
        MaListe.ListEmploye.Add(New Employe("2", "TOTO", "prenom3"))
        Dim ChercheEmploye As Employe
        ChercheEmploye = MaListe.ListEmploye.Find(AddressOf ParNom)
        If Not ChercheEmploye Is Nothing Then MsgBox(ChercheEmploye.ToString)
    End Sub
 
    Private Shared Function ParNom(ByVal LeNom As Employe) As Boolean
        If LeNom.Nom = "TOTO" Then Return True Else Return False
    End Function

dans ce cas, c'est la fonction ParNom qui est mon prédicat pour le find

Génial ça marche, par contre est ce que l'on peut mettre à la place de "toto" mettre une variable. je l'indique comment ?
j'ai essayé de mettre une variable mais il ne veut pas que je passse une variable au moment de l'appel de la fonction.
Code:

1 2 3 4 5 6 Private Shared Function ParNom(ByVal LeNom As Employe, ByVal uneVariable as string) As Boolean 'If LeNom.Nom = "TOTO" Then Return True Else Return False If LeNom.Nom = UneVariable Then Return True Else Return False End Function

05/01/2007, 15h21
ricil78
j'ai rajouté une variable public ValeurChercher dans ma class Employés.

Je la renseigne avant d'utiliser le find

Du coup je retombe sur un truc du genre
Code:

1 2 3 4 Private Shared Function ParNom(ByVal LeNom As Employe) As Boolean If LeNom.Nom = ValeurChercher Then Return True Else Return False End Function
mais je ne trouve pas ça très propre, il y a surement un autre moyen

non, tu ne peux pas passer un argument supplémentaire dans la fonction du prédicat. Par contre si tu ne met pas la fonction comme Shared tu peux utiliser une variable globale, par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Private NomCherche As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MaListe As New Employes
        MaListe.ListEmploye.Add(New Employe("1", "nom1", "prenom1"))
        MaListe.ListEmploye.Add(New Employe("2", "nom2", "prenom2"))
        MaListe.ListEmploye.Add(New Employe("2", "TOTO", "prenom3"))
        Dim ChercheEmploye As Employe
        NomCherche = "TOTO"
        ChercheEmploye = MaListe.ListEmploye.Find(AddressOf ParNom)
        If Not ChercheEmploye Is Nothing Then MsgBox(ChercheEmploye.ToString)
    End Sub
 
    Private Function ParNom(ByVal LeNom As Employe) As Boolean
        If LeNom.Nom = NomCherche Then Return True Else Return False
    End Function

05/01/2007, 15h29
ricil78

OK,

un gros merci pour toi bidou :D