Utilisation de linq au lieu de DictionaryRésolu

Question

Bonjour le Forum, J'extrais le contenu d'une page Web. Dim Web As WebBrowser = New WebBrowser Web.Navigate(address1) While Not Web.ReadyState = WebBrowserReadyState.Complete Application.DoEvents() End While Dim text As String = Web.DocumentText.ToString() La variable "text" contient entre autre addIndex('CRZ : TOTO','CRZ-C2O','192....'); addIndex('CRZ : TOTO','CRZ-OXA','192....'); addIndex('ABC : TITI','ABC-001','192....'); addIndex('ABC : TITI','ABC-002','192....'); addIndex('XXX : TATA','XXX-001','192....'); addIndex('XXX : TATA','XXX-002','192....'); Je récupère (Distinct) le trigramme et le nom du client (ex: CRZ et TOTO) Dim dicoCustomer As New Dictionary(Of String, String) Dim patern As String = "addIndex\('(?[A-Z0-9-]{3}) : (?[^']+)" For Each m As Match In Regex.Matches(text, patern) If (m.Success) Then If Not dicoCustomer.ContainsKey(m.Groups("trigramme").Value) Then dicoCustomer.Add(m.Groups("trigramme").Value, m.Groups("client").Value) End If End If Next Me.ComboBox1.Items.Add("Sélection du contrat") Me.ComboBox1.Items.Add("Tous les contrats") Dim sorteddicoCustomer = (From entry In dicoCustomer Order By entry.Key Ascending).ToDictionary(Function(pair) pair.Key, Function(pair) pair.Value) For Each pair As KeyValuePair(Of String, String) In sorteddicoCustomer Me.ComboBox1.Items.Add(pair.Key & " - " & pair.Value) Next Ma question : Suite à des exemples, avec Linq, de vb95 et de Whismeril (clin d'oeil pour Diego !!!) Dim occurencesPhrase = ( From c In "Je suis même pas ici, je suis où pourquoi ?".Normalize(NormalizationForm.FormD).ToLower() Where Char.IsLetter(c) Group c By c Into leGroup = Group Select New With {Key .Lettre = c.ToString(), Key .Occurence = leGroup.Count()})Est-il possible d'utiliser linq au lieu d'un dictionnaire ??? Genre:Dim myindex = ( From c In text Where .... Select New With {Key .trigramme = ?????, Key .customer = ????}) jean-marc

vb95 · Answer

Bonsoir cs_JMO
Il est vrai que j'ai utilisé Linq dans les 3 projets autour du Scrabble que j'ai mis sur le site !
Il faut dire que ce sont des exemples de notre ami Whismeril qui m'ont induit à l'utiliser .
Dans une collection au lieu de parcourir tous les éléments par une boucle pour trouver celui qui correspondait à une condition bien précise j'ai utilisé Linq qui me permettait de produire un code beaucoup plus court et tout aussi compréhensible !
Je n'ai jamais encore utilisé un Dictionnairy et j'en suis aux balbutiements côté Linq !
Alors pour t'aider cela va être chaud pour moi !
Je pense que Whismeril est bien plus capable que moi sur ce point !
Salutations à toi

Whismeril · Answer

Bonsoir
pour être sûr d'avoir bien compris,
tu vas lire du texte, tu récupères des couples Trigramme/Client, si le trigramme n'existe pas (en tant que clé) dans un dictionnaire tu ajoutes le couple.
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Whismeril · Answer

Ok, mais si tu as plusieurs trigrammes identiques quel client tu gardes, le 1er, le second, le dernier? 
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Whismeril · Answer

Dim texte As String = "addIndex('CRZ : TOTO','CRZ-C2O','192....'" & Environment.NewLine & _ "addIndex('CRZ : TaTO','CRZ-OXA','192....'" & Environment.NewLine & _ "addIndex('ABC : TITI','ABC-001','192....'" & Environment.NewLine & _ "addIndex('ABC : TeTI','ABC-002','192....'" & Environment.NewLine & _ "addIndex('XXX : TATA','XXX-001','192....'" & Environment.NewLine & _ "addIndex('XXX : TiTA','XXX-002','192....'" Dim pattern As String = "addIndex\('(?[A-Z0-9-]{3}) : (?[^']+)','(?[^']+)" 'en fait le pattern n'est pas si compliqué que ça, il y a le séparateur ',' et à nouveau tout sauf ' plusieurs fois Dim toutesLesLignes As IEnumerable(Of LaClasse2JMO) = ( From m In Regex.Matches(texte, pattern).Cast(Of Match)()'MatchCollection n'est pas "Linquable" directement, d'ou le Cast Where m.Success Select New LaClasse2JMO(m)) Dim resultat As List(Of LaClasse2JMO) = ( From l In toutesLesLignes Group l By l.Trigramme Into leGroup = Group Select New LaClasse2JMO With {.Trigramme = leGroup.First().Trigramme, .Client = leGroup.First().Client, .Serveur = leGroup.First().Serveur}).ToList()'là on groupe et on prend le premier ComboBox1.DataSource = resultat Imports System.Text.RegularExpressions Public Class LaClasse2JMO Public Sub New() End Sub Public Sub New(ByVal M As Match) Trigramme = M.Groups("trigramme").Value Client = M.Groups("client").Value Serveur = M.Groups("serveur").Value End Sub Public Property Trigramme() As String Public Property Client() As String Public Property Serveur() As String Public Overrides Function ToString() As String Return Trigramme & " - " & Client & " => " & Serveur End Function End Class

Utilisation de linq au lieu de Dictionary

4 réponses

Votre réponse