Récupérer des valeurs d'un fichier texte

[totof]

Bonjour
J'ai un fichier texte qui ressemble à ça ;

--
[var1]
val1
[var2]
val2
[var3]
val3
...
--

Je veux récupérer une valeur, par exemple j'ai une variable qui contient la chaine "var1", je vceux récupérer val1

J'ai voulu faire comme ça :

sIniNode = "var1"

sPath = Application _
.GetOpenFilename("Fichier Ini (*.ini; *.txt), *.ini; *.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(sPath, True)

Do While a.AtEndOfStream <> True
sLine = a.ReadLine()
If sLine = "[" & sIniNode & "]" Then
sValue = a.ReadLine()
Exit Do
End If
Loop
a.Close

'maintenant sValue devrait contenir "val1"

Mais j'ai une erreur :
Set a = fs.OpenTextFile(sPath, True)
Erreur d'éxécution '5', Argument ou appel de procédure incorrect.

J'ai vérifié, sPath contient bien le chemin, je ne vois pas d'où peut venir l'erreur

Merci
Totofweb

 

[Creepy]

Salut,

Ragarde là :
http://www.excel-downloads.com/html/French/forum/messages/1_103549_103549.htm

C'est un fichier que j'ai fait pour recuperer des valeurs dans un fichier texte, je pense que tu y trouveras ton bonheur.

++

Creepy