[C] Convertir mon batch en autoit

[Tlem]

Aucun soucis, comme je suit en repos aujourd'hui, je vais bien trouver un moment pour faire un beau sujet sur le forum US.

A moins que quelqu'un veuille se prendre un râteau à ma place.

[mikell]

Mais non, je suis juste passé par ici comme ça, en diagonale du fou, sans intention polémique.

Ah bon ? Alors c'est qu'il faut se méfier des premières impressions, parce qu'éditer ton message juste pour rajouter "donc d'après toi" en gras pouvait laisser penser le contraire

Thierry je te souhaite bon courage et (si mon boulot m'en laisse le temps) je suivrai ce fil avec le plus grand intérêt

[jchd]

Mais non, je suis juste passé par ici comme ça, en diagonale du fou, sans intention polémique.

Ah bon ? Alors c'est qu'il faut se méfier des premières impressions, parce qu'éditer ton message juste pour rajouter "donc d'après toi" en gras pouvait laisser penser le contraire

Désolé si j'ai pu faire croire à une peau de banane. Tel n'était pas mon intention. Je voulais dire : "puisque tu as regardé ça de beaucoup plus près que moi et que tu es arrivé à la conclusion qu'il y avait un hiatus dans une des fonctions, c'est que tu as raison." J'ai mis du gras vite fait pour indiquer un ajout. Rien de condescendant là-dedans, bien au contraire.

[timmalos]

[Totalement hors sujet]
Celui qui ne compte que sur la force pour gagner n'a jamais passé la nuit avec un moustique.

[jchd]

Plus proche du sujet : ce fil sur le forum US

[labougie]

Bien le bonsoir,

Je ne vous ai pas oublié .
Des soucis encombrent mon esprit.

J'ai dévoilé ce soir tous les scripts proposés.
Je découvre donc qu'AutoIt permet beaucoup de choses.

Merci pour vos contributions, avec, je découvre une autre façon de voir les choses.

J'apprécie la dernière présentation de log du scd script de Tlem. Mais le script génère une erreur sur chaque lecteur vide .
Je suis obligé de cliquer deux fois pour chaque lecteur sur "Continuer".



Quoi, tu as encore un floppy labougie?
Oui, j'aime bien ce qui fonctionne et surtout qui peu dépanner
Et puis, il est bien dans ma tour .

Ce type de rapport est franchement joli

► Afficher le texte

ToolSearch by © Labougie

Outil lancé par: Labougie Depuis: [C:\Users\Labougie\Desktop\Script AutoIt] le: 21-11-2013 à: 19:07:29
Système d'exploitation: Windows 8 Pro with Media Center -
HardWare: Cpu X64 - Système X86

=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers "*labougie* " =~=~=~=~=~=~=~=~=~=~=~=~


* Recherches pour le lecteur C:

c:\labougie
c:\labougie.txt

Le script de Mikell

Super ce splash screen, cela montre un outil plus abouti, et je suis friand de chose présentée ainsi.
Pas d'erreur sur les lecteurs vides, mais aussi pas de choix sur la sélection.

Je vais regarder tout cela avec plus de détails, et je vais tenter une compilation

===

Je vais aussi essayer d'inclure ce type de boucle

For $i = 1 tu Ubound (variable) -1
Next

Pour compter le nombre de fichiers par lecteur puis Total

===

Je reviens sur cette ligne qui vous pose un souci de réflexion

$Recherche = _FileListToArrayEx($aArray[$k] & "\", "*" & $answer[$i] & "*.*", 2, 2)

Oui, je cherche bien à sortir des dossiers avec un (.) point. Je sais, ce n'est pas commun, mais le cas est pris en compte. Les erreurs de frappes seront ainsi comprises.

Labougie

[jguinch]

Salut à vous. Désolé si je m'incruste un peu dans votre - longue - conversation.
Pour éviter des erreurs lors de la lecture sur des disques non prêts, tu peux tester le statut du lecteur avant d'y accéder, avec DriveStatus.

[Tlem]

tu peux tester le statut du lecteur avant d'y accéder, avec DriveStatus.

Michel l'a déjà proposé dans ce message précédent, moi j'ai oublié de le rajouter.

[jguinch]

[mauvaise fois]
Oui, j'ai vu, mais c'était pour le rappeler...
[/mauvaise fois]

[mikell]

[mauvaise fois]

Première foie ou deuxième foi ?

@labougie
- le nombre de fichiers tu l'as déjà ($Recherche[0] pour chaque lecteur) suffit de faire le total
- c'est vrai je n'ai pas mis le choix des lecteurs... c'est facile à rajouter, ça ferait même sympa dans une gui, et ça réinventerait bien la roue recherche Windows
- pour sortir des dossiers dont le nom contient un point ya pas besoin de faire un filtre spécial, et si tu cherches des dossiers dont le nom contient un point final là tu risques de chercher longtemps

@Thierry
Mince ! ya vraiment des pc qui ont un mauvais esprit

[Tlem]

@Thierry
Mince ! ya vraiment des pc qui ont un mauvais esprit

Je confirme et il n'y a pas qu'eux.

[labougie]

@labougie
- le nombre de fichiers tu l'as déjà ($Recherche[0] pour chaque lecteur) suffit de faire le total
- c'est vrai je n'ai pas mis le choix des lecteurs... c'est facile à rajouter, ça ferait même sympa dans une gui, et ça réinventerait bien la roue recherche Windows
- pour sortir des dossiers dont le nom contient un point ya pas besoin de faire un filtre spécial, et si tu cherches des dossiers dont le nom contient un point final là tu risques de chercher longtemps

Bonjour,

Effectivement, j'ai pour objectif ensuite de faire un Gui avec Koda, mais là, il faut que je termine cette partie de script.
Mettre le tout en Gui serait une belle innovation, et un excellent apprentissage.
j'y reviendrai

labougie

[labougie]

Bien le bonjour,

Je souhaiterai faire un test sur les caractères f d et *.
f fichier
d dossier
* recherche intégrale
afin de lancer soit une recherche sur les fichiers soit sur les dossiers ou complète afin d'apprendre l'utilisation de "case".

j'ai un problème de syntaxe. Comment contourner <> "différent"

Le but est de pouvoir ensuite renvoyer l'ordre de travail vers une recherche "dossiers", vers une recherche "fichiers" ou une recherche complète
Principe du if...goto en batch

► Afficher le texte

Code : Tout sélectionner

Local $check = InputBox("Question", "Recherches tu un fichier ou un dossier?  F pour fichier --- D pour dossier --- * Recherche intégrale")

Select
    case 0 [color=#FF0000]<> [/color]"f", "d"
    MsgBox(4096, "Contrôle saisie", "Ne pas saisir n'importe quoi")

    case 1 = "f" then fichier
        case 2 = "d" then dossier
        case 3 = "*" then recherche globale

EndSelect

Le caractère f sera t'il sensible à la casse? f <> F

Merci pour vos conseils car la doc sur case / if / switch case endswith ne donnent pas d'exemple sur ce que je souhaite réaliser, ou alors, je m'y prends très mal.

labougie

Edit ajout balise code

[mikell]

Hmm vaut mieux oublier la syntaxe des autres langages qui risque de t'induire en erreur
Les exemples de la doc sont clairs

► Afficher le texte

Code : Tout sélectionner

Local $check = InputBox("Question", "Recherches tu un fichier ou un dossier? F pour fichier --- D pour dossier --- * Recherche intégrale")

Switch $check
 case  "f" 
    fichier 
 case  "d" 
    dossier
 case  "*" 
    recherche globale
 case else
    MsgBox(4096, "Contrôle saisie", "Ne pas saisir n'importe quoi")
EndSwitch

[labougie]

Bonsoir Mikell,

Je prends note. Merci.

Labougie

[labougie]

Bien le bonsoir,

J'ai modifie certaines choses pour la présentation.
Une compilation des scripts de Tlem et de Mikell.

Je rencontre plusieurs anomalies:

1. Impossible de lister toutes mes partitions, pourtant elles sont bien dans la fenêtre de choix, il me manque dans les recherches H et I,
2. Quand je fais une recherche sur "Mikell", le scan s'arrête sur c:
   les autres disques/ partitions ne sont pas lus, le splascreen se stoppe à c:
3. Impossible d'avoir dans le logfile la fin
   toute cette partie est zappée
   
   ► Afficher le texte

   Code : Tout sélectionner

   FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $answer & " "  & "  Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")
       FileWriteLine($LogFile,"")
       FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )
   
   
       ShellExecute($LogFile)

voici mon script,
il est découpé en plusieurs parties car une recherche peut être effectuée soit sur un dossier, soit sur un fichier soit les deux.

Dans la rubrique Case "F"
Pour l'instant je cherche à résoudre la partie Fichier, qui me solutionnera dans le même temps la partie dossier. (le problème étant je pense identique)

Dans la rubrique Case "*"
Le scan se stoppe au fichiers sans scanner les partitions H et I donc mon problème se répète encore ici.

J'ai bien relu avant de poster, et, je ne trouve pas mes erreurs.
J'ai documenté du mieux que j'ai pu afin de rendre lisible ce script.

► Afficher le texte

Code : Tout sélectionner

#include <file.au3>
#include <Array.au3>
#include <_FileListToArrayEx_v3.au3>

Msgbox(64,'ToolSearch by Labougie','Cet outil analyse soit tous les lecteurs soit celui de ton choix.')

Global $LogFile = (@HomeDrive & "\search.txt")
$OS = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
$SP = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
Global $answer, $sSearchDrives, $sLabel, $Recherche, $sRapport
Global $sDrive, $aDrive, $TmpDrives, $i, $j


Local $aArray = DriveGetDrive("ALL")
Local $sLabel = DriveGetLabel(@HomeDrive & "\")
;_ArrayDisplay($aArray)

If FileExists ($LogFile) then Filedelete ($LogFile)

;================================================= Mise en forme
FileWriteLine($LogFile,"ToolSearch by © Labougie")
FileWriteLine($LogFile,"")

FileWriteLine($LogFile,"Outil lancé par: " & @UserName & "   Depuis: [" & @ScriptDir & "]     le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

FileWriteLine($LogFile,"Système d'exploitation: " & $OS & " - " & $SP)
FileWriteLine($LogFile,"HardWare: " & " Cpu " & @CPUArch & " - " & " Système " & @OSArch)

Local $answer = InputBox("Question", "Quel(s) mot(s) recherches tu ?" & "                Sépare les par un ""Pipe |"", (Alt Gr + 6)" & "        Exemple: test | Check", "", "")
;$answer = StringSplit($answer, "|")


;================================================= L'utilisateur ne rentre aucune donnée de recherche

If $answer = "" Then   ; Si l'utilisateur a annulé la saisie on ferme.

    FileWriteLine($LogFile,"")
    FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
    FileWriteLine($LogFile,"")
    FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $answer & " "  & " 0 Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")
    FileWriteLine($LogFile,"")
    FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


    ShellExecute($LogFile)
    Exit
EndIf


;============= Contrôle sur la recherche, soit Fichier, soit Dossier, Soit Intégrale

Local $check = InputBox("Question", "Recherches tu un fichier ou un dossier?" & _
"            F pour fichier" & _
"                                                    D pour dossier" & _
"                                                    * Recherche intégrale")

Switch $check ;============ Contrôle saisie sur le type de recherche



 case  "f"  ;============ Recherche sur les fichiers

    $aDrive = DriveGetDrive("All") ; attention le tableau $aDrive commence par le nombre d'éléments donc "For $var In $aDrive" n'est pas recommandé.

; Boucle de transformation du tableau des lecteurs en chaine de caractères.
For $i = 1 To $aDrive[0]
    ;If Not FileExists($aDrive[$i] & "\") Then ContinueLoop ; On vérifie si le lecteur est accessible.
    $sDrive &= StringTrimRight($aDrive[$i], 1) ; on ne prend que la lettre (on supprime les :).
Next


; La question pour choisir le/les lecteurs de recherche.
$sSearchDrives = InputBox("Question", "Choisissez dans la liste suivante les lecteurs pour lesquels" & _
"vous voulez effecter une recherche. Tapez les lettres les unes à la suite des autres." & _
 @CRLF & "Lecteur(s) disponible(s) : " & $sDrive)

$answer = StringSplit($answer, "|")

If IsArray($answer) Then
    SplashTextOn ("", "Initialisation ..." , 500, 55, -1, -1, 49)

    For $i = 1 To $answer[0]
     ;   msgbox(0,"", "==" & $answer[$i] & "==")
        $answer[$i] = StringStripWS($answer[$i], 3)

     ;   msgbox(0,"", "==" & $answer[$i] & "==")

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers  " & _
                """ " & $answer[$i]  & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")

        For $k in $aArray
            If IsNumber($k) Then ContinueLoop
            If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop

            FileWriteLine($LogFile,"Recherche pour le lecteur " & $k &"\")
            SplashTextOn ("", "Scanning  " & $k , 500, 55, -1, -1, 49)
            FileWriteLine($LogFile,"")
            $Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*.*", 0, 1)
            If IsArray($Recherche) Then
               For $j = 1 to $Recherche[0]   ; parcourt le tableau
                   SplashTextOn ("", $Recherche[$j], 500, 55, -1, -1, 49)
                   FileWriteLine($LogFile, $Recherche[$j])
               Next
           EndIf
                FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $Recherche[0] & "  fichier(s) trouvé(s) " & " sur " & $k &" =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")
       Next

   Next
EndIf


   FileWriteLine($LogFile,"")
   FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $answer[$i] & " "  & " Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")



SplashOff()

FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

ShellExecute($LogFile)



 case  "d"  ;============ Recherche sur les dossiers

    $aDrive = DriveGetDrive("ALL") ; attention le tableau $aDrive commence par le nombre d'éléments donc "For $var In $aDrive" n'est pas recommandé.

; Boucle de transformation du tableau des lecteurs en chaine de caractères.
For $i = 1 To $aDrive[0]
    ;If Not FileExists($aDrive[$i] & "\") Then ContinueLoop ; On vérifie si le lecteur est accessible.
    $sDrive &= StringTrimRight($aDrive[$i], 1) ; on ne prend que la lettre (on supprime les :).
Next


; La question pour choisir le/les lecteurs de recherche.
$sSearchDrives = InputBox("Question", "Choisissez dans la liste suivante les lecteurs pour lesquels vous voulez effecter une recherche. Tapez les lettres les unes à la suite des autres." & @CRLF & "Lecteur(s) disponible(s) : " & $sDrive)


$answer = StringSplit($answer, "|")

If IsArray($answer) Then
    SplashTextOn ("", "Initialisation ..." , 500, 55, -1, -1, 49)

    For $i = 1 To $answer[0]
     ;   msgbox(0,"", "==" & $answer[$i] & "==")
        $answer[$i] = StringStripWS($answer[$i], 3)

     ;   msgbox(0,"", "==" & $answer[$i] & "==")

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les dossiers  " & _
                """ " & $answer[$i]  & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")

        For $k in $aArray
            If IsNumber($k) Then ContinueLoop
            If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop

            SplashTextOn ("", "Scanning Folders " & $k , 500, 55, -1, -1, 49)
            FileWriteLine($LogFile,"")
            $Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*", 2, 2)
            If IsArray($Recherche) Then
               For $j = 1 to $Recherche[0]   ; parcourt le tableau
                   SplashTextOn ("", $Recherche[$j], 500, 55, -1, -1, 49)
                   FileWriteLine($LogFile, $Recherche[$j])
               Next
           EndIf
                FileWriteLine($LogFile,"")
               FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $Recherche[0] & "  dossier(s) trouvé(s) " & " sur " & $k &" =~=~=~=~=~=~=~=~")

       Next

   Next
   EndIf

   FileWriteLine($LogFile,"")
   FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $answer[$i] & " "  & " Dossier(s) trouvé(s)=~=~=~=~=~=~=~=~")


