Mirc explorer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 919 fois - Téléchargée 33 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire Commentaires
Messages postés
879
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

Tu peux encore supprimer les slashs.

Tu peux aussi regrouper tes évènements de dialog avec $devent et $did

unset %var1
unset %var2
unset %var3
devient unset %var1 , %var2 , %var3

Sinon je trouve que ça fait un peu beaucoup de variables, je préfère les hash tables ;)
Pas mal du tout !!
Messages postés
28
Date d'inscription
mercredi 15 janvier 2003
Statut
Membre
Dernière intervention
14 avril 2007

ok abdoulax merci des conseils
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

Franchement maintenant je trouve que ça mérite sa note !!
Cependant il reste des bugs :
- Déjà quand j'ai ouvert le dialog une erreur, car il n'y a pas de button valider ou annuler, pour le résoudre aller à la ligne 172 et mettre -> button "Fermer", 17, 40 100 37 8,cancel
- Ensuite y à des petit bug d'affichage dans Commandes... ( ms ça c pas tro grave !!! )
- Enfin le gros problème c'est que lorsque j'ai lancé la recherche mon mirc à planté....

Mise à par ces détails, c'est du bon travail !!

Have fun
Messages postés
1
Date d'inscription
lundi 6 novembre 2000
Statut
Membre
Dernière intervention
20 janvier 2005

Jamais vu, trés beau travail :: 8/10
Messages postés
28
Date d'inscription
mercredi 15 janvier 2003
Statut
Membre
Dernière intervention
14 avril 2007

mici nightmare *
Afficher les 38 commentaires

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.

Du même auteur (pppaaahhh)