Test parité sur tableau

Bonjour à tous,

Voila mon soucis :

J'ai un tableau T(i) a 1 dimension

Exemple :

toto001
toto085
toto066
toto097
toto002

Je souhaiterai tester la parité du 7ème caractère de chaque chaine.

Si toto00"1" est pair
faire FRUIT = "blabla"
Sinon FRUIT = "blublublublu"

Je me suis un peu balader sur différente discution qui utilise du mod 2 et d'autre solution mais pour d'autre langage.

Je ne suis pas arriver a réutiliser du mod 2 comme je le souhaite.

Quelqu un pourrait me donner un exemple concret ?

En vous remerciant,

BL

bonjour,

Code:

---

1 2 3

For n=0 to Ubound(T) if Right(T(n),1) mod 2 = 0 then sFruit="even" else sFruit="odd" Next

---

Bonjour,

Je venais juste de trouvé la solution ! :)

Mais la tienne a l'air mieux

Merci beaucoup