IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Log Okuyucu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/175651-log-okuyucu.html)

Scriptinizde tutulan loglarınızı listelemeye,görüntülemeye,aramaya yapmaya elverişli bir çalışma.Görünüm olarak bir kanal penceresini andıran bir sonuç çıktı ortaya,beğenmeniz dileğiyle...

Görüntü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

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ı || }

}

Scriptinizin remote kısmına ekledikten sonra /logs yapmanız yeterlidir.

Hoşca paylaşımlar...

Cevap: Log Okuyucu

Eline saglik, insallah resimde görüldügü gibi tamamen silmemissindir, bu konuda hassasum (:

Cevap: Log Okuyucu

Seni gönlümüze yazmışız hafızım ;)
Ordan kimse silemez...

Cevap: Log Okuyucu

sagol varol hacı.. olmus bu olmus. fakat bir uyarida bulunmak lazim kullanilan mircin sürümüne göre degisiklik gösterebilir kodun algılanmasi belki oyle bi hata cikabilir onun haricinde bi sorun yok ;s24

Cevap: Log Okuyucu

Çok güzel çalışmalar çıkarıyorsun Cenk, umarım senide kimse kırıp üzmez. Bu işte başarını az çok ıspat ettin, artık seni çekemeyenler gün geçtikçe çoğalacaktır. Onun için senin yıldırmak isteyenlere istediğini verme :)

Başarılarının ve çalışmalarının devamını dilerim Cenk.

Cevap: Log Okuyucu

bi adanalıyada bu yakışır :P
başarılar Cenk

Cevap: Log Okuyucu

El emeği göz nuru {: Eline yüreğine sağlık.

Cevap: Log Okuyucu

Ben Coder'im deyip, abuk subuk ve bir o kadar da gereksiz bircok kod yazan kişilere inat Hem Gerekli Hem de yeteneğinizi konuşturan cod'lar yazıyorsunuz =]
Tebrik ederim cok iyi bir calısma =]

Elinize, emeğinize sağlık.

Cevap: Log Okuyucu

Alıntı:

detay Nickli Üyeden Alıntı (Mesaj 628940)

büyük ihtimalle $qt(file) sorunu olacaktır keşke shortfn kullanmış olsaydı.

bazı versiyonlarda "X:\mirc klasörü\logs\dosya.uzantı" ($qt) geçersiz oluyor..

Cevap: Log Okuyucu

Güzel çalışma ama her zaman daha iyisini bekliyoruz.