AutoIt Français

Code : Tout sélectionner

#include <Date.au3>
$repertoire="c:\testlog\"  ; dossier ou se trouve les fichiers log

$datejour = _DateToDayValue (@YEAR, @MON, @MDAY)
$delai=15 ; variable définissant le délai en jour pour l'effacement des fichiers
$search = FileFindFirstFile ($repertoire&"*.log") ; recherche des fichiers log
        If $search = -1 Then 
        MsgBox(4096,"erreur de répertoire des fichiers log"," vérifier le dossier "&@CRLF&$repertoire,10) 
        Else
                While 1 ; boucle pour tester les fichiers l'un apres l'autre
                    $fichier_a_fac = FileFindNextFile($search) 
                    If @error Then ExitLoop
                        
                    $t=FileGetTime($repertoire&$fichier_a_fac,0)
                                        
                    $vrr=_DateToDayValue ($t[0]  , $t[1]  , $t[2]) ; calcul la date du fichier
                    
                    if $vrr<($datejour-$delai) Then         ; si la date du fichier est supérieur à (la date du jour - le délai) alors effacement du fichier
;~                          FileDelete ($repertoire&$fichier_a_fac) ; effacement du fichier
                            MsgBox(4096,"fac le fichier",$repertoire&$fichier_a_fac)  ; msgbox pour vérifier que les 
;~                                                                                                     fichiers effacés sont les bon 
;~                                                                                                     ensuite valider la ligne ci dessus
                    EndIf
                WEnd
        EndIf       
FileClose($search)

Code : Tout sélectionner

#!/usr/local/bin/perl
open(LIRE,"LOG_ORIGINE.txt") || die ("Erreur de lecture de LIRE") ;
open(ECRIRE,">>RESULTAT.txt") || die ("Erreur de creation de ECRIRE") ;
while (<LIRE>) { 
if ($_ =~ m/MA_RECHERCHE/) {
    print ECRIRE $_ ; 
    }
}
close(LIRE);
close(ECRIRE); 

Code : Tout sélectionner

#include <file.au3>

$file=fileopen("recherche.txt",0)

while 1
    $line = filereadline($file)
    if $line="" then exitloop
    _FileWriteToLine("fichier.pl", 5, "if ($_ =~ m/" & $line & "/) {",1)
    RunWait("perl fichier.pl",@WorkingDir)  
WEnd

fileclose($file)

Code : Tout sélectionner

#include <file.au3>
#include <array.au3>
global $myarray

_filereadtoarray("recherche.txt", $myarray)

for $i = 1 to ubound($myarray)-1
    if $myarray[$i]<>"" Then
    _FileWriteToLine("fichier.pl", 5, "if ($_ =~ m/" & $myarray[$i] & "/) {",1)
    RunWait("perl fichier.pl",@WorkingDir)  
    EndIf
Next