Discussion :

[snorky94]

Hello c'est encore moi

J'ai une liste de machines dans un fichier texte :

toto
titi
tata

Je les lis ligne par ligne et je split à chaque ligne pour faire un tableau :

Ensuite je prends chaque ligne de mon tableau et je les ajoute dans un dico pour etre réutilisées plus tard :

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
 
Const ForReading = 1
 
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set LectureFichierImport = objFSO.OpenTextFile("E:\Scripts\liste_machines.txt", ForReading, True) 'Ouverture Fichier
 
Do While LectureFichierImport.AtEndOfStream <> True 'Boucle Lecture fichier jusqu'a la fin
 
	Recherche = LectureFichierImport.ReadLine	' Lecture ligne par ligne
	MonTableau1 = Split(Recherche, vbnewline) 'Split à chaque ligne pour creer un tableau
 
	For I = LBound(MonTableau1) to UBound(MonTableau1) 'Parcours du tableau du début à la fin
 
		wscript.echo MonTableau1(I) 	'Affichage ligne tableau
		UpdateCOunt = UpdateCount + 1	'COmpteur nbre de lignes
 
		Set Updates = CreateObject("Scripting.Dictionary") 'Creation du dico
 
		'----------------------------
		Updates.Add MonTableau1(I) 'Remplissage du tableau ne marche pas ??????
		'----------------------------
 
	Next
 
Loop 'Boucle Lecture fichier jusqu'a la fin
 
wscript.echo "    " & UpdateCount & " Nbre de lignes"

En fait il manque une clé à mon dico je crois mais je ne vois pas comment faire.

Merci à vous.

[papyxy]

D'abord la ligne 17 n'est pas à sa place; la création du dictionnaire doit se faire avant d'entrer dans la boucle de lecture.
Allez voir ici pour voir comment fonctionne un ajout au dictionnaire.

[snorky94]

Merci pour le dico c'est résolu.