Sayi Siralama Filter Alternatif - IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

**Forbidden** · 02 Temmuz 2022, 00:52

Merhabalar kodun amacı Text belgesindeki rakamlari baz alarak büyükten kücüge ya da küçükten büyüge belirli miktarda siralama yapar.
Bunu yaparken $gettok kullanir, enbuyuk veya enkucuk ozellikleri mevcuttur, ek olarak komut secenegi vardir.
Ornek.txt Text Belgesinin iç görünümü

Kod

yogurt 10 ekmek 4 kurufasulye 20 mercimek 13 sabun 5 jilet 3 kahve 4 dogalgaz 49 elektrik 56 makarna 5

Kod

//noop $sayisirala(ornek.txt,enbuyuk,2,32,echo -a).5

Bu komutta;
dosya ismi olarak ornek.txt belirttik.
Buyukten kucuge mi yoksa kucukten buyuge mi siralayacagiz ?
buyukten kucuge siralarsak - enbuyuk
kucukten buyuge siralarsak - enkucuk
2 - burada token degeridir, rakamlar 2.token(kelime) oldugu icin 2 kullandik.
32 - token(kelime) ayracidir.Burada ayrac bosluk olarak kullanilmistir ve boslugun ascii degeri 32'dir.
echo -a ise tamam secenektir, onun yerine msg #herhangibirkanal olarak da yazabilirdik.
Ve en son 5 degeri ise, bizim siralama yapabilecegimiz miktari veriyor.Yani bize buyukten kucuge en buyuk 5 adet satir verecek.

Kod

alias sayisirala {
  unset %enbuyuk %enkucuk %dok %zsonb %ysonk
  if !$1 { echo $color(info) Text Belgesini Yaziniz. Orn: $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
  if !$isfile($1) { echo $color(info) dosya bulunamadi | return }
  if $prop !isnum { echo $color(info) En buyuk kactane rakam siralama yapacagini belirtin. Orn: $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
  if $prop > $lines($1) { echo $color(info) Uzgunum, dosyanizda $v2 satir var | return }
  if ($4) {
    if ($3 !isnum || !$asc($4) ) { echo $color(info) gecerli token numarasi ve ascii numarasi giriniz. Ornek: $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
    else { set %dok $3 $4 }
  }
  elseif !$5 { echo $color(info) Dosyanin ciktisini ne yapmak istediginizi yazin. Ornek #Forbidden kanalina yazdiracaksaniz, $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
  var %topkac $prop, %j = 1, %mm
  while %j <= %topkac {
    var %i 0
    set %z 0
    set %y 42584398923849238459239582392334288249
    while %i <= $lines($1) {
      var %sa = $iif(%dok,$gettok($read($1,%i),$3,$4),$read($1,%i))
      if %sa isnum {
        if %sa >= %z && !$istok(%enbuyuk,$readn,32) { set %z %sa | set %zsonb $readn }
        if %sa <= %y && !$istok(%enkucuk,$readn,32) { set %y %sa | set %ysonk $readn }
      }
      inc %i
    }
    set %enbuyuk %enbuyuk %zsonb
    set %enkucuk %enkucuk %ysonk
    if $2 == enbuyuk { $5- $read($1,%zsonb)) }
    if $2 == enkucuk { $5- $read($1,%ysonk)) }
    unset %z %y
    inc %j
  }
}