[Comanche]

Slmlar..

a. txt listesinde bulunan kelimeleri harf sayısına göre nasıl sıralayabilirim ? (büyükten küçüğe doğru )

[OperServ]

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

Slmlar.. a. txt listesinde bulunan kelimeleri harf sayısına göre nasıl sıralayabilirim ? (büyükten küçüğe doğru )

Selam kod elinde varsa paylaşırsan daha çabuk yardımcı oluruz yok ise şunu deneyin:

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

alias kelime {
  var %file = a.txt
  if (!$exists(%file)) {
    echo -a Hata: $qt(%file) dosyası bulunamadı!
    return
  }


  var %words = $null, %line = 1
  while ($read(%file, n, %line)) {
    var %current_line = $v1
    var %words = %words %current_line
    inc %line
  }

  var %i = 1, %kelime_words = $null
  while ($gettok(%words, %i, 32) != $null) {
    var %word = $v1
    var %len = $len(%word)

    var %kelime_words = %kelime_words $+ %len $+ : $+ %word $chr(44)  
    inc %i
  }

  var %kelime = $sorttok(%kelime_words, 44, 33) 

  var %final_result = $null, %j = 1
  while ($gettok(%sorted, %j, 44) != $null) {
    var %entry = $v1
    var %word = $mid(%entry, $calc($pos(%entry, :, 1) + 1), $len(%entry))
    var %final_result = %final_result %word
    inc %j
  }

  echo -a Kelimeler (Büyükten Küçüğe): %final_result
  ; write kelime.txt %final_result 
}

Kullanım:
mIRC'de /kelime yazın.

Kod, a.txt dosyasındaki tüm kelimeleri okur.

Kelimeleri harf sayısına göre (büyükten küçüğe) sıralar.

Sonucu mIRC penceresinde gösterir (veya kelime.txt dosyasına yazabilirsiniz).

[Feragat]

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

Slmlar.. a. txt listesinde bulunan kelimeleri harf sayısına göre nasıl sıralayabilirim ? (büyükten küçüğe doğru )

Merhaba,
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] in paylaştığı koda bir alternatif de benden.

Kullanımı: /sıra

Örnek x.txt içeriği:

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

adana
mersin
istanbul
antalya
gaziantep
muş
rize

Alt + R (Remote) bölümüne eklenecek kod:

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

alias sıra {
  var %x = 1
  while (%x <= $lines(x.txt)) {
    var %y $addtok(%y, $len($read(x.txt,%x)) $+ $chr(33) $+ $readn, 32)
    inc %x
  }
  var %ext = $sorttok($regsubex(x,%y,/(\d+)!(\d+)/gU,\1!\2), 32, rn)
  var %c = 1, %d = $calc($regml(x,0) / 2)
  while (%c <= %d) {
    echo -a $read(x.txt, $token($token(%ext, %c, 32), 2, 33))
    inc %c
  }
}

Sonuç:

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

gaziantep
istanbul
antalya
mersin
adana
rize
muş

Eklediğin içeriğe göre hata verme olasılığı olabilir.

Takıldığında incelemen gereken konular
1- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
2- https://en.wikichip.org/wiki/mirc/identifiers/$read
3- https://en.wikichip.org/wiki/mirc/identifiers/$sorttok

Pek çok yöntem ile yapabilirsin.

Kolay gelsin.
İyi bayramlar.

[Comanche]

tşkler ustalarım...

[manikdepresif]

filter ile olmuyor mu

[manikdepresif]

Bu sekilde yaptim, Kod asagidan basliyor.

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

;[KOD BASLANGIC]
; <- bu sol taraftaki isaretli satirlar bilgilendirme ve size kodun nasil kullanilacagini gosteren isaretlerdir. Silmenize gerek yoktur.

