MIRC EXPLORER

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 }

10 janvier 2005 11:28:55 :

demande de commentaires et conseils pour le code

10 janvier 2005 21:14:57 :

changement des if/goto en while optimisation des variables

10 janvier 2005 21:17:47 :

(!var)

11 janvier 2005 16:17:41 :

utilisation des commandes dans $findfile et $finddir ($finddir(dir,wildcard,N,depth,@window | command ...)

11 janvier 2005 17:15:40 :

($var != $null) en ($var)

11 janvier 2005 17:21:16 :

changement de ($var != $null) en ($var) " (/commande) en (commande)

11 janvier 2005 17:28:16 :

..

14 janvier 2005 16:36:12 :

optimisation de la boucle $finddir et $findfile option de recherche de fichiers ou dossiers

14 janvier 2005 16:38:23 :

..

14 janvier 2005 16:56:25 :

..

14 janvier 2005 19:29:46 :

Le résultat s'affiche maintenant dans une window

14 janvier 2005 19:46:59 :

.

14 janvier 2005 20:55:27 :

correction d'un bug

15 janvier 2005 22:11:55 :

Dialogue de recherche recherche possible sur les fichiers ET les dossiers option qui permet de lancer une commande sur chaque resultat trouvé .

15 janvier 2005 22:14:29 :

..

15 janvier 2005 23:45:02 :

;;

16 janvier 2005 00:01:20 :

;;

20 janvier 2005 19:51:14 :

bug du bouton fermer

05 février 2005 12:49:46 :

0

22 avril 2005 12:21:14 :

capture jpg

25 mai 2005 10:51:06 :

regroupement des évènements de dialogs