Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Log Okuyucu Hazir Kod

diShy

~ یơυℓℓεss ..
Emektar Yönetici
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,083
  • MFC Puanı
    339
  • MFC Seviyesi

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),mo n,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri ,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cu martesi,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),mo n,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri ,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cu martesi,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:mad: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]
 
Üst Alt