Chers développeurs,

J'ai deux fichiers txt (des csv)

toto.txt est sous la forme:
fchobin,,,,+33653559897,,,GRUND.Raisin,false,false,true
avidard,,,,+33987858472,,,POUILOU.Toto,false,false,true
atyuiop,,,,+33745692135,,,HUMPOI.Abricot,false,false,true
azerty,,,,+33446895383,,,STAMEN.Ivan,true,false,false
asando,,,,+33879854632,,,STAMEN.Ivan,false,false,true
asiman,,,,+33689874213,,,PENAU.Jasque,false,false,false
avolte,,,,+33145685213,,,POUILOU.Toto,true,false,true

et toto2.txt sous la forme:
HUMPOI.Abricot,Institut11,HUMPOI.Abricot,,,,FBICIA,Adresse,,false,true
GRUND.Raisin,Institut32,GRUND.Raisin,,,,FBICIOI,Adresse,,false,true
POUILOU.Toto,Institut3,POUILOU.Toto,,,,FBICIA,Adresse,,false,true
STAMEN.Ivan,Institut99,STAMEN.Ivan,,,,FBICIOI,Adresse,,false,true
PENAU.Jasque,Institut99,PENAU.Jasque,,,,FBICIA,Adresse,,false,true


Ce que je souhaite c'est comparer les lignes de la colonne 1 de toto2.txt (HUMPOI.Abricot, GRUND.Raisin, POUILOU.Toto, etc...) avec les lignes de la colonne 8 de toto.txt (GRUND.Raisin, POUILOU.Toto, HUMPOI.Abricot, etc...)
Dès que le contenu est identique, la ligne de toto2.txt identique est collée à la suite de la ligne correspondante dans toto.txt.
Ex:
fchobin,,,,+33653559897,,,GRUND.Raisin,false,false,true,GRUND.Raisin,Institut32,GRUND.Raisin,,,,FBICIOI,Adresse,,false,true
avidard,,,,+33987858472,,,POUILOU.Toto,false,false,true,POUILOU.Toto,Institut3,POUILOU.Toto,,,,FBICIA,Adresse,,false,true
atyuiop,,,,+33745692135,,,HUMPOI.Abricot,false,false,true,HUMPOI.Abricot,Institut11,HUMPOI.Abricot,,,,FBICIA,Adresse,,false,true
azerty,,,,+33446895383,,,STAMEN.Ivan,true,false,false,STAMEN.Ivan,Institut99,STAMEN.Ivan,,,,FBICIOI,Adresse,,false,true
etc...

J'ai ça pour l'instant (de Pitchalov, il y a bien longtemps déjà...)

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
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objInfoFile = objFso.OpenTextFile("C:\Users\Desktop\Curl\toto.txt", 1)
 
Set objFSO2 = CreateObject("Scripting.FileSystemObject") 
Set objInfoFile2 = objFSO2.OpenTextFile ("C:\Users\Curl\toto2.txt",1)
 
Dim arrUsers ()
ReDim arrUsers(21, 0)
Dim arrUsers2 ()
ReDim arrUsers2(21, 0)
 
Do While Not objInfoFile2.AtEndOfStream
arrTemp2 = Split(objInfoFile2.ReadLine, ",")
Do While Not (objInfoFile.AtEndOfStream)
arrTemp = Split(objInfoFile.ReadLine, ",")
i = 0
boolUserFind = False
If arrTemp2(0) = arrUsers(7, i) Then boolUserFind = True 	
Do While boolUserFind = False AND i < Ubound(arrUsers, 2) 	
i = i + 1	
If arrTemp2(0) = arrUsers(7, i) Then boolUserFind = True		
Loop												
If boolUserFind = True Then									
arrUsers(7, i) =  arrUsers(7, i) & arrTemp2(0) 	
Else													
Redim Preserve arrUsers (21, Ubound(arrUsers, 2) + 1)		
arrUsers(0, Ubound(arrUsers, 2) - 1) = arrTemp(0) & "," & arrTemp(1) & "," & arrTemp(2) & "," & arrTemp(3) & "," & arrTemp(4) & "," & arrTemp(5) & "," & arrTemp(6) & "," & arrTemp(7) & "," & arrTemp(8) & "," & arrTemp(9) & "," & arrTemp(10) & "," & arrTemp2(0) & "," & arrTemp2(1) & "," & arrTemp2(2) & "," & arrTemp2(3) & "," & arrTemp2(4) & "," & arrTemp2(5) & "," & arrTemp2(6) & "," & arrTemp2(7) & "," & arrTemp2(8) & "," & arrTemp2(9) & "," & arrTemp2(10)
End If
Loop
Loop
Redim Preserve arrUsers (21, Ubound(arrUsers, 2) - 1)		
strTemp = ""
For i = 0 To Ubound(arrUsers, 2)
strTemp = strTemp & arrUsers(0, i) & vbnewline 
Next
Set Fso = CreateObject("Scripting.FileSystemObject")
 Set f = Fso.OpenTextFile("C:\Users\Curl\totalclients.txt", 2)
      f.Write (strTemp)
Cependant seule la première ligne de toto2.txt est copiée à la suite de chaque ligne de toto.txt. J'obtiens ça:

fchobin,,,,+33653559897,,,GRUND.Raisin,false,false,true,GRUND.Raisin,Institut32,GRUND.Raisin,,,,FBICIOI,Adresse,,false,true
avidard,,,,+33987858472,,,POUILOU.Toto,false,false,true,GRUND.Raisin,Institut32,GRUND.Raisin,,,,FBICIOI,Adresse,,false,true
atyuiop,,,,+33745692135,,,HUMPOI.Abricot,false,false,true,GRUND.Raisin,Institut32,GRUND.Raisin,,,,FBICIOI,Adresse,,false,true
azerty,,,,+33446895383,,,STAMEN.Ivan,true,false,false,GRUND.Raisin,Institut32,GRUND.Raisin,,,,FBICIOI,Adresse,,false,true
etc...

Edit: "Je viens de repasser des heures dessus, c'est plus compliqué que je pensais. Le problème est d'écrire sur la même ligne, deux lignes contenant le même mot venant de deux fichiers différents ! Je suis sur un gros os, je comprend pas comment faire ça! Je me rend compte que c'est n'importe quoi mon code.... siouplait"
Je vous remercie par avance et vous adresse mes salutations les plus distinguées cordialement et avec toute mon affection la plus sincère!