SplashOff()
FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

ShellExecute($LogFile)




 case  "*"  ;============ Recherche complète, fichiers et dossiers


   $aDrive = DriveGetDrive("ALL") ; attention le tableau $aDrive commence par le nombre d'éléments donc "For $var In $aDrive" n'est pas recommandé.

; Boucle de transformation du tableau des lecteurs en chaine de caractères.
For $i = 1 To $aDrive[0]
    ;If Not FileExists($aDrive[$i] & "\") Then ContinueLoop ; On vérifie si le lecteur est accessible.
    $sDrive &= StringTrimRight($aDrive[$i], 1) ; on ne prend que la lettre (on supprime les :).
Next


; La question pour choisir le/les lecteurs de recherche.
$sSearchDrives = InputBox("Question", "Choisissez dans la liste suivante les lecteurs pour lesquels vous voulez effecter une recherche. Tapez les lettres les unes à la suite des autres." & @CRLF & "Lecteur(s) disponible(s) : " & $sDrive)

$answer = StringSplit($answer, "|")

If IsArray($answer) Then
    SplashTextOn ("", "Initialisation ..." , 500, 55, -1, -1, 49)

    For $i = 1 To $answer[0]
     ;   msgbox(0,"", "==" & $answer[$i] & "==")
        $answer[$i] = StringStripWS($answer[$i], 3)

     ;   msgbox(0,"", "==" & $answer[$i] & "==")

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers  " & _
                """ " & $answer[$i]  & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")

        For $k in $aArray
            If IsNumber($k) Then ContinueLoop
            If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop

            SplashTextOn ("", "Scanning Files " & $k , 500, 55, -1, -1, 49)
            FileWriteLine($LogFile,"")
            $Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*.*", 0, 1)
            If IsArray($Recherche) Then
               For $j = 1 to $Recherche[0]   ; parcourt le tableau
                   SplashTextOn ("", $Recherche[$j], 500, 55, -1, -1, 49)
                   FileWriteLine($LogFile, $Recherche[$j])
               Next
           EndIf
                FileWriteLine($LogFile,"")
               FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $Recherche[0] & "  fichier(s) trouvé(s) " & " sur " & $k &" =~=~=~=~=~=~=~=~")

       Next

   Next
   EndIf


   FileWriteLine($LogFile,"")
   FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $answer[$i] & " "  & " Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")



   ; $aDrive = DriveGetDrive("ALL") ; attention le tableau $aDrive commence par le nombre d'éléments donc "For $var In $aDrive" n'est pas recommandé.

; Boucle de transformation du tableau des lecteurs en chaine de caractères.
For $i = 1 To $aDrive[0]
    ;If Not FileExists($aDrive[$i] & "\") Then ContinueLoop ; On vérifie si le lecteur est accessible.
    $sDrive &= StringTrimRight($aDrive[$i], 1) ; on ne prend que la lettre (on supprime les :).
Next


; La question pour choisir le/les lecteurs de recherche.
;$sSearchDrives = InputBox("Question", "Choisissez dans la liste suivante les lecteurs pour lesquels vous voulez effecter une recherche. Tapez les lettres les unes à la suite des autres." & @CRLF & "Lecteur(s) disponible(s) : " & $sDrive)


;$answer = StringSplit($answer, "|")

If IsArray($answer) Then
    SplashTextOn ("", "Initialisation ..." , 500, 55, -1, -1, 49)

    For $i = 1 To $answer[0]
     ;   msgbox(0,"", "==" & $answer[$i] & "==")
        $answer[$i] = StringStripWS($answer[$i], 3)

     ;   msgbox(0,"", "==" & $answer[$i] & "==")

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les dossiers  " & _
                """ " & $answer[$i]  & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")

        For $k in $aArray
            If IsNumber($k) Then ContinueLoop
                If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop

                    SplashTextOn ("", "Scanning Folders " & $k , 500, 55, -1, -1, 49)
                    FileWriteLine($LogFile,"")
                    $Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*", 2, 2)

                        If IsArray($Recherche) Then
                            For $j = 1 to $Recherche[0]   ; parcourt le tableau
                            SplashTextOn ("", $Recherche[$j], 500, 55, -1, -1, 49)
                            FileWriteLine($LogFile, $Recherche[$j])
                            Next
                        EndIf



                FileWriteLine($LogFile,"")
               FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $Recherche[0] & "  dossier(s) trouvé(s) " & " sur " & $k &" =~=~=~=~=~=~=~=~")

       Next

   Next
EndIf

   FileWriteLine($LogFile,"")
   FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $answer[$i] & " "  & " Dossier(s) trouvé(s)=~=~=~=~=~=~=~=~")


SplashOff()
FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


ShellExecute($LogFile)


 case else  ;============ Mauvais caractères sur le choix Fichier Dossier Intégrale

    MsgBox(4096, "Contrôle saisie", "Ne pas saisir n'importe quoi, recommence.")
EndSwitch

labougie

Edit ajout balise code

[mikell]

Je n'ai pas le temps de vérifier ton code là, mais à première vue je dirais qu'une optimisation permettrait de mieux détecter les crasses
Par exemple ne pas répéter les mêmes trucs dans les case ce qui fait un script hénaurme, faire plutôt la sélection à l'avance

► Afficher le texte

Code : Tout sélectionner

Local $flag
Switch $check
 case  "f"
    $flag = 1
 case  "d"
    $flag = 2
 case  "*"
    $flag = 0
 case else
    MsgBox(4096, "Contrôle saisie", "Ne pas saisir n'importe quoi")
EndSwitch
; ....
$Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*.*", $flag, 1)

[labougie]

J'apprécie tes conseils Mikell.
Je me doute bien que l'aspect répétitif copiè_collé peut être optimisé, (ici c'est pour ne pas oublier le projet car d'autres idées* sont encore à développer), mais pour l'instant j'essaie de comprendre les rouages de ce langage qui fournit des solutions à beaucoup de problèmes
Il est bien fournit est très détaillé dans l'aide, mais l'inconvénient est de trouver les bonnes manettes pour le faire avancer
Je vais regarder ta proposition $flag et essayer de saisir son principe de fonctionnement en re-développant les commandes via l'aide.

labougie

* le but étant de pouvoir passer par une vue d'ensemble sur quelque chose de simple, pour en faire une usine à gaz avec des options de sélections afin de retourner la recherche dans tout les sens du terme

[labougie]

Bien le bonsoir,

J'ai trouvé une erreur sur $ qui mettait la pagaille .

Le script tourne seulement si et seulement si le fichier ou le dossier existe sur le lecteur, sinon il stoppe direct sur le 1er lecteur ne contenant pas le dit fichier ou dossier.

Code : Tout sélectionner

le plus simple pour tester est de créer un fichier identique sur toutes les partoches
 

comme ceci

► Afficher le texte

ToolSearch by © Labougie

Outil lancé par: Labougie   Depuis: [C:\Users\Labougie\Desktop\Script AutoIt]     le: 05-12-2013  à: 19:16:39
Système d'exploitation: Windows 8 Pro with Media Center -
HardWare:  Cpu X64 -  Système X86

=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers  " mikell " =~=~=~=~=~=~=~=~=~=~=~=~

Recherche pour le lecteur c:\

c:\Users\Labougie\AppData\Roaming\Microsoft\Windows\Recent\Mikell Test.au3.lnk
c:\Users\Labougie\Desktop\Script AutoIt\Mikell Test.au3
c:\Users\Labougie\Desktop\Script AutoIt\Mikell Test_x64.exe
c:\Windows\Prefetch\MIKELL TEST.EXE-2F5C6B73.pf

