Ce script permet d'explorer ses disques durs, lecteurs cd...il liste les dossiers et fichiers d'un repertoire, ou disque dur a la racine;
J'ai ajouté un dialogue pour la recherche, mais le resultat s'affiche dans une window
Il recherche les fichiers ou dossiers sur le disque spécifié ou sur tous les disques ou partitions.
Possibilité de retourner le résultat dans un fichier, et de faire une commande sur les resultats.
Source / Exemple :
alias cd {
window -aek @dir
var %pathh $1-
if (!%pathh) { commandeeeus | halt }
echo @dir $str(_,65)
echo 1 @dir Dossier(en bleu) et fichier(en vert) contenus dans $1-
$finddir($null,$null,$null,$finddir(%pathh,*,0,1,echo 2 @dir $1- ))
$findfile($null,$null,$null,$findfile(%pathh,*,0,1,echo 3 @dir $1- ))
echo 7 @dir $str(_,65)
}
alias rch {
unset %resultat.de.recherche
unset %resultat.de.recherche.2
unset %couleur
unset %fichier.texte
unset %deuxxx
unset %doss
unset %fich
unset %commmande
unset %dossier.de.recherche
unset %element.a.chercher
unset %arborescence
window -aek @dir
if (* isin $gettok($gettok($1-,2,62),1,92)) { /rcht $1- | halt }
else {
if (? isin $1-) { set %commmande $gettok($1-,2,63) }
if (/ isin $1) && (: !isin $1) && (!%commmande) { set %dossier.de.recherche $gettok($2-,2,62) | set %element.a.chercher $gettok($2-,1,62) }
elseif (/ isin $1) && (: !isin $1) && (%commmande) {
if (? isin $gettok($2-,2,62)) { set %dossier.de.recherche $gettok($gettok($2-,2,62),1,63) | set %element.a.chercher $gettok($2-,1,62) }
else { set %dossier.de.recherche $gettok($2-,2,62) | set %element.a.chercher $gettok($2-,1,62) }
}
elseif (!%commmande) { set %dossier.de.recherche $gettok($1-,2,62) | set %element.a.chercher $gettok($1-,1,62) }
elseif (%commmande) {
if (? isin $gettok($1-,2,62)) { set %dossier.de.recherche $gettok($gettok($1-,2,62),1,63) | set %element.a.chercher $gettok($1-,1,62) }
else { set %dossier.de.recherche $gettok($1-,2,62) | set %element.a.chercher $gettok($1-,1,62) }
}
if ((/a isin $1) || (/da isin $1) || (/tua isin $1) || (/atu isin $1)) { var %arborescence 1 }
else { var %arborescence 100 }
set %resultat.de.recherche 0
set %resultat.de.recherche.2 0
set %fichier.texte $gettok($gettok($1-,1,63),3,62)
if (!%dossier.de.recherche) || (!$regex($1-,:)) || (!$regex($1-,>)) || (!%element.a.chercher) {
commandeeeus
halt
}
echo @dir $str(_,65)
echo 12 @dir Recherche en cours ...
if ((/d isin $1) || (/ad isin $1)) {
set %couleur 2
$finddir($null,$null,$null,$finddir(%dossier.de.recherche,%element.a.chercher,0,%arborescence,resultatt $1- ))
echo 10 @dir Recherche terminée
echo 7 @dir %resultat.de.recherche dossiers trouvé(s) pour %element.a.chercher dans %dossier.de.recherche
echo 7 @dir $str(_,65)
if (%resultat2 == Recherche terminée sans résultat sur tous les disques) && (%resultat.de.recherche != 0) { set %resultat2 $null | set %resultat2 %resultat.de.recherche dossiers(s) trouvé(s) dans %dossier.de.recherche ; | set %doss %element.a.chercher }
elseif (%resultat2) && (%resultat.de.recherche != 0) { set %resultat2 %resultat2 %resultat.de.recherche dossiers(s) trouvé(s) dans %dossier.de.recherche ; }
unset %couleur
unset %fichier.texte
unset %commmande
}
elseif ((/tu isin $1) || (/tua isin $1) || (/atu isin $1)) {
set %deuxxx 1
set %couleur 2
set %element2.a.chercher %element.a.chercher
$finddir($null,$null,$null,$finddir(%dossier.de.recherche,%element.a.chercher,0,%arborescence,resultatt $1- ))
set %deuxxx 2
set %couleur 3
$findfile($null,$null,$null,$findfile(%dossier.de.recherche,%element.a.chercher,0,%arborescence,resultatt $1- ))
echo 10 @dir Recherche terminée
echo 7 @dir %resultat.de.recherche fichier(s) trouvé(s) pour %element.a.chercher dans %dossier.de.recherche
echo 7 @dir %resultat.de.recherche.2 dossier(s) trouvé(s) pour %element.a.chercher dans %dossier.de.recherche
echo 7 @dir $str(_,65)
if (%resultat2 == Recherche terminée sans résultat sur tous les disques) && ((%resultat.de.recherche != 0) || (%resultat.de.recherche.2 != 0)) { set %resultat2 $null | set %resultat2 %resultat.de.recherche fichier(s) et %resultat.de.recherche.2 dossier(s) trouvé(s) dans %dossier.de.recherche ; }
elseif (%resultat2) && ((%resultat.de.recherche != 0) || (%resultat.de.recherche.2 != 0)) { set %resultat2 %resultat2 %resultat.de.recherche fichier(s) et %resultat.de.recherche.2 dossier(s) trouvé(s) dans %dossier.de.recherche ; }
unset %couleur
unset %fichier.texte
unset %commmande
}
else {
set %couleur 3
$findfile($null,$null,$null,$findfile(%dossier.de.recherche,%element.a.chercher,0,%arborescence,resultatt $1- ))
echo 10 @dir Recherche terminée
echo 7 @dir %resultat.de.recherche fichier(s) trouvé(s) pour %element.a.chercher dans %dossier.de.recherche
echo 7 @dir $str(_,65)
if (%resultat2 == Recherche terminée sans résultat sur tous les disques) && (%resultat.de.recherche != 0) { set %resultat2 $null | set %resultat2 %resultat.de.recherche fichier(s) trouvé(s) dans %dossier.de.recherche ; | set %fich %element.a.chercher }
elseif (%resultat2) && (%resultat.de.recherche != 0) { set %resultat2 %resultat2 %resultat.de.recherche fichier(s) trouvé(s) dans %dossier.de.recherche ; }
unset %couleur
unset %fichier.texte
unset %commmande
}
}
}
alias rcht {
var %diskk 65
set %resultat2 Recherche terminée sans résultat sur tous les disques
set %lignee z
while (%diskk < 91) {
rch $puttok($1-,$chr(%diskk) $+ : $+ \ $+ $deltok($gettok($1-,2,62),1,92),2,62)
inc %diskk 1
}
echo 10 @dir Recherche terminée
if (%fich) { echo 7 @dir Resultat pour %fich : }
elseif (%doss) { echo 7 @dir Resultat pour %doss : }
elseif (%deuxxx == 2) { echo 7 @dir Resultat pour %element2.a.chercher : | echo 7 @dir %resultat2 | unset %resultat2 | unset %lignee | unset %deuxxx | unset %element2.a.chercher | halt }
echo 7 @dir %resultat2
unset %resultat2
unset %fich
unset %doss
unset %lignee
unset %deuxxx
unset %commmande
}
alias resultatt {
echo %couleur @dir $1-
if (%commmande) { var %commmm $shortfn($1-) | $replace(%commmande,<,%commmm) }
if (%deuxxx == 1) {
inc %resultat.de.recherche.2 1
if (%lignee == z) && (%fichier.texte) { set %lignee 0 | inc %lignee 1 | write -l $+ %lignee %fichier.texte $1- }
elseif (%lignee) && (%fichier.texte) { inc %lignee 1 | write -l $+ %lignee %fichier.texte $1- }
elseif (%fichier.texte) && (!%lignee) { write -l $+ %resultat.de.recherche.2 %fichier.texte $1- }
}
elseif (%deuxxx == 2) {
inc %resultat.de.recherche 1
if (%lignee == z) && (%fichier.texte) { set %lignee 0 | inc %lignee 1 | write -l $+ %lignee %fichier.texte $1- }
elseif (%lignee) && (%fichier.texte) { inc %lignee 1 | write -l $+ %lignee %fichier.texte $1- }
elseif (%fichier.texte) && (%resultat.de.recherche) { write -l $+ $calc(%resultat.de.recherche.2 + %resultat.de.recherche) %fichier.texte $1- }
}
else {
inc %resultat.de.recherche 1
if (%lignee == z) && (%fichier.texte) { set %lignee 0 | inc %lignee 1 | write -l $+ %lignee %fichier.texte $1- }
elseif (%lignee) && (%fichier.texte) { inc %lignee 1 | write -l $+ %lignee %fichier.texte $1- }
elseif (%fichier.texte) && (!%lignee) { write -l $+ %resultat.de.recherche %fichier.texte $1- }
}
}
alias pppaaahhh dialog -m pppaaahhh pppaaahhh
dialog pppaaahhh {
title "Recherche by pppaaahhh"
size -1 -1 241 128
option dbu
box "Options de recherche", 1, 8 8 226 58
check "Rechercher uniquement dans le dossier selectionné", 2, 80 32 138 10
radio "Les 2", 3, 16 48 34 10
radio "Fichiers", 4, 16 16 50 10
radio "Dossiers", 5, 16 32 50 10
button "Rechercher dans ...", 6, 88 16 61 12
check "Activer la recherche sur tous les disques et partitions", 9, 80 48 138 10
edit "", 10, 16 80 90 10, autohs
button "Lancer la recherche", 11, 16 112 93 12, result
box "Fichier ou dossier à rechercher", 14, 8 72 106 26
edit "", 7, 128 80 98 10, autohs
box "Commande(s) sur < (remplace $1-)", 13, 120 72 114 26
box "Sauvegarder résultat dans un fichier", 8, 120 104 114 20
edit "", 12, 128 112 98 10, autohs
edit "", 15, 152 16 50 10, autohs
check "", 16, 176 93 4 4
button "Fermer", 17, 40 100 37 8, cancel
}
on *:dialog:pppaaahhh:sclick:*:{
if ($did == 2) { if $did(2).state == 1 { set %uniquement.dans.dossier a }
else { unset %uniquement.dans.dossier }
}
if ($did == 9) { if $did(9).state == 1 { /did -o pppaaahhh 15 1 *:\ }
else { /did -o pppaaahhh 15 1 $null }
}
if ($did == 4) { if $did(4).state == 1 { unset %dossierrrr | unset %les.2 }
else { }
}
if ($did == 5) { if $did(5).state == 1 { set %dossierrrr d | unset %les.2 }
else { unset %dossierrrr }
}
if ($did == 3) { if $did(3).state == 1 { set %les.2 tu | unset %dossierrrr }
else { unset %les.2 }
}
if ($did == 6) { /did -o pppaaahhh 15 1 $sdir(c:,Selectionnez le dossier ou disque de recherche)
/did -u pppaaahhh 9
}
if ($did == 16) { if ($did(16).state == 1) { /did -n pppaaahhh 7 }
else { /did -m pppaaahhh 7 | /did -r pppaaahhh 7 | /unset %coommandes }
}
if ($did == 11) { if (!%uniquement.dans.dossier) && (!%dossierrrr) && (!%les.2) { var %varrr %fichier.a.rechercher $+ > $+ $did(pppaaahhh,15) $+ %fiiijj $+ %coommandes }
else { var %varrr / $+ %dossierrrr $+ %les.2 $+ %uniquement.dans.dossier %fichier.a.rechercher $+ > $+ $did(pppaaahhh,15) $+ %fiiijj $+ %coommandes }
/rch %varrr
}
if ($did == 17) { dialog -x pppaaahhh }
}
on *:dialog:pppaaahhh:edit:*:{
if ($did == 10) { set %fichier.a.rechercher $did(10) }
if ($did == 7) { if (!$did(7)) { set %coommandes $did(7) }
else { set %coommandes ? $+ $did(7) }
}
if ($did == 12) { set %fiiijj > $+ $did(12) }
}
on *:dialog:pppaaahhh:init:0: {
unset %coommandes | unset %fichier.a.rechercher | unset %fiiijj | unset %dossierrrr | unset %les.2 | unset %uniquement.dans.dossier | unset %element.a.chercher | unset %dossier.de.recherche | unset %element2.a.chercher | unset %resultat.de.recherche | unset %resultat.de.recherche.2
/did -m pppaaahhh 7
}
on *:dialog:pppaaahhh:close:0: {
unset %coommandes | unset %fichier.a.rechercher | unset %fiiijj | unset %dossierrrr | unset %les.2 | unset %uniquement.dans.dossier | unset %element.a.chercher | unset %dossier.de.recherche | unset %element2.a.chercher | unset %resultat.de.recherche | unset %resultat.de.recherche.2
}
menu status,menubar,channel {
cd by pppaaahhh
.Dialogue de recherche { pppaaahhh }
.Aide { aideeeu }
.Commandes { commandeeeus }
}
alias aideeeu {
window -aek @dir
echo 8 @dir $str(_,65)
echo 8 @dir Pour lancer le dialogue, faites /pppaaahhh
echo 8 @dir $str(_,65)
echo 7 @dir Utilisez /cd c:\Program Files par exemple pour voir le contenu de c:\Program Files (dossiers et fichiers), vous pouvez ensuite copier le chemin complet d'un fichier dans la fenetre @dir avec le bouton gauche de la souris, puis tapper /run (coller le contenu copié (ctrl+V)) pour lancer le fichier, ou refaire un /cd sur un chemin copié .
echo 6 @dir $str(_,65)
echo 5 @dir Utilisez /rch *.wav>c:\musique\ par exemple pour chercher tout les wav dans le dossier musique, ou /rch explorer.exe>c: pour rechercher explorer.exe sur le disque c; la recherche peut se faire sur toutes les lettres de disque (lecteur, disque dur ...); le caractere * peut remplacer le debut d'un nom de fichier, la fin, ou les deux , ainsi le script recherchera tous les noms de fichier contenant la chaine entre les deux * .
echo 4 @dir $str(_,65)
echo 2 @dir Utilisez /rch /d system*>c: par exemple ici pour chercher tous les dossiers commençant par system ; pour lister tous les dossiers du disque c: , faites /rch /d *>c: , idem pour les fichiers (/rch *>c:) . Pour stocker le resultat dans un fichier, faites par exemple /rch /d musique*>c:>liste.txt , par défaut, le fichier se trouvera dans le dossier de mirc, sinon spécifiez un chemin complet .
echo 6 @dir $str(_,65)
echo 10 @dir Pour ne faire la recherche que dans le dossier, et pas dans les sous-dossiers, rajouter /a . Exemple: /rch /da *>c: pour lister les dossiers de c: sans lister les sous-dossiers; pour les fichiers c'est /rch /a *.mp3>c: ; pour faire la recherche sur les fichiers ET les dossiers, c l'argument /tu, par exemple /rch /tu *mirc*>c: ;
echo 6 @dir $str(_,65)
echo 10 @dir Pour faire la recherche sur tous les disques et toutes les partitions, faites par exemple /rch *.mp3>*:\Musique>truc.txt ; les arguments /d /a /ad sont toujours valable;;; evitez de chercher tous les fichiers de tous les disques et de les ranger dans un fichier texte (/rcht *>*>liste.txt) ,sinon ya un freez de quelques minute (selon la taille et l'espace utilisé de vos disques);
echo 6 @dir $str(_,65)
echo 2 @dir Pour lancer une commande sur chaque resultat trouvé, faites par exemple /rch newmsg.wav>c:?/run < ,< remplace en fait l'élément recherché; ici newmsg.wav se lancera dés qu'il sera trouvé; vous pouvez toujours utiliser les arguments, et enregistrer dans un txt les resultats, et mettre à la fin une commande; c le ? qui indique qu'il ya une commande aprés; les commandes sont celles de mirc;
echo 6 @dir $str(_,65)
echo 10 @dir Pour lancer le dialogue, faites /pppaaahhh
}
alias commandeeeus {
window -aek @dir
echo 6 @dir $str(_,65)
echo 7 @dir /pppaaahhh :Pour lancer le dialogue
echo 7 @dir /cd directory :Voir les dossiers et fichiers dans un repertoire .
echo 6 @dir _
echo 3 @dir /rch /argument(s) fichier_à_chercher_(argument /d pour les dossiers)>directory>fichier.txt?/commande < :Chercher un fichier ou dossier dans directory , et mettre le résultat dans un fichier texte (pas obligatoire), et lancer une commande sur <, qui remplace le ou les fichiers ou dossiers trouvés . Si * remplace la lettre de disque(/rch *.wav>*:\musique), alors la recherche se fait sur tous les disques et partitions, de meme pour les fichiers (/rch *>c: ou /rch /d *>c:).
echo 6 @dir _
echo 6 @dir Liste arguments :
echo 6 @dir /d : recherche sur les dossiers de directory . /da recherche sur les dossiers mais pas les sous-dossiers de directory . Si pas d'arguments, recherche sur les fichiers de directory, et si /a , recherche sur les fichiers de directory mais pas dans ses sous-dossiers . /tu recherche sur les fichiers ET les dossiers .
echo 6 @dir $str(_,65)
}
on *:load: { pppaaahhh }
Conclusion :
Copiez juste le script et ajouter le a votre mirc;
Pour lancer le dialogue de recherche, tapper /pppaaahhh
Pour lister les commandes disponible, tapper /cd ou /rch
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.