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.