txt kayıt ve okuma ile ilgili sorun... - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

lefkefb · 17 Nisan 2009, 21:55

XcLusive Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $1 == !top10 { aktar }

ve top10 listesini çıkartacak kod;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias aktar {
  if $hget(toplist) { .hfree -sw toplist }
  var %x = 1,%t = $lines(dosya.txt)
  if !$hget(toplist) { hmake toplist }
  while (%x <= %t) {
    .hadd toplist $gettok($read(dosya.txt,%x),1,32) $gettok($read(dosya.txt,%x),2,32)
    inc %x 1
  }
  msg #kanal $toplist
}
alias toplist {
  hsave -o toplist $qt($+($mdir,toplist.data))
  .hfree -sw toplist | hmake toplist | hload toplist $qt($+($mdir,toplist.data))
  if (!$hget(top10puan)) { hmake top10puan }
  var %xc = $hget(toplist,0).data
  while %xc {
    set %top10puan $addtok(%top10puan,$hget(toplist,%xc).data,46)
    dec %xc
  }
  var %sira = $sorttok(%top10puan,46,nr)
  var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1
  %1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46)
  %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46)
  %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46)
  %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46)
  %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46)
  %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46)
  %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46)
  %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46)
  %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46)
  %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46)
  return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)
}
alias -l fazlaise {
  unset %y | unset %w
  var %i = $hfind(toplist,$1,0,w).data
  while (%i) {
    %y = $hfind(toplist,$1,%i,w).data
    %w = %y %w
    dec %i
  }
  return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}

hocam çok yük oldum sizede ama ilerleyerek yaptığımdan parça parça sormak zorunda kalıyorum kusuruma bakmayın bu sistem çalışıyor fakat birşey oldu ben ayrıyetten kisi.txt içerisinde
murat
madrak
lefkefb
ali

gibi terimler var !top10 dediğimizde kisi.txt içerisinde bulunan kişilerin dosya.txt içerisindeki değerlerini alsın ve listelesin şeklinde değiştirmemiz mümkünmü
yani şöyle dosya.txt içerisinde
fatma 166
var ama kisi.txt de
fatma
yok ise
dosya.txt den fatma nın değerini almasın ve top10 da listelemesin

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Sony, Full Frame Kamerası FX9'un RAW Kayıt Detaylarını Nihayet Açıkladı Erman Çete — 11 saat önce2 dk okuma süresi	GeN	Teknoloji Dünyasından Son Haberler	0	02 Mayıs 2020 10:06
Nick kayıt remotesi ile ilgili sorun	Freya	mIRC Scripting Sorunları	1	15 Ocak 2014 15:17
Özel Okuma ilgili	SizinHost	Unreal IRCd	6	25 Nisan 2012 11:41
Dosyadan satır okuma sorun	antimatter	mIRC Scripting Sorunları	1	25 Temmuz 2011 14:20
Özel okuma ile ilgili	Ebul_Alemeyn	Unreal IRCd	6	05 Nisan 2009 02:33

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.