Log Okuyucu Hazir Kod
mircalem Log Okuyucu Hazir Kod
kod:
mIRC Scriptinizde konuşmalarin loglarini ( kayitlarini ) tutmaya yarayan bir koddur. Kullanimi /logs

alias logs {
window -aekl21S @Log Verdana 12
.titlebar @Log Dosyalar? ...
editbox @Log Ekranda arama yapaca??n?z kelimeyi buraya girin...
echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
echo 12 @Log Görüntülemek istedi?iniz dosyay? seçin.
}
menu @Log {
lbclick:{
clear @Log | loadbuf @Log $+($shortfn($logdir),$line(@Log,$1,1))
window -b @Log
}
$iif(!$sline(@Log,0),$style(2)) ??lem
.Bilgi: {
aline @Log $str(-,5)
aline @Log 4Dosya bilgileri...
aline @Log 2Boyutu :7 $bytes($file($+($logdir,$$1)).size).suf
aline @Log 2Dosya Ad? :7 $$1
aline @Log 2Dosya Yolu :7 $logdir $+ $$1
aline @Log 2?lk oturum :7 $replace($asctime($file($+($logdir,$$1)).ctime),mon,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,May?s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct,Ekim,Nov,Kas?m,Dec,Aral?k)
aline @Log 2Son kapan??:7 $replace($asctime($file($+($logdir,$$1)).mtime),mon,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,May?s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct,Ekim,Nov,Kas?m,Dec,Aral?k)
aline @Log $str(-,5)
}
.Listeden Ç?kar:dline -l @Log $sline(@Log,1).ln
.Tamamen Sil:{
clear @Log
.remove $+($shortfn($logdir),$$1)
echo 4 @Log $$1 dosyas? silindi.
dline -l @Log $sline(@Log,1).ln
}
.Dosya Arama: {
var %t = $$?=\\\\"Aranacak kelimeyi girin\\\\"
if $findfile($logdir,$+(*,%t,*).log,0) {
clear @Log
clear -l @Log
echo 5 @Log $findfile($logdir,$+(*,%t,*).log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
}
else { clear @Log | echo 4 @Log Arama kay?tlar?nda $qt(%t) bulunamad?... }
}
.Tüm Liste:clear @Log | clear -l @Log | echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
}
on *:input:@Log:{
if $left($1,1) == / { return }
if $fline(@Log,$+(*,$1-,*),0) {
aline 3 @Log || Arama yap?l?yor ||
var %Jenk = 1, %\\\\\\\' = ||
while %Jenk <= $fline(@Log,$+(*,$1-,*),0) {
if ($mid($fline(@Log,$+(*,$1-,*),%Jenk).text,1,2) != %\\\\\\\') {
aline -p @Log || $+ $fline(@Log,$+(*,$1-,*),%Jenk).text
}
inc %Jenk
}
aline 5 @log || Arama sona erdi ||
}
else { aline 4 @Log || Arama kayd? bulunamad? || }
}
VN:F [1.1.8_518]

Bekleyiniz.