[C] Convertir mon batch en autoit

[labougie]

Je fais suite à ton dernier post et aux explications données sur le déroulement de la boucle For.

J'ai donc inscrit des conditions IF
et mon problème est résolu, en revanche je suis surpris du fonctionnement de cette boucle.

► Afficher le texte

Code : Tout sélectionner

for $run = 1 to 10



    if FileExists (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt") then
        if not FileExists (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[10]" & ".txt") Then
    FileMove (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt",@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")
    $LogFile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" &  ".txt")
    EndIf

    if not FileExists (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt") then
    $LogFile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" &  ".txt")

    EndIf
    EndIf

next
 

Cette condition est donc obligatoire pour palier le problème
if not FileExists (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[10]" & ".txt") Then
le chiffre [10] est lié à celui de la boucle FOR $run = 1 to 10

je ne suis pas programmeur de formation mais ce principe de code ne me semble pas logique
ou alors je ne suis pas logique du tout, si si c'est possible

labougie

[Tlem]

Pouvez-vous décrire en quelques lignes ce que votre script est sensé faire ?

[labougie]

• je saisi un chemin dans lequel je souhaite connaitre le contenu (liste des dossiers uniquement),
• l'inscription est du type c:\frst\ c'est ma variable $path
• la recherche se lance et liste dans un logfile les dossiers
• chaque dossier est comptabilisé
• en fin de script je fais le tri dans le chemin de sortie
• je désassemble le path c:\frst\ et le ré assemble en c-frst.txt
• je renomme c:\toolsearch\dossier\recherche dossier.txt en
• c:\toolsearch\dossier\$path.txt pour obtenir
• c:\toolsearch\dossier\c-frst[1].txt
• le chiffre 1 doit être incrémenté car je peux faire plusieurs fois la même recherche

Voici un logfile pour mieux comprendre

► Afficher le texte

ToolSearch by © Labougie

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

=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " c:\frst\ " =~=~=~=~=~=~=~=~=~=~=~=~

c:\frst\Hives S_D 3/ F 13/ (54127582)
c:\frst\Logs S_D 0/ F 4/ (153933)
c:\frst\Quarantine S_D 0/ F 0/ (0)

=~=~=~=~=~=~=~=~ Fin de la recherche ==> 3 dossiers(s) trouvé(s) sur c:\frst\ =~=~=~=~=~=~=~=~


Terminé le: 22-12-2013 à: 22:04:05

Voici une copie du dossier c:\toolsearch\dossier\

► Afficher le texte

labougie

[Tlem]

Donc le but est de déplacer le fichier "c:\toolsearch\dossier\recherche dossier.txt" en "c:\toolsearch\dossier\c-frst[x].txt", avec X correspondant à une incrémentation du nombre de fois ou vous effectuez l'opération ?

Edit : En prévision de l'affirmative :

► Afficher le texte

Code : Tout sélectionner

If FileExists(@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt") Then
    $Run = 1 ; On initialise la variable compteur à 1
    
    ; La boucle ci-dessous permet d'incrémenter la numérotation du futur fichier en vérifiant qu'il n'existe pas déja.
    While FileExists(@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $Run & "]" & ".txt")
        $Run += 1
    WEnd
    
    ; Puisque dans la boucle ci-dessus on a vérifié que le fichier de destination n'existe pas déjà, on déplace avec le nouveau nom.
    FileMove(@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt", @HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $Run & "]" & ".txt")
    
    $LogFile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $Run & "]" & ".txt")
EndIf

ShellExecute($LogFile)

[labougie]

C'est tout à fait cela dans la démarche +1

Je regarderai le code dans la semaine, je vais laisser passer Noël, tous le méritent.

labougie

[labougie]

Bonjour Tlem,

Votre script correspond parfaitement à ce que je souhaite ce faire. Merci.

---

Je ne trouve pas la fonction qui permet de contrôler une saisie
Dans mon outil l'on peut soit saisir
c:\frst\
soit
c:\frst
la recherche donne bien évidemment le même résultat dans le logfile. Sauf que:
le nom de sorti est complètement différent
c:\frst\ donne c-frst[1].txt
soit
c:\frst donne c-frs[1].txt

J'ai utilisé plusieurs commandes de la famille string et je n'arrive pas à mes fins.

Il y a deux possibilités je pense

1/ Contrôler la saisie dés l'insertion des caractères,
2/ Laisser la saisie telle que puis faire un contrôle tout à la fin

Cas 1

J'ai cherché sur google "contrôler masque de saisie".
L'on parle souvent de "Input box", ce n'est pas mon cas, et même en essayant de suivre le peut que j'ai compris, hélas rien n'y fais.

Cas 2

$path = GUICtrlRead($path41)

$path ce qui est saisie dans la case "GUICtrlRead($path41)"

Donc l'user saisie le $path sous la forme
c:\frst\
soit
c:\frst
le script tourne
je tente de modifier le nom du logfile
le logfile doit toujours sortir sous la forme c-frst[1].texte quelque soit la saisie faite par l'user.

mon script que je n'arrive pas à modifier

dans le If j'ai tenté = , == ,<> mais rien n'y fais, j'ai comme l'impression que ce if n'est pas lu

► Afficher le texte

Code : Tout sélectionner

local $str = stringsplit ($path,"") ;mise en forme de la chaine sous forme tableau
    _ArrayDisplay ($str)          ; affichage du tableau pour contrôle




    if ($path = ($path & "\")) then ; avec un = ou deux == même problème
                $path = StringReplace($path,":", "")
                $path = StringReplace($path,"\", "-")
                $path = StringTrimRight ($path,1)


    EndIf

MsgBox (0,"", $path) ; contrôle de sortie via msg box
    

 

Cette partie de script seule
$path = StringReplace($path,":", "")
$path = StringReplace($path,"\", "-")
$path = StringTrimRight ($path,1)
fonctionne bien mais supprime toujours le dernier caractère, comment faire un test pour que lorsque soit saisie c:\frst le dernier caractère ne soit pas tronqué, et surtout lorsque c:\frst\ le dernier soit supprimé

labougie

[Tlem]

Voilà :

Code : Tout sélectionner

$sPath = " c:\frst\ "

$sPath = StringStripWS($sPath, 3) ; Supprime les espaces en trop avant et après la chaine (j'ai rajouté ça au cas ou ...).
$sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") ; Supprime les antislash de fin de chaine

Msgbox(64, "", "*" & $sPath & "*") ; les étoiles sont là pour montrer la délimitation.

[labougie]

Bonjour Thierry,

Merci pour ce code.
J'ai adapté en fonction de mes besoins.
Je comprends mal les syntaxes suivantes

stringStripWS($sPath, 3)
Ici le 3 n'est pas listé dans ? est-ce bien la somme 1&2 trailing et leading?


StringRegExpReplace($sPath, "[\\/]+\z", "")
ok pour +\z
\\ ok
mais les [] , cela signifie t'il que tous les patterns doivent cloisonnés par des [] ?
le / quel est son utilité ?

labougie

[jchd]

labougie,

L'aide de la récente release sur StringRegExp t'apportera la lumière, ou plutôt "the light".

[labougie]

Bonsoir Jchd,

Justement, je l'ai bien lu, mais la lumière n'est point venu .

J'ai lancé les tests ici.

je n'ai pas nettoyé le code, c'est à dire pas le temps d'inscrire des fonctions pour faire plus "zoli"

Cela va me permettre de pouvoir obtenir des retours, surtout des incompréhensions sur le fonctionnement , il y a 2 rubriques avec des options, et avec un peu de logique elles sont facilement trouvables

Espérant que je n'ai pas laissé trop de coquilles.

labougie

Je vais essayé de créér un ? dans une barre de menu pour y mettre des remerciements

[jchd]

Alors, relis la rubrique "Character classes"

[labougie]

Bonjour Jchd,

Meilleurs voeux à toutes et tous.

Ben justement, je l'ai lu, et relus, et tout n'est pas très claire, limpide .

----
Comment puis je retrouver ce type d'erreur quand le script est compilé?
Car bien évidemment, je n'ai pas autant de lignes .
Et pour essayer de corriger ce n'est donc pas très simple.

► Afficher le texte

labougie

[jchd]

Le premier lien trouvé en français convient pour un début.
LMGTFY ... pffft.

[mikell]

labougie ...

Ce topic il part dans tout les sens, c'est un forum d'aide à lui tout seul, sur les 5 pages et 93 messages on voit défiler - entre autres - quasiment toutes les rubriques du fichier d'aide
Mais la règle ici c'est - en principe - une question par sujet. C'est valable pour tout le monde, aucune raison que ça le soit pas pour labougie.
Or dans ce topic les questions (principales ou accessoires) sur des sujets divers et variés on les compte plus, y a tout ce qu'on veut partout et même dans les coins

Donc à partir de dorénavant et jusqu'à désormais inclus on va faire les choses proprement, bien dans les règles, ce qui va se traduire pour moi par la clôture de ce topic pléthorique (résolu par ailleurs à 99%), et pour toi par un salutaire fractionnement des problèmes de code (ce qui t'évitera par ailleurs de partir en vrille) sous forme de questions distinctes évoquées dans des topics dédiés
Tu vas voir ça marche pas mal non plus