recuperer valeur dans un fichier texte

bonjour a tous je cherche a recuperer dans un fichier texte precis une chaine de caractere mais je ne vois pas comment j'ai deja un bout de script

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'déclaration file system object Dim fso   'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")   'on instance le fichier texte Set Ftxt = FSO.OpenTextFile("Monchemin")   'on parcours chaque ligne du fichier texte Do While Not Ftxt.AtEndOfStream MaVariable = Ftxt.Readline '....... <- votre code ici pour traiter chaque ligne Loop

---

qui lit un fichier mais je ne vois pas comment isoler ma valeur (qui change tout le temps c'est un compteur)

le fichier est generé par un batch et resort sour la forme

Code:

---

1 2 3

Variable = .iso.org.dod.internet.private.enterprises.367.3.2.1.2.19.1.0 Value = Integer32 166845 <== valeur a recuperer

---

Sur chaque ligne, je ferais un Split sur "=".
Si l'index 0 du Split = "Value" -> Un Trim sur l'index 1 et encore un Split sur " ".
La valeur cherchée doit être à l'index 1.

A la louche, ça doit donner (non testé).

Code:

---

1 2	aSplit = Split(MaVariable, "=") If Trim(aSplit(0)) = "Value" Then LaValeurCherchee = Split(Trim(aSplit(1)), " ")(1)

---

pour etre franc jai rien compris a ce que tu ma dit (noob )

split = extraction d'une valeur d'un tableau ???

en fait je ne peut pas changer mon fichier texte qui contient ma variable (redirection de sortie d'une commande dos "CMD > toto.txt")

ce n'est pas possible de dire : dasn toto.txt a la ligne X, de l'espace Y a Y+6 tu me met cette valeur dans une variable??

merci d'avance je cherche toujour de mon coté je debute c ardu :lol:

Citation:

---

Envoyé par darksnake

pour etre franc jai rien compris a ce que tu ma dit (noob )

---

As-tu essayé?

Je ne te parle pas de modififier ton fichier mais bien de récupérer la valeur à mettre dans la variable en testant si la ligne commence par "Valeur".

Ce code est à mettre à la place de "Votre code ici..."

bon je commence a deserperer malgré votre aide

jai modifier le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'déclaration file system object Dim fso   'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")   'on definir ou est le ficheir texte Set Ftxt = FSO.OpenTextFile("C:\plouf.txt")   'on parcours chaque ligne du fichier texte Do While Not Ftxt.AtEndOfStream MaVariable = Ftxt.Readline aSplit = Split(MaVariable, "Value")   loop   Resultat = Mid(MaVariable, 21, 28) msgbox Resultat

---

c aleatoire sa marche de temps en temsp (quand je genere un nouveau fichier sa ne marche plus (?) bref c aleatoire

pour extraire juste les donnée que je veut (vu quelle ne bouge jamais) jai utilisé "mid"

je ne vois pas pourquoi c aleatoire

pourtant c simple et "rigide" comme code sa devrait pas bouger HELP

voila apres un triturage de neurone et un survol de la doc Vbs jai enfin mon code qui marche !!!

je le met au cas ou sa interesse qqn

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function ReadTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f, Msg Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\plouf.txt", ForReading) ReadTextFileTest = f.Read(100) 'lit les 100 premier caractere du fichier End Function msgbox ReadTextFileTest   Resultat = Mid(ReadTextFileTest, 94, 98) 'ligne a extraite de "ReadTextFileTest" msgbox resultat

---

merci a tous pour votre aide ^^

Comme tu faisais une boucle pour lire toutes les lignes du fichiers, j'ai cru que la paire de lignes Variable - Value se répétait.

Si tu avais dit que la position de ta valeur était immuable, il est clair que je ne t'aurais pas proposé un if.
Je m'interroge toutefois sur ce qui risque de se passer si la String Variable change.

Ceci dit, tu n'as pas testé le code que je t'ai proposé.

Ca prouve, s'il en était encore besoin, que donner du code tout fait à quelqu'un ne l'aide pas.