Mirc $ndir v3.0 (Multi Arama Snippet)
Mirc $ndir v3.0 (Multi Arama Snippet)
Mirc.gen.tr Mirc Dersleri: Konu Alıntıdır
Ders Konu Sahibi: MayHem
Versiyon : 3
Ne işe yarar : Bu isid aliası sayesinde istediğiniz dosyayı scripting yaparken çekebilirsiniz. Kısacası mirc altında her koşulda dosya arama bulma ve geriye yolunu veren bir aliasdır..!
Nerelerde ve nasıl kullanabilirsiniz : Bir toolbar yapar iken bu toolbar’a eklediÄŸiniz iconlarda kullanabilirisiniz. icon dosyanız çok derin klasörlerde olsun yada olmasın siz sadece dosyanın adını ve uzantısını yazın gerisini o halleder satırlarca dizin kodu yazmanıza gerek yoktur.
Kullanımı ve uzantıları :
Kullanımı çok kolaydır ve sabit olarak kullanılır.
Örneğin $ndir(mirc.ini,1) deneyin sonucu görün. (Echo olarak deneyin)
Parametreleri :
SABÄ°T KOD Ä°STEMÄ°
$ndir([DOSYAADI.UZANTISI],[Arama TASLAĞI]).[ARAMA TÜRÜ]
DOSYAADI.UZANTISI : Aradığınız bir dosyanın uzantısıyla beraber adınız yazmalısınız. Test.txt mirc.exe mirc.ini gibi yada logo.ico logo.bmp gibi.
ARAMA TASLAÄžI : Malum mircin birçok sürümü var bazı sürümlerde $mircdir olarak PCUser’i ele alıyor bazıları $mircexe neredeyse orada oluyor. E buna göre arama imkanıda bu özellikle oluyor.
EÄŸer deÄŸeri 1 yapariseniz $mircexe’yi ele alır.
EÄŸer deÄŸeri 0 yapariseniz $mircdir’i ele alır.
Bu sürümlerde farklılık gösterdiği için çok işe yarar.
ARAMA TÜRÜ :
Arama türü girdiğiniz uzantılara göre değişkenlik sağlar.
$QT , $SHORTFN şeklinde aramalarıda kapsar.
Uzantıları :
Q = $QT Olarak aramanızı yapar örneÄŸin size şöyle bir deÄŸer sunar. “C:\mirc\Test.txt”
S = $SHORTFN Olarak aramanızı yapar örneğin size şöyle bir değer sunar. Boşlukları ve tr karakterleri yok ederek ~ kullanır.
D = Dosyayı vermez sadece dizinini verir. Örneğin C:\mirc\Test.txt değilde C:\mirc\ olarak verir.
QS yada SQ = $SHORTFN ve $QT olarak deÄŸeri veriri.
QD yada DQ = $QT olarak sadece dizini verir dosya ismini vermez.
SF yada DS = $SHORTFN olarak sadece dizinin verir dosya ismini vermez.
QSD ve benzeri haneler = $QT , $SHORTFN ve Dizin olarak veriyi geri verir.
Örneklemeler :
1 = $mircexe yi ele alır.
//echo -a $ndir(mirc.ini,1) = C:\iRCHelpeR\mirc.ini
//echo -a $ndir(mirc.ini,1).q = “C:\iRCHelpeR\mirc.ini”
//echo -a $ndir(mirc.ini,1).s = C:\IRCHEL~1\mirc.ini
//echo -a $ndir(mirc.ini,1).d = C:\iRCHelpeR\
//echo -a $ndir(mirc.ini,1).qs = “C:\IRCHEL~1\mirc.ini”
//echo -a $ndir(mirc.ini,1).qd = “C:\iRCHelpeR\”
//echo -a $ndir(mirc.ini,1).sd = C:\IRCHEL~1\
//echo -a $ndir(mirc.ini,1).qsf = “C:\IRCHEL~1\”
0 = $mircdir ‘i ele alır.
//echo -a $ndir(mirc.ini,0) = C:\iRCHelpeR\mirc.ini
//echo -a $ndir(mirc.ini,0).q = “C:\iRCHelpeR\mirc.ini”
//echo -a $ndir(mirc.ini,0).s = C:\IRCHEL~1\mirc.ini
//echo -a $ndir(mirc.ini,0).d = C:\iRCHelpeR\
//echo -a $ndir(mirc.ini,0).qs = “C:\IRCHEL~1\mirc.ini”
//echo -a $ndir(mirc.ini,0).qd = “C:\iRCHelpeR\”
//echo -a $ndir(mirc.ini,0).sd = C:\IRCHEL~1\
//echo -a $ndir(mirc.ini,0).qsf = “C:\IRCHEL~1\”
Kullanılan Kaynak Kodlar : $gettok , $qt , $shortfn , $mircdir , $mircexe , $findfile , $remove
Kurulum : Kurulum gerektirme kodu kopyalayıp script editörünüzün remote kısmına yapıştırmanız yeterlidir.
alias ndir {
 if ($isid) {
   if ($2 = 1) {
     if (!$prop) { return $findfile($miex,$1,1) }
     if ($prop = q) { return $qt($findfile($miex,$1,1)) }
     if ($prop = s) { return $shortfn($findfile($miex,$1,1)) }
     if ($prop = d) { return $remove($findfile($miex,$1,1),$gettok($findfile($miex,$1,1),-1,92)) }
     if ($prop = qs || $prop = sq) { return $qt($shortfn($findfile($miex,$1,1))) }
     if ($prop = qd || $prop = dq) { return $qt($remove($findfile($miex,$1,1),$gettok($findfile($miex,$1,1),-1,92))) }
     if ($prop = sd || $prop = ds) { return $shortfn($remove($findfile($miex,$1,1),$gettok($findfile($miex,$1,1),-1,92))) }
     if ($prop = qsd || $prop = qds || $prop = sqd || $prop = sdq || $prop = dsq || $prop = dqs) {
       return $qt($shortfn($remove($findfile($miex,$1,1),$gettok($findfile($miex,$1,1),-1,92))))
     }
   }
   if ($2 = 0) {
     if (!$prop) { return $findfile($mircdir,$1,1) }
     if ($prop = q) { return $qt($findfile($mircdir,$1,1)) }
     if ($prop = s) { return $shortfn($findfile($mircdir,$1,1)) }
     if ($prop = d) { return $remove($findfile($mircdir,$1,1),$gettok($findfile($mircdir,$1,1),-1,92)) }
     if ($prop = qs || $prop = sq) { return $qt($shortfn($findfile($mircdir,$1,1))) }
     if ($prop = qd || $prop = dq) { return $qt($remove($findfile($mircdir,$1,1),$gettok($findfile($mircdir,$1,1),-1,92))) }
     if ($prop = sd || $prop = ds) { return $shortfn($remove($findfile($mircdir,$1,1),$gettok($findfile($mircdir,$1,1),-1,92))) }
     if ($prop = qsd || $prop = qds || $prop = sqd || $prop = sdq || $prop = dsq || $prop = dqs) {
       return $qt($shortfn($remove($findfile($mircdir,$1,1),$gettok($findfile($mircdir,$1,1),-1,92))))
     }
   }
   if (!$2) { return Veri İsteme Hatası }
 }
 if (!$2) { echo Veri İsteme Hatası }
}
alias miex { if ($isid) { return $remove($gettok($mircexe,1-,92),$gettok($mircexe,-1,92)) } }
Yükleniyor ...