récupérer les index d'un tableau en fonction d'un argument

Salut!
j'aimerai apres avoir éclaté un code binaire dans un tableau, récuperer les index pour lequels la valeur dans le tableau est 1!!
par exemple si j'ai 0 1 0 1,je voudrais récupérer les valeurs 1 et 3car il y a un 1 pour l'index 1 et un autre 1 pour l'index 3.:D
mes tentatives dans se sens font que je n'obtient qu'une valeur car les autres sont écrasées je suppose.:cry:
voyez plutot:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'recuperation des index pour la valeur tb(i)=1 Dim tb(3) As String tb(0) = 0 tb(1) = 1 tb(2) = 0 tb(3) = 1   Dim tbx(3) As Integer For i = 0 To 3 For j = 0 To 3 If tb(i) = 1 Then tbx(j) = i TextBox1.Text = tbx(j) End If Next Next

---

Bonjour,

il existe la feinte du caribou ;)
essaye de créer un tableau et d'y ajouter tes valeurs

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

'Déclaration des variables Dim MaSuite() as string Dim Positions As List(Of Integer)   'Import de la suite de bits MaSuite = {0,1,0,1}   'Efface la TextBox TextBox1.Text = Nothing   'Détéction des positions des bits = 1 For i = 0 To MaSuite.Lenght If MaSuite(i) = 1 Then 'Ajout dans une liste des Index Positions.Add(i) ' Ajout des index dans la TextBox If TextBox1.Text = Nothing then TextBox1.Text = i Else TextBox1.Text = TextBox1.Text & "/" & i End If   End If Next

---

Voila je n'ai jamais essayé ce genre de code mais je pense que ça doit donner quelque chose ;)

haha merci gars!!
c'est nice de ta part tu m'as bien débloqué.:ccool:
@ +