Discussion :

[jamy69]

Bonjour,
Je suis complètement débutant en script, et j'ai besoin de faire la manipulation suivante.
Lire le contenu d'un fichier texte. Chercher plusieurs valeurs et les renseigner dans des variables.

Grossièrement :

Mon fichier texte :

propriété1 = valeur1
propriété2 = valeur2
...

Mes variables que je souhaite renseigner :

variable1 = valeur1
variable2 = valeur2

Comment puis-je faire cela ?

Merci de votre aide.

[Cachlab]

Bonjour Jamy !
Ta question manque un peu de précision pour pouvoir te conseiller.
Peux-tu nous en dire un peu plus sur le fichier texte en entrée et sur son format ?
Il faudrait isoler des critères pour pouvoir extraire les valeur1, valeur2 ...

[jamy69]

Bonjour Cachlab,
Merci de ton retour rapide.

Il s'agit de lire un fichier INI précisément. Il est formé de plusieurs sections entre crochets, avec des propriétés et leurs valeurs.

Je dois récupérer les valeurs d'au moins 2 de ces propriétés contenues dans ce fichier. Je connais les noms des propriétés à relever.
Leurs petits noms :
SSAPI_Pattern_Version
Ptnfile_Version

Si tu as besoin d'autres infos...

Merci !!

[Cachlab]

Well, je peux te proposer quelquechose dans ce style ...

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
28
29
Const ForReading = 1
Dim oFSO, variable()
Set OFSO = WScript.CreateObject("Scripting.FileSystemObject")
 
fichier_txt = "mon_fichier_texte.txt"
 
' Récupérer nombre de ligne du fichier pour dimensionner le tableau variable()
Set lect = oFso.OpenTextFile(fichier_txt, ForReading)
ts = lect.ReadAll
nbr_lignes = lect.Line
Redim variable(nbr_lignes)
lect.close
 
' Extraire pour chaque ligne ce qu'il y a après le signe =
Set lect = oFso.OpenTextFile(fichier_txt, ForReading)
i=0
While Not lect.AtEndOfStream
i=i+1
Ligne = lect.ReadLine
propriete = Left(Ligne,InStrRev(Ligne,"="))
value = right(Ligne, len(Ligne) - len(Propriete))
variable(i) = value
Wend
lect.close
 
'Afficher les variables
for j = 1 to i
msgbox(variable(j))
next

[jamy69]

Yes,
Pas mal merci !

Enfin, si je souhaite récupérer seulement les valeurs de 2 propriétés connues dans 2 des lignes, comment peut on procéder ?
Si c'est dans tes cordes
Merci de ton aide

[Cachlab]

Salut ! ... voilà le genre de précisions que j'attendais ...
Du coup cela semble encore plus simple :

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
Const ForReading = 1
Dim oFSO, variable(2)
Set OFSO = WScript.CreateObject("Scripting.FileSystemObject")
 
fichier_txt = "mon_fichier_texte.txt"
 
Set lect = oFso.OpenTextFile(fichier_txt, ForReading)
While Not lect.AtEndOfStream
Ligne = lect.ReadLine
propriete = Left(Ligne,InStrRev(Ligne,"="))
value = right(Ligne, len(Ligne) - len(Propriete))
if propriete = "SSAPI_Pattern_Version=" Then variable(1) = value
if propriete = "Ptnfile_Version=" Then variable(2) = value
Wend
lect.close
 
msgbox("variable1 = " & variable(1) & vbCrLf & "variable2 = " & variable(2))

[jamy69]

Niquel,
Je récupère bien ce que je souhaite, c'est super !!!
Je te remercie pour ton aide rapide !

@ bientôt !

[luffy324]

Bonjour,

comment faire pour qu'il ne tienne pas compte des espaces au niveau de ce qui se trouve dans les guillemets et dans le fichier INI.