Récupérer des valeurs dans un fichier pour renseigner une variable

Version imprimable

07/03/2012, 15h23
jamy69

Récupérer des valeurs dans un fichier pour renseigner une variable

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.
07/03/2012, 15h40
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 ...
07/03/2012, 15h58
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 !!

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

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
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

07/03/2012, 17h27
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

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

Code:

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))

08/03/2012, 10h41
jamy69

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

@ bientôt !
10/01/2013, 16h39
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.