Discussion :

[darksnake]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[darksnake]

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

[AlainTech]

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

[darksnake]

bon je commence a deserperer malgré votre aide

jai modifier le code

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

[darksnake]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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