Discussion :

[Danyel]

Salut All,

J'ai un petit probleme que je n'arrive pas à resoudre dans de bonnes conditions.
En fait c'est tres simple, j'ai une dizaine de donnees texte et je dois verifier que aucune ne soient identique avec n'importe laquelle des autres.

Alors c'est clair que je pourrais faire une collection de if else and else, mais je suis sur qu'il y a un moyen plus rapide et efficace de faire cette simple comparaison.

Si qq a la bonne routine, ca serait sympa de m'aider.

Thx
Danyel

[SaumonAgile]

Tu peux mettre tes chaines dans un tableau et le parcourir avec 2 boucles.

[Pol63]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim listedestring as system.collections.generic.list(of string)
dim listetemp as system.collections.generic.list(of string)
 
listedestring.add(1erechaine)
listedestring.add(2emechaine)
'etc...
 
for each str as string in listedestring
  if listetemp.contains(str) then 
    'alors y a 2x fois le meme, flagger un booléen
    exit for
  end if
  listetemp.Add(str)
next

y doit y avoir encore plus simple

[Danyel]

Merci a tous les 2.
Je vais tester le code.

[Danyel]

Ca roule nickel sperot.
J'ai juste dû rajouter le new pour les system.collections
C'est franchement plus joli qu'une collection de if/elseif
Encore merci à vous 2.

[Pol63]

et plus performant avec un peu de chance

[Danyel]

Il y a quand meme un probleme comme cela, car ca prends en compte la casse des textes.
Par exemple, Bonjour ne sera pas identique à boNjour, alors que dans mon application si !!!

Et je ne suis pas sur que si je passe toutes les donnees en minuscule lors de l'add dans la collection suffise.
Idem pour les éèàùç etc ...
Une idee ?

[Pol63]

les collections, on peut surcharger leur méthode de comparaison à priori et donc mettre tout en pareil au moment du test pour que ca répond oui

[Danyel]

En passant toutes les donnees en minuscule ca fonctionne bien.
Il y a tjrs un probleme avec les accents, mais je vais contourner.