Tekil Mesaj gösterimi
  #1  
Alt 19 Haziran 2012, 01:08
Avatar Yok
med1kal med1kal isimli Üye şimdilik offline konumundadır
 Coders 

mS Puan: 31
mS Derece: med1kal
 
Üyelik tarihi: 10 Ağustos 2009
Mesajlar: 33
Konular: 5
Eklentiler: 2
Alınan Teşekkür: 1
Yapılan Teşekkür: 0
Post Rastgele Sırala v1.0

Bir metin belgesinde alt alta sıralı olan içeriğin sırasını rastgele değiştirerek çıktısını veren scriptim. (Geliştirilebilir)
Kullanım alanına sahip olunduğunda çok fayda sağlayacak olan, ayrıca dosya sahiplenme yönü sayesinde 100.000 satırlık bir metin belgesini dahi saniyeler içersinde rastgele yeniden derleyebilme becerisine sahip.

Kullanım: /Randomizer

Kod:
alias randomizer {
  var %file = $+(",$sfile(*.txt,metin belgesi seç...,basla),")
  if ($hget(randomizer)) hfree -s $v1
  if ($fopen(tmp=~)) .fclose tmp=~ 
  .fopen tmp=~ %file
  if (!$ferr) { 
    while (!$fopen(tmp=~).eof) { 
      hinc -m randomizer $fread(tmp=~) 1
    } 
  }
  fclose tmp=~
  echo - $hget(randomizer,0).item

  var %o.file = $replace(%file,.txt",$+(-,$zaman,.txt"))
  .fopen -o o.out %o.file
  while ($hget(randomizer,0).item) { 
    var %rand = $r(1,$hget(randomizer,0).item), %item = $hget(randomizer,%rand).item 
    .fwrite o.out %item $+ $crlf
    hdel randomizer %item
  }
}
alias zaman return $+([,$replace($date,/,.),-,$gettok($replace($time,:,.),1-2,46),])
Alıntı ile Cevapla
Sponsored Links
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76