T
totof
Guest
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
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