Tekil Mesaj gösterimi
Alt 25 Nisan 2008, 10:21   #1
Çevrimdışı
ByDeniS
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
$ndir $mircdir ve $scriptdir'den daha verimli.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias -l nfindfile return $qt($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1)) alias -l nfindfile2 return $findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1) alias -l nfindfile3 return $qt($shortfn($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1))) alias -l nfindfile4 return $shortfn($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1)) alias ndir { if ($isid) && ($1) && ($nfindfile2($1)) && (!$2) return $nfindfile($1) if ($isid) && ($1) && ($nfindfile2($1)) && ($2) && (!$3) return $nflag($1,$2) if ($isid) && ($1) && ($nfindfile2($1)) && ($2) && ($3) return $nfatal(fazla) if ($isid) && (!$1) return $nfatal(bos) if ($isid) && ($1) && (!$nfindfile2($1)) return $nfatal(yok) } alias nfatal { if ($isid) && ($1 == bos) echo -a Bir dosya adı girmelisiniz. if ($isid) && ($1 == yok) echo -a Böyle bir dosya mirc klasörünüzde yok. if ($isid) && ($1 == fazla) echo -a Fazla parametre girdiniz. if ($isid) && ($1 == flag) echo -a Geçersiz parametre girdiniz. } alias nflag { if ($isid) && ($2 == -q) return $nfindfile2($1) if ($isid) && ($2 == -s) return $nfindfile3($1) if ($isid) && ($2 == -qs) || ($2 == -sq) return $nfindfile4($1) if ($isid) && ($2 != -q) || ($2 != -s) || ($2 != -qs) || ($2 != -sq) return $nfatal(flag) }

Yukarıdaki kodları remotenize koyduktan sonra birşey yapmanıza gerek yok. Kullanımı gayet basittir.
Kullanacağınız yere $ndir(DOSYA,-FLAG) olarak yazabilirsiniz.

Örnekler :

$ndir(dcx.dll) Dosya dizinini "C:\mirc\dcx.dll" olarak verir.
$ndir(dcx.dll,-q) Dosya dizinini C:\mirc\dcx.dll olarak verir.
$ndir(dcx.dll,-s) Dosya dizinini "$shortfn()" olarak verir.
$ndir(dcx.dll,-qs) Dosya dizinin " olamadan $shortfn() olarak verir.


Kıyaslamalar :

$scriptdirdcx\dcx.dll = $ndir(dcx.dll)
$mircdirdll\dcx\dcx.dll = $ndir(dcx.dll)
$qt($findfile($mircdirdcx.dll),dcx.dll,1) = $ndir(dcx.dll)

vs.. vs.. Basitligi görmüssünüzdür.


Bu çalışmayı mirc 6.31'deki $mircdir sorunu üzerine yaptım lahsen kullanmaya başladım ve sizlerle paylaşmak istedim.
Umarım işinize yarar.


İçerisinde kullanılanlar :

$mircexe
$findfile
$qt
$shortfn
$remove
$gettok


Saygılarımla

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan