Coller deux array l'un à côté de l'autre

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:

---

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 ?

Bonjour zooffy,

Citation:

---

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

---

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

Citation:

---

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 ?

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

Merci les gars.

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

Quand tu fais ça :

Code:

---

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

---

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

Code:

---

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:

---

lstChamp(0,0)

---

Suis je plus clair ?

Ok c'est beaucoup plus claire :)

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

Code:

---

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)

---

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

Code:

---

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:

---

Dim valeurDeToto As String = dic("Toto")

---

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

Code:

---

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:

---

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 :aie:

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

Ceci devrait marcher :

Code:

---

1 2 3 4 5 6

For Each colonnes As String() In list For Each colonnes As String In colonnes ' ici tu as la colonne en cours Next Next

---

Citation:

---

Envoyé par zooffy

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.

---

plusieurs solutions (enfin surtout 2 en fait)

Code:

---

1 2 3

For Each kvp As KeyValuePair(Of String, String) In dic Console.WriteLine("{0} => {1}", kvp.Key, kvp.Value) Next

---

Code:

---

1 2 3

For Each key As String In dic.Keys Console.WriteLine("{0} => {1}", key, dic(key)) Next

---

Un grand merci à vous deux.

Le Dictionnary c'est génial, tout simplement. J'avais jamais osé l'utiliser parce que la doc est assez obscure pour moi (heu, oui, ingénieur, mais j'ai pas le diplome !!!). C'est pile poil ce que je voulais.

Mon souci c'est que j'avais jamasi fais le lien avec le KeyValuePair.

La méthode du List Of me paraissait bien, mais à l'usage, je me rend compte que el classement se fait en "ligne" et pas en "colonne". Enfin, la notion est complexe a expliquer sur un forum, l'oral serait plus pratique. En gros, c'est pas rangé dans le bon sens.

Désolé, j'arrive pas à être plus clair. Mais je garde l'idée pour d'autres applications, je pense que cela me servira. J'utilise déjà le List Of dans mes outils mais pour des choses beaucoup plus déterministe.

Moi je retiens que vous m'avez super bien aidé, c'est cool.

Je vous souhaite plein de bonnes choses et un bon week-end.

Ca fait plaisir d'aider quelqu'un d'aussi sympatique et dont le language est aussi fleuri :)

@+ sur le forum