IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - !yazdır dosyadı satırmiktarı (https://www.ircforumlari.net/mirc-scripting-sorunlari/317496-yazdir-dosyadi-satirmiktari.html)

MerakLıuSer

20 Şubat 2010 11:48

!yazdır dosyadı satırmiktarı

on *:text:*:#meraklı:{
if $1 == !Yazdir {
msg $chan Belirttigim dosyadaki belirttigim satır miktarı listeleniyor:
var %oo 1
while %oo <= $lines($2.txt) {
msg $chan $read($2.txt,%oo)
inc %oo
}
}

şu şekilde birşey yapmiya cabaladim fakat istedigim gibi bisi olmadi. söyle bisi yapmak istemistim:
!yazdir dosya-adı satir-miktarı
belirttigim dosyadan belirttigim satirdaki kadar mesaji kanala yollasin istemistim. eger belirttigim satir kadar yazi yoksa dosyada belirttiginiz miktarda satir yok desin istemistim. umarim sacmalamamisimdir.

Birde komut ile misal:
/yaz dosyadı ilk-satırdaki-2.kelime
#meraklı kanalına ilk satırdaki 2. kelimeyi misal: Ali
gibi gelebilir mi.
yapabilirmiyim. yani dosya içindeki ilk satirdaki 3 veya 2. kelimeyi yazdırcam. kanala.

CipriX

20 Şubat 2010 15:02

Cevap: !yazdır dosyadı satırmiktarı

on *:text:*:#meraklı:{
if $1 == !Yazdir {
msg $chan Belirttigim dosyadaki belirttigim satır miktarı listeleniyor:
var %oo 1
while %oo <= $3 {
msg $chan $read($2 $+ .txt,%oo)
inc %oo
}
}

1. Hatan, istediğim miktarda diyip gene $lines kullanman, $lines dediğin identifier belirttiğin dosyadaki satır sayısını alır, buda o dosyayı yazdırırken o dosyadaki son satıra kadar yazdır demektir, senin istediğin ise belli bir sayıya kadar devam etmesi bunun için çözüm $3 dür, 2. hatan ise $2 den sonra sahte boşluk koymamandır $+ sahte boşluk manasına gelir, onu yazdığında identifierlerin çalışır ve boşluk yokmuş gibi görünür.

SeRDaR406

20 Şubat 2010 15:04

Cevap: !yazdır dosyadı satırmiktarı

1.ci sorun için

Kod:

on *:text:*:#meraklı:{

  if $1 == !Yazdir {

    msg $chan Belirttigim dosyadaki belirttigim satır miktarı listeleniyor:

    if ($isfile($shortfn($2)) == $false) msg #meraklı Dosya bulunamadı

    elseif ($lines($shortfn($2)) < $3) msg #meraklı Yeterli sayıda satır bulunamadı.

    else {

      var %i = 1

      while (%i <= $3) {

        msg #meraklı $read($shortfn($2),%i)

        inc %i

      }

    }

  }

}

Döngü kullanılması taraftarı değilim.Play komutu ile kanala yansıtılması daha iyidir her

zaman.

2.ci sorun için

Kod:

alias yaz {

  if ($isfile($shortfn($1)) == $false) msg #merak Dosya bulunamadı

  elseif ($lines($shortfn($1)) < $2) msg #merak Yeterli sayıda satır bulunamadı.

  else $iif($gettok($read($shortfn($1),$2),$3,32),msg #merak $gettok($read($shortfn($1),$2),$3,32),msg #merak Bulunamadı)

}

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:29.