Mettre contenu fichier texte dans un dictionnaire simple mais je n'arrive pas ..
Hello c'est encore moi :)
J'ai une liste de machines dans un fichier texte :
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:
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.
