Parcourir un dictionnaire et comparer à une string

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

J'ai un code écrit en Python que j'aimerai réécrire en VB.Net
La première chose que je dois faire c'est créer le tableau suivant

Pièce jointe 597164

Je pensais utiliser un dictionnaire pour créer un tableau avec une clé et plusieurs valeurs pour chaque clé, est-ce la meilleure méthode?

Une fois le dictionnaire créer, j'essaie de le parcourir pour le comparer à cette string, pour vérifier si dans le dictionnaire il existe un item qui correspond au premier caractère de la string.

Pièce jointe 597167

Voici le code que j'ai pour l'instant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim MyItems As New Dictionary(Of Int32, Items) MyItems.Add(0, New Items With {.Name = "K", .Param1 = 3.5, .Param2 = 9.8, .Param3 = 10.3}) MyItems.Add(1, New Items With {.Name = "R", .Param1 = 11.5, .Param2 = 12.5, .Param3 = 11.5}) MyItems.Add(2, New Items With {.Name = "H", .Param1 = 4.89, .Param2 = 6.08, .Param3 = 6.89}) MyItems.Add(3, New Items With {.Name = "M", .Param1 = 4.89, .Param2 = 6.08, .Param3 = 6.89}) For i = 0 To MyItems.Count - 1 Label3.Text = MyItems(i).Name txt_ipc.Text = MyItems.Count - 1.ToString If MyItems(i).Name = seq(0) Then Label3.Text = "Oui" Dim getCarac As String = seq(0).ToString QN1 = -1.0 / (1.0 + Math.Pow(10, MyItems(i).Param2 - pH)) Else Label3.Text = "Non" End If Next
La boucle permet de vérifier uniquement si le dernier élément du dictionnaire correspond au premier de la string, je n'arrive pas à vérifier pour chaque éléments du dictionnaire (j'ai également essayé avec un For Each)
Si quelqu'un a une idée de comment parcourir correctement le dictionnaire pour vérifier chaque valeur ...

Merci d'avance.

Ton code est à revoir ,car il faut sortir de la boucle pour l’élément de chaine trouvé :
code exemple revu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Public Class Form2
    Private MyItems As Dictionary(Of Int32, Item)
    Private Seq As String = "MKKMQSIVHAL"
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        MyItems = GetDictionary()
 
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim s As String = Seq(0)
        SearchSeq(s)
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim s As String = Seq(1)
        SearchSeq(s)
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim s As String = Seq(4)
        SearchSeq(s)
    End Sub
    Private Sub SearchSeq(seq As String)
        Label3.Text = "Non"
        LabelName.Text = "neant"
 
        For i = 0 To MyItems.Count - 1
            txt_ipc.Text = MyItems.Count.ToString
            If MyItems(i).Name = seq Then
                Label3.Text = "Oui"
                LabelName.Text = MyItems(i).Name
                Dim getCarac As String = MyItems.Keys(i)
                Exit For
            End If
 
        Next
 
    End Sub
    Private Function GetDictionary() As Dictionary(Of Int32, Item)
        Dim dictItems As New Dictionary(Of Int32, Item)
 
        dictItems.Add(0, New Item With {.Name = "K", .Param1 = 3.5, .Param2 = 9.8, .Param3 = 10.3})
        dictItems.Add(1, New Item With {.Name = "R", .Param1 = 11.5, .Param2 = 12.5, .Param3 = 11.5})
        dictItems.Add(2, New Item With {.Name = "H", .Param1 = 4.89, .Param2 = 6.08, .Param3 = 6.89})
        dictItems.Add(3, New Item With {.Name = "M", .Param1 = 4.89, .Param2 = 6.08, .Param3 = 6.89})
 
        Return dictItems
 
    End Function
 
    Private Class Item
        Public Property Name As String
        Public Property Param1 As Double
        Public Property Param2 As Double
        Public Property Param3 As Double
    End Class
    Private Class Items
        Inherits List(Of Items)
 
    End Class
 
 
End Class

bon code....

07/05/2021, 15h00
popo
Pourquoi changer la manière de stocker les éléments ?
Tu pars d'un dictionnaire dont la clé est une chaine et la valeur une liste de nombres
Tu change pour avoir un dictionnaire dont la clé est un entier et la valeur est un objet contenant 4 propriétés.

En déclarant la même structure tu pourras y appliquer les mêmes recherches.
Donc
Code:

1 2 3 4 5 Dim promopost As New Dictionary(Of String, IEnumerable(Of Double)) promopost .Add("K", {10.0, 9.8, 10.3}) promopost .Add("R", {11.5, 12.5, 11.5}) ... promopost .Add("U", {5.2, 5.43, 5.6})
Puis
Code:

1 2 3 If promopost.ContainsKey(PremiereLettreDeMaChaine) Then // Trouvé EndIf