=~=~=~=~=~=~=~=~ Fin de la recherche ==> 4  fichier(s) trouvé(s)  sur c: =~=~=~=~=~=~=~=~

Recherche pour le lecteur d:\

Si ma recherche contient mon pseudo, toutes les partoches sont scannées.
C'est franchement étrange que le script bloque sur un tel détail. Est-ce normal?

Ce bout de code

► Afficher le texte

Code : Tout sélectionner

#include <file.au3>
#include <Array.au3>
#include <_FileListToArrayEx_v3.au3>

Msgbox(64,'ToolSearch by Labougie','Cet outil analyse soit tous les lecteurs soit celui de ton choix.')

Global $LogFile = (@HomeDrive & "\search.txt")
$OS = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
$SP = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
Global $answer, $sSearchDrives, $sLabel, $Recherche, $sRapport
Global $sDrive, $aDrive, $TmpDrives, $i, $j
$compte = 0

Local $aArray = DriveGetDrive("ALL")
Local $sLabel = DriveGetLabel(@HomeDrive & "\")
;_ArrayDisplay($aArray)

If FileExists ($LogFile) then Filedelete ($LogFile)

;================================================= Mise en forme
FileWriteLine($LogFile,"ToolSearch by © Labougie")
FileWriteLine($LogFile,"")

FileWriteLine($LogFile,"Outil lancé par: " & @UserName & "   Depuis: [" & @ScriptDir & "]     le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

FileWriteLine($LogFile,"Système d'exploitation: " & $OS & " - " & $SP)
FileWriteLine($LogFile,"HardWare: " & " Cpu " & @CPUArch & " - " & " Système " & @OSArch)

Local $answer = InputBox("Question", "Quel(s) mot(s) recherches tu ?" & "                Sépare les par un ""Pipe |"", (Alt Gr + 6)" & "        Exemple: test | Check", "", "")
;$answer = StringSplit($answer, "|")


;================================================= L'utilisateur ne rentre aucune donnée de recherche

If $answer = "" Then   ; Si l'utilisateur a annulé la saisie on ferme.

    FileWriteLine($LogFile,"")
    FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
    FileWriteLine($LogFile,"")
    FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $answer & " "  & " 0 Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")
    FileWriteLine($LogFile,"")
    FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


    ShellExecute($LogFile)
    Exit
EndIf


;============= Contrôle sur la recherche, soit Fichier, soit Dossier, Soit Intégrale

Local $check = InputBox("Question", "Recherches tu un fichier ou un dossier?" & _
"            F pour fichier" & _
"                                                    D pour dossier" & _
"                                                    * Recherche intégrale")

Switch $check ;============ Contrôle saisie sur le type de recherche



 case  "f"  ;============ Recherche sur les fichiers

    $aDrive = DriveGetDrive("All") ; attention le tableau $aDrive commence par le nombre d'éléments donc "For $var In $aDrive" n'est pas recommandé.

; Boucle de transformation du tableau des lecteurs en chaine de caractères.
For $i = 1 To $aDrive[0]
    ;If Not FileExists($aDrive[$i] & "\") Then ContinueLoop ; On vérifie si le lecteur est accessible.
    $sDrive &= StringTrimRight($aDrive[$i], 1) ; on ne prend que la lettre (on supprime les :).
Next


; La question pour choisir le/les lecteurs de recherche.
$sSearchDrives = InputBox("Question", "Choisissez dans la liste suivante les lecteurs pour lesquels" & _
"vous voulez effecter une recherche. Tapez les lettres les unes à la suite des autres." & _
 @CRLF & "Lecteur(s) disponible(s) : " & $sDrive)

$answer = StringSplit($answer, "|")

If IsArray($answer) Then
    SplashTextOn ("", "Initialisation ..." , 500, 55, -1, -1, 49)

    For $i = 1 To $answer[0]
     ;   msgbox(0,"", "==" & $answer[$i] & "==")
        $answer[$i] = StringStripWS($answer[$i], 3)

     ;   msgbox(0,"", "==" & $answer[$i] & "==")

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers  " & _
                """ " & $answer[$i]  & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")

        For $k in $aArray
            If IsNumber($k) Then ContinueLoop
            If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop

            FileWriteLine($LogFile,"Recherche pour le lecteur " & $k &"\")
            SplashTextOn ("", "Scanning Files " & $k , 500, 55, -1, -1, 49)
            FileWriteLine($LogFile,"")
            $Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*.*", 0, 1)
            If IsArray($Recherche) Then
               For $j = 1 to $Recherche[0]   ; parcourt le tableau
                   SplashTextOn ("", $Recherche[$j], 500, 55, -1, -1, 49)
                   FileWriteLine($LogFile, $Recherche[$j])
                    $compte = $compte + 1

               Next
           EndIf
                FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $Recherche[0] & "  fichier(s) trouvé(s) " & " sur " & $k &" =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")

       Next

   Next
EndIf


   FileWriteLine($LogFile,"")
   FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $compte & " "  & " Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")



SplashOff()

FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

endSwitch

ShellExecute($LogFile)

Fonctionne avec l'option f pour fichier, ensuite pour le choix des lecteurs faire "entrée", je n'ai pas retravaillé cette partie pour l'instant, manque de temps.

Est il judicieux de mettre dans la boucle une chose du style

If $answer = "doesnot exist" Then ContinueLoop

Etant newbie quelles différences importantes y a t'il entre
filelisttoarray et RecFileListToArray

Concernant cette ligne
SplashTextOn ("", "Scanning Files " & $k , 500, 55, -1, -1, 49)
16 permet de déplacer le splash screen, mais ce dernier est moins joli. J'ai essayé en additionnant les chiffres de trouver la solution, mais que néni. Y a t'il possibilité de rendre mobile le splashscreen tout en ayant comme présentation celle du 49. De plus ce code n'est pas documenté

labougie

[mikell]

Je te le redis encore une fois... tant que tu ne structureras pas ton code proprement et logiquement, tu auras des emmerdes
Pour débugger, enlève tout ce qui est là pour le fun (les FileWrite et compagnie) et ne garde que le moteur, tu auras de la visibilité et tu élimineras les parasites potentiels
Quand le moteur de base fonctionne, là tu peux progressivement rajouter des trucs
Par exemple ton dernier code posté voilà sa base, et elle fonctionne (je n'ai fait qu'enlever le superflu)

► Afficher le texte

Code : Tout sélectionner

#include <file.au3>
#include <Array.au3>
#include <_FileListToArrayEx_v3.au3>

Global $answer, $sSearchDrives, $sLabel, $Recherche, $sRapport
Global $sDrive, $aDrive, $TmpDrives, $i, $j

Local $aArray = DriveGetDrive("ALL")
Local $sLabel = DriveGetLabel(@HomeDrive & "\")
;_ArrayDisplay($aArray)

Local $answer = InputBox("Question", "Quel(s) mot(s) recherches tu ?" & " Sépare les par un ""Pipe |"", (Alt Gr + 6)" & " Exemple: test | Check", "", "")

If $answer = "" Then Exit

;============= Contrôle sur la recherche, soit Fichier, soit Dossier, Soit Intégrale

Local $check = InputBox("Question", "Recherches tu un fichier ou un dossier?" & _
" F pour fichier" & _
" D pour dossier" & _
" * Recherche intégrale")

Switch $check 
    case "f" 
        $answer = StringSplit($answer, "|")
        If IsArray($answer) Then
            For $i = 1 To $answer[0]
                $answer[$i] = StringStripWS($answer[$i], 3)
                ; msgbox(0,"", "==" & $answer[$i] & "==")
                
                For $k in $aArray
                    If IsNumber($k) Then ContinueLoop
                    If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop
                    
                    $Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*.*", 0, 1)
                Next
                
            Next
        EndIf
        _ArrayDisplay($Recherche)
endSwitch
 

Pour le Splash, si la fonction intégrée ne te propose pas ce que tu veux, ben tu te fais simplement la tienne à ton goût

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "Terminate")

_about()

While 1
Wend

Func _about()
$about = GUICreate("Tchuss", 300, 70, -1, -1, BitOr($WS_BORDER, $WS_POPUP), _ 
    BitOr($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW) )
GuiSetFont(12, 400, 0, "Arial Unicode MS")
GuiCtrlCreateLabel("mikell was here   " & ChrW(9835), 80, 20, 140, 20, 1)
GuiCtrlCreateLabel("", 0, 0, 300, 70, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetState(-1, $GUI_ONTOP)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $about, "int", 300, "long", 0x00040010)
GUISetState()
EndFunc

Func Terminate()
    Exit
EndFunc