Public Class AutomateQuentin22Breizh Public Sub New(ByVal Nom As String, ByVal AutreInfo As String)'constructeur de la classe qui assigne les propriétés Me.Nom = Nom Me.AutreInfo = AutreInfo End Sub Public Property Nom() As String Public Property AutreInfo() As String Public Overrides Function ToString() As String 'j'impose ce que je veux voir pour le ToString, utile en exécution pas à pas, c'est ce texte que l'on verra en survolant l'objet avec la souris Return String.Format("Nom : '{0}', complément : {1}", Nom, AutreInfo) End Function End Class
Dim APIutilises As New List(Of AutomateQuentin22Breizh) 'le premier avantage par rapport à un tableau est que tu ajoutes des items comme tu veux sans avoir à prédire la taille APIutilises.Add(New AutomateQuentin22Breizh("toto", "rien")) APIutilises.Add(New AutomateQuentin22Breizh("tata", "rien")) APIutilises.Add(New AutomateQuentin22Breizh("tutu", "rien")) APIutilises.Add(New AutomateQuentin22Breizh("titi", "rien")) APIutilises.Add(New AutomateQuentin22Breizh("toto", "hoho doublon")) APIutilises.Add(New AutomateQuentin22Breizh("erreur", "a supprimer")) APIutilises.Add(New AutomateQuentin22Breizh("encore 1 erreur", "a supprimer")) APIutilises.Add(New AutomateQuentin22Breizh("tete", "rien")) APIutilises.Add(New AutomateQuentin22Breizh("tutu", "encore un doublon")) 'on obtient facilement le nombre d'enregistrement Dim nombreAPI As Integer = APIutilises.Count 'on peut facilement supprimer un item APIutilises.RemoveAt(5) Dim nouveauNombreAPI As Integer = APIutilises.Count 'on peut rechercher un item Dim itemAtrouver As AutomateQuentin22Breizh = APIutilises.First(Function(a) a.AutreInfo = "a supprimer") 'et le supprimer APIutilises.Remove(itemAtrouver) 'on peut connaitre la liste des api différentes utilisée et leur nombre Dim NomAPIsansDoublons As List(Of String) = APIutilises.Select(Function(a) a.Nom).Distinct().ToList() 'en fait on peut faire un distinct qui retournerait une liste d'AutomateQuentin22Breizh mais il faudrait lui apprendre comment les comparer, pour un premier exemple c'est un peu long Dim nombreAPIsansDoublons As Integer = NomAPIsansDoublons.Count 'on peut connaitre les éléments communs à deux listes Dim autreListe As New List(Of AutomateQuentin22Breizh) autreListe.Add(New AutomateQuentin22Breizh("toto", "rien")) autreListe.Add(New AutomateQuentin22Breizh("tyta", "rien")) autreListe.Add(New AutomateQuentin22Breizh("tutu", "rien")) autreListe.Add(New AutomateQuentin22Breizh("titi", "rien")) autreListe.Add(New AutomateQuentin22Breizh("toto", "hoho doublon")) autreListe.Add(New AutomateQuentin22Breizh("erreur", "a supprimer")) autreListe.Add(New AutomateQuentin22Breizh("tete", "rien")) Dim communs As List(Of String) = APIutilises.Select(Function(a) a.Nom).Intersect(autreListe.Select(Function(b) b.Nom)).ToList() 'même histoire avec le comparer
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
1 août 2014 à 18:26