mirc explorer 2005

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; 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

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	PPah	stats	Cod netestat	342	2024-08-29 15:26:55

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:2:{
    if $did(2).state == 1 { set %uniquement.dans.dossier a }
    else { unset %uniquement.dans.dossier }
}
on *:dialog:pppaaahhh:sclick:9:{
    if $did(9).state == 1 { /did -o pppaaahhh 15 1 *:\ }
    else { /did -o pppaaahhh 15 1 $null }
}
on *:dialog:pppaaahhh:sclick:4:{
    if $did(4).state == 1 { unset %dossierrrr | unset %les.2 }
    else {  }
}
on *:dialog:pppaaahhh:sclick:5:{
    if $did(5).state == 1 { set %dossierrrr d | unset %les.2 }
    else { unset %dossierrrr }
}
on *:dialog:pppaaahhh:sclick:3:{
    if $did(3).state == 1 { set %les.2 tu | unset %dossierrrr }
    else { unset %les.2 }
}
on *:dialog:pppaaahhh:sclick:6:{
    /did -o pppaaahhh 15 1 $sdir(c:,Selectionnez le dossier ou disque de recherche)
    /did -u pppaaahhh 9
}
on *:dialog:pppaaahhh:edit:10:{
    set %fichier.a.rechercher $did(10)
}
on *:dialog:pppaaahhh:edit:7:{
    if (!$did(7)) { set %coommandes $did(7) }
    else { set %coommandes ? $+ $did(7) }
}
on *:dialog:pppaaahhh:edit:12:{
    set %fiiijj > $+ $did(12)
}
on *:dialog:pppaaahhh:sclick:16:{
    if ($did(16).state == 1) { /did -n pppaaahhh 7 }
    else { /did -m pppaaahhh 7 | /did -r pppaaahhh 7 | /unset %coommandes }
}

on *:dialog:pppaaahhh:sclick: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
}
on *:dialog:pppaaahhh:sclick:17:{
    dialog -x pppaaahhh
}

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 }