Bonjour à tous,

J'ai un projet personnel qui m'oriente vers le VBScript pour avancer.
Je suis 100% débutant dans ce domaine, et j'ai grand besoin de votre aide SVP

Voici mes premières ecritures:
PS : ce sont des bouts de code copier dans ce site.

Mon VBS : Module de lecture du 1er Fichier *.ini
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
 
' Récupération des informations du fichier INI pour les associer dans leurs variables respectives.
 
Const ForReading = 1
Dim oFSO
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject" )
 
FichierIni = "Config_T01.ini"
 
Set lect = oFso.OpenTextFile(FichierIni, ForReading)
	While Not lect.AtEndOfStream
		Ligne = lect.ReadLine
			propriete = Left(Ligne,InStrRev(Ligne,"="))
			value = right(Ligne, len(Ligne) - len(Propriete))
				if propriete = "Arbre01 =" Then Arb01 = value
				if propriete = "Arbre02 =" Then Arb02 = value
				if propriete = "Arbre03 =" Then Arb03 = value
	Wend
 
lect.close
 
Dim MonText
MonText = ("variable1 = " & Arb01 & vbCrLf & "variable2 = " & Arb02 & vbCrLf & "variable3 = " & Arb03)
 
 
msgbox(MonText)

mon premier problème :
Je trouve pas comment crée une boucle sur : Ligne = lect.ReadLine
Ceci pour avoir toutes les lignes à afficher sans modifier mon script...

mon second problème :
Je trouve pas comment crée une liste déroulante sur la valeur "ArbreXX" predifini si-dessus...

mon troisième probleme :
Afficher dans une boite de msg la correspondance : ArbreXX -> LienXX, de la valeur choisi si-dessus.


mon 1er Fichier Config.ini
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
 
; Fichier : Config_T01.ini
; Lien vers les paramètres des Arbres à créer
;
 
Arbre01 = Arbre01.ini
Lien01 = E:\Genealogie\Decoupages\VBScript\Arbre01.ini
 
Arbre02 = Arbre02.ini
Lien02 = E:\Genealogie\Decoupages\VBScript\Arbre01.ini
 
Arbre03 = Arbre03.ini
Lien03 = E:\Genealogie\Decoupages\VBScript\Arbre01.ini
 
Arbre04 = Arbre04.ini
Lien04 = E:\Genealogie\Decoupages\VBScript\Arbre01.ini
Merci