LastIndexOf dans ArrayList

Version imprimable

Bonsoir à vous, j'ai besoin de votre aide:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Imports System.Collections
Module Module1
 
    Sub Main()
        Dim l As New ArrayList
        Dim i As Integer
        Dim t As Integer
        l.Add("Saladin")
        l.Add("Zebro")
        l.Add("Alain")
        l.Add("Ahmed")
        i = l.IndexOf("Ahmed")
        t = l.LastIndexOf("Ahmed")
        Console.WriteLine(l.Count.ToString) ' pas de problème: donne 4
        Console.WriteLine(i.ToString) ' pas de problème: donne 3
        Console.WriteLine(t.ToString) ' Problème: donne 3 !!
        Console.ReadKey()
 
    End Sub
 
End Module

Pourquoi t=3 ?
Merci

20/12/2014, 12h32
Rainui

Bonjour,

Parce que z=1 ... :), je plaisante.

En gros, vous lui demandez : Donne moi le dernier index de "Ahmed". Dans la liste, le dernier "Ahmed" est à l'index 3 et il y est qu'une fois, donc il vous donne 3.

Cordialement.
20/12/2014, 13h06
rv26t
Bonjour,

IndexOf donne l'index - il utilise une base 0 (part de 0) - donc l.IndexOf("Ahmed") est le N°3
LastIndex donne l'index du dernier élément nommé "Ahmed" - il utilise une base 0 (les indices commencent à 0, comme IndexOf) - donc le dernier élément nommé "Ahmed" est l'index N°3 (0,1,2,3)
Il est donc normal que l.IndexOf("Ahmed") et l.LastIndexOf("Ahmed") aient la même valeur puisqu'ils représentent la première et dernière occurence du tableau nommé "Ahmed".

Rajoute ces lignes à la suite des ajouts de la liste (count vaudra 6)
Code:

1 2 3 l.Add("Zebro") l.Add("Saladin") Console.WriteLine(l.LastIndexOf("Zebro").ToString) ' donne 4 !!
Le résultat vaudra 4 qui est l'index de la dernière occurence de "Zebro".
20/12/2014, 16h40
stracoma

Merci à vous, maintenant je comprends le principe.
Moi j'avais compris que LastIndexOf == IndexOf mais compte à partir du dernier indice.
Thanks
20/12/2014, 17h05
stracoma

1 pièce(s) jointe(s)

Tiré du Tuto de Plassere
Pièce jointe 164373

J'essaie de faire un exemple semblable à : i = l.IndexOf(3,"lulu")

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Imports System.Collections
Module Module1
 
    Sub Main()
        Dim l As New ArrayList
        l.Add("Jacques")
        l.Add("Zebro")
        l.Add("Alain")
        l.Add("Ahmed")
        l.Add("Zebro")
        l.Add("Saladin")
        l.Add("Ahmed")
        l.Add("Zebro")
        l.Add("Saladin")
        Console.WriteLine(l.IndexOf("Saladin").ToString) ' donne 5
        'Console.WriteLine(l.IndexOf(2, "Saladin").ToString) ' comme dans tuto, chez moi donne erreur
        Console.WriteLine(l.IndexOf("Saladin", 2).ToString) ' donne 5 !!
        Console.ReadKey()
 
    End Sub
 
End Module

Pourquoi Console.WriteLine(l.IndexOf("Saladin", 2).ToString) donne 5 alors que je cherche à partir du 2ème élément?
Merci

20/12/2014, 17h58
rv26t

Parceque le premier saladin que l'on pourra trouver depuis l'indice 2 est celui de l'indice 5
Pour trouver le suivant il faut donc démarre après cet indice. (du 6 ce qui donne 8)

Code:

Console.WriteLine(l.IndexOf("Saladin", 6).ToString) ' donne 8 !!

Sans savoir ou est le premier et l'ignorer afin de trouver le deuxième

Code:

Console.WriteLine(l.IndexOf("Saladin", l.IndexOf("Saladin") + 1).ToString) ' donne 8 !!

l'indexOf le plus inclu donne 5 auquel on rajoute 1 et on refait la recherche pour le deuxième (ce qui donne 8)
20/12/2014, 18h32
stracoma

Merci, là je comprends.
J'avais compris (et j'ai tord): "Saladin" est l'élément 5 (si on compte à partir du zéro) et deviendra 3 si je compte à partir de 2. Ce qui est totalement faux, car on ne fait q'une recherche de l'élémnent qui ne peut en aucun cas changer son indice (IndexOf).
Donc ("Saladin",2) veut dire le 1er "Saladin" que je trouve après l'indice 2.
Thanks
20/12/2014, 18h34
stracoma

Et ça résume tout

Code:

Console.WriteLine(l.IndexOf("Saladin", l.IndexOf("Saladin") + 1).ToString) ' donne 8 !!
20/12/2014, 18h42
rv26t

Citation:

Envoyé par stracoma

