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 :toto
titi
tata
Ensuite je prends chaque ligne de mon tableau et je les ajoute dans un dico pour etre réutilisées plus tard :
En fait il manque une clé à mon dico je crois mais je ne vois pas comment faire.
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"
Merci à vous.
Partager