problème pour comparer des tableaux

Question

bonjour, j'ai un petit soucis avec des tableaux

soit 2 tableaux (a titre d'exemple):

dim tableau1(10) as string
dim tableau2(10) as string

tableau1 = array("0","1","2","3","4","5","6","7","8","9")
tableau2 = array("0","1","2","3","4","5","6","7","8","9")
je met ces valeurs juste a titre d'exemple

je cherche une fonction qui me permettrait de comparer les 2 tableaux et que qui me dise si les valeurs contenues dans ces tableaux sont identiques ou pas

si quelqu'un peut me dire ca, sachant que je travaille en VB6, merci

cs_Jack · Answer

Salut
Simple : Suffit te d'utiliser une boucle de lecture :

Dim Diff&#233;rent As Boolean, r As Long
For r = 0 To UBound(tableau1)
   If Tableau1(r) <> Tableau2(r) Then
      Diff&#233;rent = True
      Exit For
   End If
Next r
If Diff&#233;rent Then MsgBox "Tableaux diff&#233;rents !"

Il faut bien s&#251;r que les deux tableaux aient le m&#234;me nombre d'&#233;l&#233;ments

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Re
Autre chose : Normalement, tu ne peux pas utiliser la commande Array sur une tableau dimensionn&#233;.
Il faut le dimensionner dynamiquement :
    Dim Tableau1() As String
    Dim Tableau2() As String

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Gobillot · Answer

m&#234;me pas

Array ne marche que pour des Variant

Daniel

cs_bumbo · Answer

oui j'ai vu l'erreur, mais c'etait juste un exemple tapé rapidement, pour que vous compreniez ce que je recherche...

j'avais déjà pensé a la boucle for, mais c'est vrai que je dois faire la comparaison assez complexe de tableaux...il n'y a donc aucune fonction vb qui gère ca?

en fouillant, j'aientendu parler de "array.equals", ca dit quelque chose a quelqu'un, c'est du vb6 ?

déjà merci pour les réponses

cs_CanisLupus · Answer

Salut, je ne connais pas de fonction toute faite pour effectuer une compare de tableaux. Mais une petite astuce, utilisable avec des tableaux de strings &#224; 1 dimension :

MsgBox StrComp(Join(t1, ""), Join(t2, ""))

Explik : 
1 - join te permet de reconstituer une chaine avec les &#233;l&#233;ments d'un tableau (string) en choisissant un s&#233;parateur (l&#224;, j'ai pris "" comme s&#233;parateur).
2 - strcomp compare les 2 chaines obtenues :
   0 = les chaines (donc les tableaux) sont &#233;gales
   -1 = chaine (tableau) t1 < chaine (tableau) t2
   1 = chaine (tableau) t1 > chaine (tableau) t2

En fait, cette astuce te permettra seulement de savoir si 2 tableaux de strings (&#224; 1 dimension) sont &#233;gaux ou non. Peut-&#234;tre qu'il faut m&#234;me les trier avant.

Sinon, pour des tableaux d'integer ou autre, &#231;a se complique mais la soluce de jack est bonne pour tous les types.

PS : array.equals, je n'ai vu &#231;a qu'en java mais pas en vb6.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

crenaud76 · Answer

Canis Lupus < Sauf que si dans ces tableau il a :
Tableau1 -> "a","b","c","d"
Tableau2 -> "a","bc","","d"

... ton astuce (qui était très bien vu) ne va pas faire la différence !!

Christophe

crenaud76 · Answer

... vaudrait mieux ajouter un séparateur avec le Joint() pour être plus sur du coup, genre vbNullChar, tout est autant que ce caractère n'apparaissent jamais dans les éléments des tableaux.

Christophe

cs_bumbo · Answer

En fait, je cherchais un fonction manière d'alléger mon code mais bon, vous rentrez dans des "idées" un peu trop complexe pour mon niveau de débutant... j'ai déjà fait mon script a base de boucles for, je vais laisser ca comme ca... 
merci pour votre participation
A bientôt
Mathieu

crenaud76 · Answer

bumbo < En fait, pour comparer des tableau, el code de Jack est le plus passe-partout. Après Canis Lupus à proposer une astuce qui peut faire gagner du temps d'exécution mais faut faire gaffe au effet non désirable.
Bosse déjà avec le code de Jack, c'est un excellent début

Christophe.

Problème pour comparer des tableaux

9 réponses

Discussions similaires