Discussion :

[silvermanu]

Bonjour,
J"ai deux fichiers txt:
le 1er exp:
toto,12345678
titi,1234567
tata,7654321
etc...
le 2ieme
blabla,12345678
lololol,7654321
ploufplouf,7654321
etc..
Je cherche a écrire dans un autre fichier en croisant les deux premiers:
toto,12345678,blabla
tata,7654321,lololol
Merci pour vos idées.

[pitchalov]

Bonjour,

Ben va falloir déjà commencer par lire tes 2 fichiers (la FAQ VBS t'aidera à le faire), et pourquoi pas stocker leur contenu dans des variables.
Après, un peu de traitement de chaines de caractères (FAQ VBS + doc VBS), pour retrouver tes infos, puis il te restera plus qu'à réécrire le tout dans un autre fichier (encore FAQ VBS).

Il y a beaucoup d'exemples sur ce forum qui t'aideront à attaquer.

Poste ton code si tu veux de l'aide pour la résolution de tes problèmes.
Bonne continuation

[silvermanu]

Bon j'suis vraiment perdu.... je vous poste mon code. Rien ne s'écrit dans le fichier de destination...Si quelqu'un a une idée je suis preneur. merci

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
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Dim fso, f , f1, f2
Dim tab ,tab1
'on error resume next
Set objDictionary = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("toto.txt", ForReading)
Set f1 = fso.OpenTextFile("tata.txt", ForReading)
Set f2 = fso.CreateTextFile("titi.txt") 
f2.Close
Set f2 = fso.OpenTextFile("titi.txt", ForWriting)
i = 0
Do Until f.AtEndOfStream
ligne = f.ReadLine
tab = Split(ligne , ",")
 licences = tab(0)
 login = tab(1)
objDictionary.Add i, login
i = i + 1
Loop
Do until f1.AtEndOfStream
lignes = f1.ReadLine
 tab1 = Split(lignes , ",")
 nom = tab1(0)
loggin = tab1(1)
	If   objDictionary.exists(loggin ) Then
		f2.WriteLine lignes
	End If
	Loop
f2.Close
f.Close
f1.Close

[SfJ5Rpw8]

un problème avec ta fonction exist :

Code :

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

object.Exists(key)

et le Add :

Code :

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

object.Add (key, item)

pour le key tu utilise i (1, 2....) pour le Add ce n'est pas ce que tu veux trouver avec exists...

modifie ta ligne Add :

Code :

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

objDictionary.Add login, login

Attention ne fonctionne que dans le cas ou login est unique dans ton fichier ...

[silvermanu]

En effet ça marche mieux comme ça et pourtant ça crevait les yeux
Merci à toi bbil,
Problème résolu