Discussion :

[mastronic]

Bonjour,

En VB .net 2005 est-il possible de parcourir une variable de type "Dictionary" (via une boucle for i .... ) sachant que les clés du Dictionary sont des string 'A' 'B' 'C' 'D' ....

Le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListClient = client(i)

lève une exception.

Le but est de créer un string CSV
Mon code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim client As New Dictionary(Of String, List(Of client_structure))
Dim ListClient As New List(Of client_structure)
Dim csv As String 
 
' .....
 
For i = 0 To (client.Count - 1)
    ListClient = client(i)
 
    ' ..... code qui boucle sur  ListClient 
 
    If (i < client.Count - 1) Then
        csv &= "\"
    End If
Next i

Remarque :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each kvp As KeyValuePair(Of String, List(Of client_structure)) In client

est une solution mais je ne peux pas déterminer si je parcours le dernier élément ... pour éviter de mettre le séparateur "\" dans le CSV

Merci pour votre aide

[StormimOn]

Utilise le For Each et ensuite tu supprimes le \ en trop à la fin de la chaine avec la méthode String.TrimEnd ou StringBuilder.Remove, suivant comment tu construis la chaîne.

Sinon un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
string monTexte = string.Empty;
if (monTexte.Length == 0)
{
    monTexte += valeur;
}
else
{
    monTexte += "\" + valeur;
}

t'assure de ne pas avoir de séparateur en trop. C'est du C#, mais le principe est là.

La classe générique SortedList permet d'accéder aux clés/valeurs par l'index sinon.

[tomlev]

Tu peux convertir le dictionnaire en tableau de KeyValuePair :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim clientArray() = client.ToArray()
For i = 0 To clientArray.Length - 1
    ...
Next

[StormimOn]

Faut vraiment que je regarde les méthodes apparues avec 3.5

[mastronic]

Merci pour vos réponses .. .la solution que j'ai effectué:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
        csv = ""
        i = 0
        For Each kvp As KeyValuePair(Of String, List(Of client_structure)) In client
 
            ' code ... 
 
            If (i < client.Count - 1) Then
                csv &= "\"
            End If
            i += 1
        Next kvp

Merci tomlev pour la proposition, je vais regarder ta solution, car elle semble simplifier la compréhention du code.

Merci StormimOn pour tes posts.

et merci "Philippe Lasserre" pour son cours

[mastronic]

Tu peux convertir le dictionnaire en tableau de KeyValuePair :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim clientArray() = client.ToArray()
For i = 0 To clientArray.Length - 1
    ...
Next

il y a pas de méthode ToArray sur des dictionary avec le framework 2 ?
c'est une nouveau de la 3.5 ?

[tomlev]

il y a pas de méthode ToArray sur des dictionary avec le framework 2 ?
c'est une nouveau de la 3.5 ?

C'est une méthode d'extension (donc pas dispo en 2.0) qui s'applique à toutes les classes implémentant IEnumerable<T>