[VBS]Récupération de variables dans un fichier INI

Récupération de variables dans un fichier INI [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 10-01-2013 à 15:25:16    

Bonjour,
 
ne pouvant faire mon projet en batch je suis obliger de me tourner vers le vbs. Néanmoins, comment est-il possible de récupérer les variables d'un fichier INI suivant ce qui se trouve avant le égal?
 
exemple:
 
mon fichier ini
 
STARTPROC1 = notepad.exe
CHEMINSOURCE = test\test
 
j'aimerais récupérer les variables qui se trouvent après le = mais en vérifiant ce qui se trouve avant le égale pour les ranger dans des bonnes variables.
 
je ne sais pas si je suis clair mais si quelqu'un peut m'aider svp?
 
merci d'avance


Message édité par luffy324 le 10-01-2013 à 15:25:47
Reply

Marsh Posté le 10-01-2013 à 15:25:16   

Reply

Marsh Posté le 10-01-2013 à 16:38:09    

j'ai trouvé ça :
 

Citation :

' Récupération des informations du fichier INI pour les associer dans leurs variables respectives.
 
Const ForReading = 1
Dim oFSO, Ts, Cs, s
Set OFSO = WScript.CreateObject("Scripting.FileSystemObject" )
 
fichier_ini = "Config.ini"
 
Set lect = oFso.OpenTextFile(fichier_ini, ForReading)
While Not lect.AtEndOfStream
Ligne = lect.ReadLine
propriete = Left(Ligne,InStrRev(Ligne,"=" ))
value = right(Ligne, len(Ligne) - len(Propriete))
if propriete = "CHEMINSOURCE =" Then Cs = value
if propriete = "TABLESOURCE =" Then Ts = value
Wend
lect.close
 
msgbox("variable1 = " & Cs & vbCrLf & "variable2 = " & Ts)

 
 
mais j'aimerais que dans ma boucle il ne tiennent pas compte qu'il y'ai un espace entre le nom qu'il doit avoir et le égal.
 
quelqu'un connapitais t'il une commande svp?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed