Discussion :

[zooffy]

Bonjour tout le monde.

Je ne suis pas trés doué encore avec les manipulation de Array et de String()

Pour l'instant j'ai ça dans mon code :

Code :

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

Dim lstChamp As String() = Split(ListeChamp, ",")

ça me prend un suite de chaine séparée par des virgules et ça marche bien.
Maintenant je voudrais rajouter une deuxième "colonne" dans le lstChamp.

J'ai une autre liste, en rapport avec la première, que je voudrais metre en corrélation. Sauf que e trouve pas le moyen de la fire. Et dans la doc, c'est pas clair, je comprends pas ce qu'ils disent. Pour l'instant la seule chose que j'arrive à faire c'est les mettre l'un en dessous de l'autre.

Pouvez vous m'aider ?

[Samuel Blanchard]

Bonjour zooffy,

Maintenant je voudrais rajouter une deuxième "colonne" dans le lstChamp

Qu'est ce que tu appelles une 2eme colonne ?

J'ai une autre liste, en rapport avec la première, que je voudrais metre en corrélation

précise ta corrélation si tu veux bien.
Veux tu insérer la deuxieme liste en position impaire de la première ?

[tomlev]

donne nous du concret, parce que là on comprend pas très bien ce que tu cherches à faire...

[zooffy]

Merci les gars.

Alors je voudrais faire un tableau à deux colonnes dans un String()

Quand tu fais ça :

Code :

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

Dim lstChamp As String() = Split(ListeChamp, ",")

Tu obtiens un tableau à une colonne que tu peux appeller de la manière suivante :

Code :

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

lstChamp(0)

Ben moi je voudrais ajouter une deuxième colonne à côté et pouvoir faire un deuxième Split avec une autre chaine.

En gros, j'ai deux chaines de caratère qui sont des listes. La première contient les noms des champs, la deuxième la valeur des champs. donc je voudrais metre tout ça dans un tableau cohérent et pouvoir les appellés, genre :

Code :

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

lstChamp(0,0)

Suis je plus clair ?

[tomlev]

Un Dictionary serait plus pratique à utiliser qu'un tableau, non ?

Code :

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

1
2
3
4
5
6
Dim lstChamp As String() = ListeChamp.Split(",")
Dim lstValeur As String() = ListeValeur.Split(",")
Dim dic As New Dictionary(Of String, String)
For i As Integer = 0 To lstValeur.Length
    dic.Add(lstChamp(i), lstValeur(i))
Next

Comme ça tu peux l'utiliser de cette façon :

Code :

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

Dim valeurDeToto As String = dic("Toto")

Sinon, avec Linq on pourrait faire quelque chose comme ça (*) :

Code :

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

1
2
3
Dim dic = ListeChamp.Split(",") _
                .Zip(ListeValeur.Split(","), Function(c, v) New With { .Champ = c, .Valeur = v }) _
                .ToDictionary(Function(e) e.Champ, Function(e) e.Valeur)

(*) : en fait la méthode d'extension Zip n'existe qu'à partir de .NET 4.0... On peut la recoder assez facilement en C# :

Code C# :

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

1
2
3
4
5
6
7
8
9
10
11
        private static IEnumerable<TResult> Zip<TFirst, TSecond, TResult>(this IEnumerable<TFirst> first, IEnumerable<TSecond> second, Func<TFirst, TSecond, TResult> selector)
        {
            using (var enum1 = first.GetEnumerator())
            using (var enum2 = second.GetEnumerator())
            {
                while (enum1.MoveNext() && enum2.MoveNext())
                {
                    yield return selector(enum1.Current, enum2.Current);
                }
            }
        }

Malheureusement, vu que ça utilise un itérateur, on ne peut pas le traduire facilement en VB... Tu peux toujours mettre ça dans une DLL C# que tu références dans ton projet VB, mais bon, au final la première approche est sans doute plus simple

[zooffy]

Merci pour vos deux solutions que je trouve vachement bien.

Maintenant, je m'aperçois que j'ai oublié de préciser comment je voulais m'en servir !!!

Une fois mon "tableau" constitué je veux le lire séquentiellement avec un For Each.

Alors, sur le Dictionnary, ça me parait vachement bien ce truc, mais seulement quand on connait les valeurs recherchées. Dans mon cas ici, ce n'est pas le cas et du coup, j'ai du mal à le lire.

Ensuite la List Of, je connaissais mais j'avais pas pensé à l'utiliser comme ça. Du reste, je savais pas trop comemnt lui coller deux lsite dans le buffet.

Mais l'ennui c'est qu'elle ne veux pas rentrer dans le For Each

[Samuel Blanchard]

Ok c'est beaucoup plus claire

Je te conseille les listes qui te permettront d'ajouter autant de ligne que tu le souhaites.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim list As New List(Of String())() 
 
list.Add(Split(ListeEntete, ",")) 
list.Add(Split(ListeChamp1, ",")) 
list.Add(Split(ListeChamp2, ",")) 
 
Dim premierEntete As String = list(0)(0) 
Dim premiereLignePremierChamp As String = list(1)(0) 
Dim premiereLigneSixiemeChamp As String = list(1)(5)