Discussion :

[taille50]

Bonjour,
J'ai un Tableau1 et un Tableau2 qui contiennent des String.
Et j'aimerais savoir, s'il y a une methode simple qui permettrait de creer deux autres tableaux,
avec dans le 1er tous les elements du taleau1 qui ne sont pas dans Tableau2,
et dans le deuxieme tous les elements du Taleau2 qui ne sont pas dans Tableau1.
J'ai pense a deux boucles imbriquees l'une dans l'autre mais il y aura plein d'elements dans Tableau1 et Tableau2 et donc ca sera trop long.
Merci

Raphael

[OhMonBato]

Tes tableaux 1 et 2 sont ils triés ? Si oui, tu n'as pas besoin de faire une comparaison sur tous les éléments.

[taille50]

Oui les tableaux sont tries et je vois bien comment faire mais j'ai l'impression que c'est un peu trop bourin!
Et il y a surement une Methode deja toute faite et plus rapide pour resortir les differences, non?
Merci

[OhMonBato]

Si tu vois bien comment faire, peux tu nous dire ce que tu vois ? On pourra peut etre te dire ensuite si on trouve ça bourrin ou pas...

[taille50]

Donc j'ai tape ce que j'imaginais et avec peu de fichier ca marche bien mais j'ai peur que plus tard quand il y aura beaucoup plus de fichiers ca soit long a executer.
Voici le code:

Code :

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

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
 
Dim I, J, Max1, Max2  As Integer
Dim nomfichier1 , nomfichier2 As String
Dim Table1(), Table2() As String
Dim Tableau1(), Tableau2() A String
 
Table1(0) = "fichier1"
Table1(1) = "fichier3"
Table1(2) = "fichier5"
Table2(0) = "fichier1"
Table2(1) = "fichier2"
Table2(2) = "fichier5"
Max1 = Len(Table1)
Max2 = Len(Table2)
 
For I = 1 To Max1 Step 1
    nomfichier1 = nomfichier1 & Table1(I) & "@@"
Next
 
For J = 1 To Max2 Step 1
    nomfichier2 = nomfichier2 & Table2(J) & "@@"
Next
 
nomfichier1 = Left(nomfichier1 , Len(nomfichier1 ) - 2)
nomfichier2 = Left(nomfichier2 , Len(nomfichier2 ) - 2)
 
For I = 1 To Max1 Step 1
    For J = 1 To Max2 Step 13
 
        If Table1(I) = Table2(J) Then
            nomfichier1 = Replace(nomfichier1 , Table1(I), "", 1, -1, vbTextCompare)
            nomfichier2 = Replace(nomfichier2 , Table1(I), "", 1, -1, vbTextCompare)
        End If
    Next
Next
 
Tableau1 = Split(nomfichier1 , "@@", -1, vbTextCompare)
Tableau2 = Split(nomfichier2 , "@@", -1, vbTextCompare)

Juste vous aurez remarquer que au lieu de travailler sur les tableau, j'ai tout mis dans un string ce qui me permet de supprimer les fichier commun en les remplacant par ""

[OhMonBato]

Tu as vraiment essayé ce code sous vb ?
Ca donne quoi 'Len(Table1)' ?

Si je m'amuse à relever tous les endroits où ton code va planter, la liste va être assez fournie, quelques exemples :
- Dim Tableau1(), Tableau2() A String
Il faudrait 'As' au lieu de 'A'
- Max1 = Len(Table1)
J'imagine que tu parles de Ubound plutot que Len
- Table1(0) = "fichier1"
Le tableau n'étant pas dimensionné précisément, ça va coincer avec un beau 'indice en dehors de la plage'
- Les boucles for i... next et For J ... next
Elles commencent à 1 alors que tu démarre l'indice de tes tableaux à 0.

Ensuite, pour etre honnete, je n'ai pas trop cherché à analyser la suite du code parce que je pense qu'il faudrait d'abord que tu éclaircisse un peu ta méthode ou que tu nous explique au moins le principe de celle ci.
Je te demandais si tu triais tes tableaux car alors tu n'as pas besoin de comparer tous les éléments d'un tableau avec tous les éléments de l'autre, si tu as vraiment beaucoup d'éléments, il est PEUT ETRE plus rapide d'aller comparer uniquement ceux dont la première lettre est commune et donc d'aller chercher d'abord l'indice du premier élément qui a la première lettre commune par exemple.