[R] Vérification permanente d'un répertoire

[GhostLine]

Bonjour à tous !

Je viens vers vous afin de vous demander un coup de main par rapport à un problème que je rencontre.

J'ai créé un script qui scrute en permanence un répertoire (des machines sur mon réseau y déposent des fichiers texte, par l'entremise d'un autre script qui tourne sur ces dernière), que voici :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <string.au3>
#Include <file.au3>
#include <ExcelCom_UDF.au3>
#include <_FileListToArrayEx.au3>
#include<Array.au3>
#include <Constants.au3>

TraySetIcon("Shell32.dll",-87)
TraySetClick(8) ;only show the menu when right clicking
$exititem = TrayCreateItem("Quitter")
$ar_Array = _FileListToArrayEx("c:\ghost\total\temp\", "*.txt", 1, 0)
$toto = ""

While 1
TraySetToolTip("Running ...")
Sleep(5000)
$ar_Array = _FileListToArrayEx("c:\ghost\total\temp\", "*.txt", 1, 0)
    if @error="0" Then
        $fichier_temp = "c:\ghost\total\temp\" & $ar_Array[1]
        $fiche_int =_ExcelBookOpen("c:\ghost\total\TTL-Int.xls",0)
        $file = FileOpen($fichier_temp, 0)
        $string = FileReadLine($file)
        $input = StringSplit($string, ";", 1)
        $sn_beetle = $input[1]
        $addr_mac = $input[2]
        $date = $input[3]
        $version = "P0801RC2F"
        _ExcelWriteCell($fiche_int,$date, 4, 2)
        _ExcelWriteCell($fiche_int,$version,9,2)
        _ExcelWriteCell($fiche_int,$sn_beetle,10,2)
        _ExcelWriteCell($fiche_int,$addr_mac, 11, 2)
        _ExcelPrintSheet($fiche_int,"Integration",1,"")
        _ExcelBookClose($fiche_int,1)
        FileClose($file)
        FileDelete($fichier_temp)
        ContinueLoop
    EndIf
WEnd

Mon problème est que j'ai été obligé de rajouter un sleep en début de boucle, pour éviter d'avoir une charge CPU de 70-80% permanente sur cette machine (qui est tout de même un serveur équipé d'un Xeon et de 4Go de RAM).

J'aurais aimé savoir s'il existait une méthode qui me permette d'obtenir le même résultat, en limitant l'utilisation du processeur.

Merci d'avance !

[sylvanie]

Bonjour,
Le must aurait été de pouvoir s’enregistrer à un évènement de changement du filesystem, mais là je n'en ai pas en tête.

Maintenant on peut conditionner l'exécution par rapport à la date de modification du dossier, qui me semble être une action "moins coûteuse" qu'un parcours des fichiers présent. Cependant on n’échappera pas à un timer.

Voici un exemple d'illustration :

► Afficher le texte

Code : Tout sélectionner

Global $rep_tocheck=@ScriptDir
Global $oldtime=FileGetTime($rep_tocheck,0,1)
Global $Changed=0
AdlibRegister("Notify",1000)

While 1
    If $Changed Then MsgBox(0,"Rep changé","Rep Cahngé")
    Sleep(100)
WEnd


Func Notify()
    local $time
    $time=FileGetTime($rep_tocheck,0,1)
    If $time<>$oldtime Then
        $oldtime=$time
        $Changed=1
    Else
        $Changed=0
    EndIf
    Return $Changed
EndFunc

 

Dans cet exemple, on vérifie si le répertoire où réside le script change.
Si vous reprenez cette idée, il faudra avoir le réflexe suivant :
- lancer un AdlibUnRegister en premier pour désactiver ce pseudo service de notification
- lancer votre traitement
- relancer le AdlibRegister en réinitialisant les variable $oldtime et $changed

[mikell]

L'idée (excellente) peut être reprise en mettant le traitement dans une fonction et en faisant

► Afficher le texte

Code : Tout sélectionner

While 1
    If _Notify() Then _Traitement()
    Sleep(1000)
WEnd

Func Notify()
    local $time
    $time=FileGetTime($rep_tocheck,0,1)
    If $time<>$oldtime Then
        $oldtime=$time    [color=#008000]; réinitialise la variable $oldtime (sylvanie tu l'avais écrit ! )[/color] 
        Return 1  [color=#008000] ; sinon retourne 0 par défaut[/color]
    EndIf
EndFunc

PS : s'il ne doit pas changer, le TraySetToolTip devrait être placé hors de la boucle
Le ContinueLoop est inutile puisqu'il est en fin de boucle
Pour le script ça serait bien de mettre une balise "code" en plus de la balise "spoiler"

[Tlem]

En cherchant un peut, vous trouverez sur le forum US (mais il y a quelques références ici) un UDF qui permet de surveiller les modifications apportées à un dossier un un autre qui surveille les modifications de fichiers d'un dossier.

Là, de tête je ne me souvient plus du nom, mais il était asser évocateur.

[GhostLine]

Merci pour tout ça, je vais regarder

[scorp84]

Bonjour GhostLine,

J'étais tombé sur cet UDF : Folder_monitor il y a quelques temps et je l'avais sauvegardé.

Par contre, je suis désolé mais je ne trouve plus l'url à laquelle je l'avais trouvé

Je me permets donc de le mettre directement en PJ (si cela pose problème, je comprendrai la suppression de ce post).

En espérant que cela puisse te servir.

Amicalement.

BM

Edit Tlem :
Voici le lien direct : http://www.autoitscript.com/forum/topic ... nitor-udf/

[GhostLine]

Merci à toi !