Recherche texte dans une log

Question

Bonjour,

Lors du d&#233;marrage d'un service ce dernier apparait comme d&#233;marr&#233; dans windows mais en fait il est trjs en cours de d&#233;marrage, j'aimerai donc d&#233;tect&#233; quand ce dernier est bien mont&#233; en scrutant la log qu'il g&#233;n&#232;re.
Je sais qu'il est bien mont&#233; quand la cha&#238;ne "running mode" est inscrit dans le fichier de log.
Donc il me faudrai un script qui recherche cette cha&#238;ne et qui boucle jusqu'&#224; ce que celle ci apparaisse tout en positionnant un timeout.
La log g&#233;n&#233;r&#233; n'est pas en acc&#232;s exclusif.
Voici le d&#233;but du script que j'ai &#233;crit mais je bloque pour la boucle et la recherche de la chaine en plein milieu d'une ligne :

'******************************************************************
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.OpenTextFile("e:	est.log")



Set fso = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.OpenTextFile("e:	est.log")


Do While myFile.AtEndOfStream <> True
strLine = myFile.ReadLine
sString = "running Mode"


If strLine = sString then
Wscript.echo("OK")
End If
Loop


myFile.Close
set myFile = nothing
set fso = nothing


'******************************************************************

Pour le moment ce script ne me trouve juste la chaine quand elle existe dans ligne seule, je sais que je dois utiliser la fonction InStr pour rechercher la chaine n'impote ou mais j'ai du mal, de plus le programme ne boucle pas.

Merci d'avance pour l'aide.

cs_ITALIA · Answer

avec un timer et la fonction Instr()

Open "e:	est.log" For Input As #1
    Do Until EOF(1)
        Line Input #1, ligne
        If instr(1,ligne,running Mode") then
            Wscript.echo("OK")
        End if
    Loop
Close #1

It@li@

cs_ITALIA · Answer

OUPS j'ai oubli&#233; un " avant running Mode") 

It@li@

cs_masmas · Answer

Cool j'ai modifi&#233; mon script, j'&#233;cris un VBS dans je ne sais traduire : 
Open "e:	est.log" For Input As #1
    Do Until EOF(1)

Voici mon script qui marche : 

**************************************************************
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.OpenTextFile("e:	est.log")


Do While myFile.AtEndOfStream <> True
strLine = myFile.ReadLine
sString = "running Mode"


If InStr(1,strLine, sString) Then
Wscript.echo("OK")
End If
Loop


myFile.Close
set myFile = nothing
set fso = nothing
***************************************************************

Ca fonctionne bien, mais l'instance s'execute qu'une fois, comment puisje faire pour le script tourne jusqu'&#224; ce que la chaine : "running Mode" soit inscrite.

Recherche texte dans une log

3 réponses

Discussions similaires