Merci,
...
Thanks

De rien
20/12/2014, 19h50
rv26t

Citation:

Envoyé par stracoma

Donc ("Saladin",2) veut dire le 1er "Saladin" que je trouve après l'indice 2.

Attention, pas après, mais à partir de l'indice 2. (indice 2 inclu)

Salut,

Tu devrais songer à passer au Namespace System.Collection.Generic.
Il te permet d'utiliser un équivalent d' ArrayList en utilisant List(Of Object).

Un exemple:

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
 
Imports System.Collections.Generic
 
Module Module1
 
    Sub Main()
        ' List(Of Object) fourni un équivalent de ArrayList.
        Dim l As New List(Of String) ' With {.Capacity = 10}
        Dim i, t, k, x As Integer
 
        '   Index :    0          1        2        3        4
        l.AddRange({"Saladin", "Zebro", "Ahmed", "Alain", "Ahmed"})
        '   Index :    5          6        7        8        9
        l.AddRange({"Saladin", "Ahmed", "Zebro", "Alain", "Ahmed"})
 
        ' IndexOf signifie en faite FirstIndexOf. 
        ' Il s 'agit de la 1ère occurence trouvé en partant du 1er Index (0).
        i = l.IndexOf("Ahmed")
        ' Symétrique avec FirstIndexOf. 
        ' Il s 'agit de la 1ère occurence trouvé en partant du dernier Index ((Count - 1) = 4).
        t = l.LastIndexOf("Ahmed")
 
        ' FirstIndexOf à partir de Index = 6 (inclus)
        k = l.IndexOf("Ahmed", index:=6)
 
        ' FirstIndexOf à partir de Index = 7 (inclus):
        ' - 1 signifie qu'il n'a pas trouvé l'index. Il correspond à Base - 1 = -1.
        ' C'est pris en compte par les boucle For
        ' For i = 0 To -1
        ' Next
 
        x = l.IndexOf("Ahmed", index:=7, count:=2)
 
        Console.WriteLine(l.Count.ToString) ' pas de problème: donne 4
        Console.WriteLine(i.ToString) ' pas de problème: donne 3
        Console.WriteLine(t.ToString) ' Problème: donne 3 !!
        Console.WriteLine(k.ToString) ' Problème: donne 3 !!
        Console.WriteLine(x.ToString) ' Problème: donne 3 !!
        For Index As Integer = 0 To x
            ' Section jamais executé ici.
            Console.WriteLine("-------------------------------")
        Next
        Console.ReadKey()
 
    End Sub
 
End Module

21/12/2014, 00h14
stracoma

Citation:

Envoyé par rv26t

Attention, pas après, mais à partir de l'indice 2. (indice 2 inclu)

C'est vrai, petit détaille mais très important, c'est à partir de l'indice2 (inclu) et non pas après

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
 
Imports System.Collections.Generic
 
Module Module1
 
    Sub Main()
        ' List(Of Object) fourni un équivalent de ArrayList.
        Dim l As New List(Of String) ' With {.Capacity = 10}
        Dim i, t, k, x As Integer
 
        '   Index :    0          1        2        3        4
        l.AddRange({"Saladin", "Zebro", "Ahmed", "Alain", "Ahmed"})
        '   Index :    5          6        7        8        9
        l.AddRange({"Saladin", "Ahmed", "Zebro", "Alain", "Ahmed"})
 
        ' IndexOf signifie en faite FirstIndexOf. 
        ' Il s 'agit de la 1ère occurence trouvé en partant du 1er Index (0).
        i = l.IndexOf("Ahmed")
        ' Symétrique avec FirstIndexOf. 
        ' Il s 'agit de la 1ère occurence trouvé en partant du dernier Index ((Count - 1) = 4).
        t = l.LastIndexOf("Ahmed")
 
        ' FirstIndexOf à partir de Index = 6 (inclus)
        k = l.IndexOf("Ahmed", index:=6)
 
        ' FirstIndexOf à partir de Index = 7 (inclus):
        ' - 1 signifie qu'il n'a pas trouvé l'index. Il correspond à Base - 1 = -1.
        ' C'est pris en compte par les boucle For
        ' For i = 0 To -1
        ' Next
 
        x = l.IndexOf("Ahmed", index:=7, count:=2)
 
        Console.WriteLine(l.Count.ToString) ' pas de problème: donne 4
        Console.WriteLine(i.ToString) ' pas de problème: donne 3
        Console.WriteLine(t.ToString) ' Problème: donne 3 !!
        Console.WriteLine(k.ToString) ' Problème: donne 3 !!
        Console.WriteLine(x.ToString) ' Problème: donne 3 !!
        Console.WriteLine("===========================")
        For Index As Integer = i To t
            ' (Section jamais executé ici.) cette fois si
            Console.WriteLine("Merci. code assez garni de commentaires pour bien comprendre")
        Next
        Console.ReadKey()
 
    End Sub
 
End Module