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

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

- - Çözüldü Silme Sorunu Yaşıyorum (https://www.ircforumlari.net/mirc-scripting-sorunlari/864907-silme-sorunu-yasiyorum.html)

Kod:

stj {

  var %file = $qt(kadro\stj.txt)

  var %i = 1, %lines = $lines(%file), %readed = $null

  while %i <= %lines {

    %readed = $read(%file,%i)

    write -l $+ %i %file $+(%readed,$chr(32),$1-)

    inc %i 1

  }

}
 

stjbasi {

  var %file = $qt(kadro\stj.txt)

  var %i = 1, %lines = $lines(%file), %readed = $null

  while %i <= %lines {

    %readed = $read(%file,%i)

    write -l $+ %i %file $+($1-,$chr(32),%readed)

    inc %i 1

  }

}
 

stjsil {

  var %file = $qt(kadro\stj.txt)

  var %i = 1, %lines = $lines(%file), %readed = $null

  while %i <= %lines {

    %readed = $read(%file,%i)

    write -l $+ %i %file $regsubex(%readed,$1-,$null)

    inc %i 1

  }

}

-
Kod Bu Silme işleminde sıkıntı yaşıyorum
Eklemesinde sıkıntı yok eklemeyi başarılı bir şekilde gerçekleştiriyor
Listeleme yaptıgımda ise liste de de çıkıyor lakin bazı isimleri ekliyor ama silerken tam silmiyor harf bazında siliyor
Örneğin; mTa nickini ekliyorum, Eklemeyi gerçekleştiriyor lakin bu nick'i silerken a harfini silip mT harflerini bırakıyor bir türlü silmiyorum, çok ugraştım lakin çözemedim yardımlarınızı bekliyorum
Saygılarımla Z.

Kodun amacı Stajyer helper eklemek
!stj nick : Helperi ekliyorum
Eklediğim stj.txt Dosyasına aktarıyorum ama yan yana olacak şekilde isimleri eklemesi lazım
sonrada
!kadro yaparak kadro listesine bakıyorum
$read reklinde okutarak kadro listesine bakıyorum umarım anlatabilmişimdir
Saygılarımla Z.

Kodun amacı ne, ne işe yarıyor anlatırsan tam yardımcı oluruz.

Sanırım istediğin böyle birşey;

Kod:

stj {

  $iif(!$isdir(kadro),.mkdir kadro)

  if $istok($read(kadro/stj.txt),$1-,32) { echo -a bu nick ekli }

  else { .write -l kadro/stj.txt $read(kadro/stj.txt) $1- | echo -a eklendi. }

}

stjbasi {

  if !$lines(kadro/stj.txt) { echo -a liste boş }

  else { echo -a Listeleniyor.. | tokenize 32 $read(kadro/stj.txt) | echo -a $* }

}

stjsil {

  if !$lines(kadro/stj.txt) { echo -a liste boş }

  elseif !$istok($read(kadro/stj.txt),$1-,32) { echo -a bu nick ekli değil.. }

  else { 

    $iif($token($read(kadro/stj.txt),0,32) == 1,.remove kadro/stj.txt,.write -l kadro/stj.txt $remtok($read(kadro/stj.txt),$1-,32))

    echo -a silindi. 

  }

}

Saygılar Toprak.

Cevap: Silme Sorunu Yaşıyorum

Teşekkürlerimi Sunarım Size Toprak ,çok işime yaradı.
Saygılarımla Z.