recherche dans deux fichiers txt

Version imprimable

27/04/2010, 12h33
silvermanu

recherche dans deux fichiers txt

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.
27/04/2010, 13h31
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

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:

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

28/04/2010, 21h24
SfJ5Rpw8

un problème avec ta fonction exist :

Code:

object.Exists(key)

et le Add :

Code:

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:

objDictionary.Add login, login

Attention ne fonctionne que dans le cas ou login est unique dans ton fichier ...
29/04/2010, 07h57
silvermanu

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