[..] Récupérer les tâches planifiées

[Dinath]

Bonjour à tous,

Code : Tout sélectionner

schtasks /query /fo table

Voici ce que la commande suivante me donne :

Code : Tout sélectionner

[...]

Dossierÿ: \Microsoft\Windows\WS
Nom de la tƒche                          Prochaine ex‚cution    Statut         
======================================== ====================== ===============
Badge Update                             N/A                    Prˆt           
Sync Licenses                            N/A                    Prˆt           
WSRefreshBannedAppsListTask              29/12/2013 18:32:48    Prˆt           
WSTask                                   N/A                    Prˆt  

J'aimerais extraire le nom de la tâche si la prochaine exécution n'est pas N/A et que le statut est prêt ; le tout à mettre dans un tableau.

J'ai essayé mais mes connaissances en expressions régulières ne sont pas très... évoluées. Après avoir vérifié que le String "Prêt" existe bien et que le String "N/A" n'y est pas.

Ce qui me gêne, ce sont les espaces que je n'arrive pas résoudre avec "\h".

Merci pour vos réponses !

[mikell]

Tu posterais pas ton code ? histoire de gagner du temps

[Dinath]

Et voilà, il me faut juste un StringRegExpReplace() qui tienne la route.

Code : Tout sélectionner

#include <array.au3>

RunWait(@ComSpec & " /c " & 'schtasks /query /fo table > %temp%\tasks.txt', "", @SW_HIDE)

Local $hFile, $string, $replaced, $aReplaced[1]

$hFile = FileOpen(@TempDir & "\tasks.txt", "r")

While 1
    $line = FileReadLine($hFile)
    If (@error == -1) Then ExitLoop

    If StringInStr($line, "Pr*t", 2) And StringInStr($line, "N/A", 2) Then
        _ArrayAdd($aReplaced, StringRegExpReplace($line, "(.*?)[0-9](.*)", "$1-$2"))
    EndIf
WEnd

FileClose($hFile)

_ArrayDisplay($aReplaced)
 

[mikell]

Essaye

Code : Tout sélectionner

  If StringInStr($line, "Pr*t", 2) And [b]not[/b] StringInStr($line, "N/A", 2) Then
        _ArrayAdd($aReplaced, StringRegExpReplace($line, "(.*?)\s*\d.+", "$1"))

[jguinch]

Sans passer par un fichier externe, et sans faire du ligne à ligne :

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
#include <array.au3>

Local $sOut

$iPid = Run("schtasks /query /fo table", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
While 1
    $sOut &= StdoutRead($iPid)
    If @error Then ExitLoop
Wend

$tasks = StringRegExp($sOut, "(?m)^(.*?)\s*\d{2}/\d{2}/\d{4} \d{2}:\d{2}:\d{2} *Pr.t", 3)

_ArrayDisplay($tasks)

L'idée est la même que celle de Mikell : on cherche une date dans la ligne qui contient "Pret".

@Mikell : les wildcards n'ont pas l'air d'être supporté par StringInStr

Edit : petite modif, j'avais oublié de ne pas prendre les blancs après le nom de chaque tâche

[mikell]

C'est de la basse vengeance trollesque

[jguinch]

[Dinath]

Salut les gars

@Mikell : les wildcards n'ont pas l'air d'être supporté par StringInStr

En effet !

Voici donc mon code, je ne peux pas passer par ta solution Jguinch car j'ai besoin de récupérer le chemin du dossier devant Dossier : \...

Code : Tout sélectionner

RunWait(@ComSpec & " /c " & 'schtasks /query /fo table > %temp%\tasks.txt', "", @SW_HIDE)

    $hFile = FileOpen(@TempDir & "\tasks.txt", "r")

    While 1
        $line = FileReadLine($hFile)
        If (@error == -1) Then ExitLoop

        If StringInStr($line, "Dossier", 2) Then $folder = StringRegExpReplace($line, ".*\:\h(.*)", "$1")

        If StringInStr($line, "Prˆt", 2) And Not StringInStr($line, "N/A", 2) Then
            $taskString = $folder & "\" & StringRegExpReplace($line, "(.*?)\s*\d.+", "$1")
            FileWriteLine($TXT, $taskString & $br)
            _ListViewAddItem("" & "|" & $found & "|" & $chkbox_label_task & "|" & $taskString, $listview_task)
            $content_task = True
        EndIf

    WEnd

    FileClose($hFile)
 

Merci