;sirasizdosya.txt kismina uzerinde islem yapacaginiz dosya adini girin, yanlis yapmayin aksi halde dosyaya zarar verebilirsiniz.
alias sirasizdosya return sirasizdosya.txt
;siralidosya.txt kismina dosyanin işlem görecek dosya adini yazin.
alias siralidosya return siralidosya.txt
;
;kucukten buyuge siralamak icin /buyuk-kucuk-sirala
;buyukten kucuge siralamak icin /kucuk-buyuk-sirala komutlarini kullanin.
; 
alias buyuk-kucuk-sirala { 
  if $file($siralidosya) { filter -c $siralidosya }
  var %m = 999 
  while (%m) { 
    filter -ff $sirasizdosya $siralidosya $str(?,%m) 
    dec %m 
  } 
}
alias kucuk-buyuk-sirala { 
  if $file($siralidosya) { filter -c $siralidosya }
  var %m = 1 
  while (%m) { 
    filter -ff $sirasizdosya $siralidosya $str(?,%m) 
    inc %m 
    if (%m == 999) { break }
  } 
}

;[KOD BITIS]

;Not: kod en fazla yan yana dizilmis 999 karaktere kadar calisacaktir. Bunu göz önünde bulundurunuz.

[Kullanim]
/kucuk-buyuk-sirala
/buyuk-kucuk-sirala

[manikdepresif]

başka yoldan nasil yapabiliriz fikri olan var mi kafam takildi.

[SNOOPY]

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

alias artan {
  var %dosya = dosya.txt
  var %satirlar , %i = 1

  while ($read(%dosya,%i)) {
    if ($len($v1)) { %satirlar = %satirlar $v1 }
    inc %i
  }

  var %sirali = $sorttok(%satirlar,32,n,len)

  echo -a *** Artan Sıralama ***
  var %j = 1
  while (%j <= $numtok(%sirali,32)) {
    echo -a $gettok(%sirali,%j,32)
    inc %j
  }
}

alias azalan {
  var %dosya = dosya.txt
  var %satirlar , %i = 1

  while ($read(%dosya,%i)) {
    if ($len($v1)) { %satirlar = %satirlar $v1 }
    inc %i
  }

  var %sirali = $sorttok(%satirlar,32,n,len)
  var %ters , %x = $numtok(%sirali,32)

  while (%x) {
    %ters = %ters $gettok(%sirali,%x,32)
    dec %x
  }

  echo -a *** Azalan Sıralama ***
  var %k = 1
  while (%k <= $numtok(%ters,32)) {
    echo -a $gettok(%ters,%k,32)
    inc %k
  }
}

Buna ne dersin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kullanım:


mIRC üzerinde

/artan yazarsan kısadan uzuna
/azalan yazarsan uzundan kısaya sıralar.

[manikdepresif]

deneyelim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:07 -->-> Daha önceki mesaj 19:05 --

* Invalid parameters: $sorttok (line 10, script7)
-
dusundugum hatayi aldim .

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:09 -->-> Daha önceki mesaj 19:07 --

denemeden mi gonderdin

[manikdepresif]

Boyle yaptim.
/dizkucuk
/dizbuyuk

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

;deneme.txt yazan yere dosya adini yaziniz.


alias -l dosya return deneme.txt 
;
alias dizkucuk {
  var %j = 1, %x = $lines($dosya) 
  while (%j <= %x) {
    var % $+ dmn $+ - $+ %j $+ - $+ $len($read($dosya,nt,%j))  $read($dosya,nt,%j)
    inc %j
  } 
  var %k = 1, %l = 2032
  while (%k <= %l) {
    if $var($+(%,dmn-*-,%k)) {
      var %z = 1
      while (%z <= $var($+(%,dmn-*-,%k),0))   {
        echo -a : $var($+(%,dmn-*-,%k),%z).value
        inc %z
      }
    }
    inc %k
  }
}

alias dizbuyuk {
  var %j = 1, %x = $lines($dosya) 
  while (%j <= %x) {
    var % $+ dmn $+ - $+ %j $+ - $+ $len($read($dosya,nt,%j))  $read($dosya,nt,%j)
    inc %j
  } 
  var %k = 1, %l = 2032
  while (%k <= %l) {
    if $var($+(%,dmn-*-,%l)) {
      var %z = 1
      while (%z <= $var($+(%,dmn-*-,%l),0))   {
        echo -a : $var($+(%,dmn-*-,%l),%z).value
        inc %z
      }
    }
    dec %l
  }
}