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

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

- - txt kayıt ve okuma ile ilgili sorun... (https://www.ircforumlari.net/mirc-scripting-sorunlari/198036-txt-kayit-ve-okuma-ile-ilgili-sorun.html)

txt kayıt ve okuma ile ilgili sorun...

merhaba üstadlarım şöyle bi sorunum var.
şimdi txt içerisinde şu şekilde kayıtlar olucak

muka 128
murat 265
ali 444
lefkefb 568

diyelim ben irc de
!oku muka
dediğimde muka nın yanındaki değeri vermesini istiyorum
ve
bu txt ye diğelimki muka kullanıcısının yanındaki sayıya eklemeler olucak mesela
!ekle muka 20
dedğimde txt içerisindeki muka nın yanındaki değere +20 eklemesini istiyorum bu şekil sürekli eklemeler yapılıcak
ve
!degistir muka 100 dediğimde ise direk mukanın değerini 100 yapıcak
yardımcı olurmusunuz bunu nasıl gerçekleştirebiliriz?
şimdiden teşekkür ederim

Cevap: txt kayıt ve okuma ile ilgili sorun...

Kod:

on *:text:*:#:{

  if $regex($1,/(\!(oku|ekle|degistir|sil)/i) {

    if $exists(dosya.txt) { msg # Dosya Bulunamıyor Kontrol Edin | halt }

    if *oku* iswm $regml { 

      if !$read(dosya.txt,w,$+(*,$2,*)) { msg # bu kelime listede yok | halt }

      msg # $2 değeri: $gettok($read(dosya.txt,w,$+(*,$2,*)),2,32)

    }

    if *ekle* iswm $regml { 

      if $read(dosya.txt,w,$+(*,$2,*)) { msg # bu kelime saten ekli | halt }

      else { write dosya.txt $2- }

    }

    if *degistir* iswm $regml {

      if $read(dosya.txt,w,$+(*,$2,*)) { 

        write $+(-dl,$readn) dosya.txt

        write dosya.txt $2-

        msg # $2 değeri $3 olarak değiştirildi

      }

      else { msg # bu kelime listede yok | halt }

    }

    if *sil* iswm $regml {

      if $read(dosya.txt,w,$+(*,$2,*)) { 

        write $+(-dl,$readn) dosya.txt

        msg # $2 değeri silindi

      }

      else { msg # bu kelime listede yok | halt }

    }

  }

}

aslında hash ile daha kolay olurdu ancak txt dosyasına manuel olarak hızlı ekleme yapabilmen için bu şekilde hazırladım..
not : kod denenmemiştir ve dosya.txt adını değiştirebilirsin.

Cevap: txt kayıt ve okuma ile ilgili sorun...

hocam benmi yanlış yapıyorum anlayamadım ama çalıştıramadım :S
on *:text:*:#:{
bu kısımıda kendi kanalıma göre düzenledim ama çalıştıramadım :S

Cevap: txt kayıt ve okuma ile ilgili sorun...

NASIL dÜZENLEdiniz Yazarmısın

Cevap: txt kayıt ve okuma ile ilgili sorun...

on *:text:*:#kendi kanalın:{

bu şekilde olur kendi kanalına göre

Cevap: txt kayıt ve okuma ile ilgili sorun...

evet öyle yaptım bende efendim ama olmadı

Cevap: txt kayıt ve okuma ile ilgili sorun...

tmm hocam kurcaladım biraz hallettim fakat benim
!ekle
olarak kullanacağım komut mesela txt içerisindeki
muka 305
değerini
!ekle muka 20
dediğim zaman
muka 325
olmasını istiyorum bunu nasıl yapıcaz peki
üstüne toplicak yani

Cevap: txt kayıt ve okuma ile ilgili sorun...

tmm bunuda hellettim
if $1 = !degistir {
if $read(dosya.txt,w,$+(*,$2,*)) {
%degisen = $calc($gettok($read(dosya.txt,w,$+(*,$2,*)),2,32) + $3)
write $+(-dl,$readn) dosya.txt
write dosya.txt $2 %degisen
msg #kanal $2 değeri $3 olarak değiştirildi
}
else { msg #kanal bu kelime listede yok | halt }
}

komutu ile
son bir şey kaldı txt dosyasının içindeki herşey isilmek için ne yapmamız lazım

Cevap: txt kayıt ve okuma ile ilgili sorun...

write -c dosya.txt dosyadaki tüm verileri silmeni saglar.

Kod:

if $1 == !temizle {

write -c dosya.txt

msg #kanal Tüm veriler silindi.

}

Şeklinde bir ekleme yapabilirsin koduna.

Cevap: txt kayıt ve okuma ile ilgili sorun...

şu anlık herşey tmm son bi yer kaldı txt dosyamın içerisinde
muka 15
lefkefb 20
murat 88
ahmet 77
ali 66
can 75
kadir 23
ibo 51
mehmet 38
oguz 73

gibi yazılar var
ve ben bi komut ile ismin yanındaki değeri büyük olan kişiyi 1. sırada olmak üzere top10 listesi gibi aşağı doğru azalarak listelemek istiyorum nasıl yaparız acaba?

Cevap: txt kayıt ve okuma ile ilgili sorun...

Kod:

if $1 == !top10 { aktar }

ve top10 listesini çıkartacak kod;

Kod:

alias aktar {

  if $hget(toplist) { .hfree -sw toplist }

  var %x = 1,%t = $lines(dosya.txt)

  if !$hget(toplist) { hmake toplist }

  while (%x <= %t) {

    .hadd toplist $gettok($read(dosya.txt,%x),1,32) $gettok($read(dosya.txt,%x),2,32)

    inc %x 1

  }

  msg #kanal $toplist

}

alias toplist {

  hsave -o toplist $qt($+($mdir,toplist.data))

  .hfree -sw toplist | hmake toplist | hload toplist $qt($+($mdir,toplist.data))

  if (!$hget(top10puan)) { hmake top10puan }

  var %xc = $hget(toplist,0).data

  while %xc {

    set %top10puan $addtok(%top10puan,$hget(toplist,%xc).data,46)

    dec %xc

  }

  var %sira = $sorttok(%top10puan,46,nr)

  var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1

  %1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46)

  %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46)

  %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46)

  %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46)

  %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46)

  %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46)

  %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46)

  %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46)

  %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46)

  %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46)

  return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)

}

alias -l fazlaise {

  unset %y | unset %w

  var %i = $hfind(toplist,$1,0,w).data

  while (%i) {

    %y = $hfind(toplist,$1,%i,w).data

    %w = %y %w

    dec %i

  }

  return $replace($sorttok(%w,32,a),$chr(32),$chr(44))

}

Cevap: txt kayıt ve okuma ile ilgili sorun...

buda tmm hocam elinize sağlık birşey daha lazım oldu
şöyle anlatayım txt içerisindeki

madrak 500
murat 600
lefkefb 799

olan değerleri !sifirla dediğimde bütün satırlardaki 2. değerleri 100 yapmasını istiyorum nasıl yapabiliriz?
!sifirla yapıldığında
madrak 100
murat 100
lefkefb 100
gibi olmasını istiyorum yani bütün satırların.

Cevap: txt kayıt ve okuma ile ilgili sorun...

Kod:

if $1 == !sıfırla { sıfırla }

Kod:

alias sıfırla {

  var %x = 1,%t = $lines(dosya.txt)

  while (%x <= %t) {

    hadd -m aaa $gettok($read(dosya.txt,%x),1,32) 100

    inc %x 1

  }

  write -c dosya.txt

  var %x = 1,%t = $hget(aaa,0).data

  while (%x <= %t) {

    write dosya.txt $hget(aaa,%x).item $hget(aaa,%x).data

    inc %x 1

  }

  .hfree -sw aaa

  msg #kanal data sıfırlandı

}

bide şu isteklerinizi taksit taksit söylemeseniz çok güzel olacak.

Cevap: txt kayıt ve okuma ile ilgili sorun...

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 689370)

Kod:

if $1 == !top10 { aktar }

ve top10 listesini çıkartacak kod;

Kod:

alias aktar {

  if $hget(toplist) { .hfree -sw toplist }

  var %x = 1,%t = $lines(dosya.txt)

  if !$hget(toplist) { hmake toplist }

  while (%x <= %t) {

    .hadd toplist $gettok($read(dosya.txt,%x),1,32) $gettok($read(dosya.txt,%x),2,32)

    inc %x 1

  }

  msg #kanal $toplist

}

alias toplist {

  hsave -o toplist $qt($+($mdir,toplist.data))

  .hfree -sw toplist | hmake toplist | hload toplist $qt($+($mdir,toplist.data))

  if (!$hget(top10puan)) { hmake top10puan }

  var %xc = $hget(toplist,0).data

  while %xc {

    set %top10puan $addtok(%top10puan,$hget(toplist,%xc).data,46)

    dec %xc

  }

  var %sira = $sorttok(%top10puan,46,nr)

  var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1

  %1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46)

  %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46)

  %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46)

  %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46)

  %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46)

  %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46)

  %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46)

  %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46)

  %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46)

  %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46)

  return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)

}

alias -l fazlaise {

  unset %y | unset %w

  var %i = $hfind(toplist,$1,0,w).data

  while (%i) {

    %y = $hfind(toplist,$1,%i,w).data

    %w = %y %w

    dec %i

  }

  return $replace($sorttok(%w,32,a),$chr(32),$chr(44))

}

hocam çok yük oldum sizede ama ilerleyerek yaptığımdan parça parça sormak zorunda kalıyorum kusuruma bakmayın bu sistem çalışıyor fakat birşey oldu ben ayrıyetten kisi.txt içerisinde
murat
madrak
lefkefb
ali

gibi terimler var !top10 dediğimizde kisi.txt içerisinde bulunan kişilerin dosya.txt içerisindeki değerlerini alsın ve listelesin şeklinde değiştirmemiz mümkünmü
yani şöyle dosya.txt içerisinde
fatma 166
var ama kisi.txt de
fatma
yok ise
dosya.txt den fatma nın değerini almasın ve top10 da listelemesin

Cevap: txt kayıt ve okuma ile ilgili sorun...

vay be XcLusive ben senin gibi yetenekli olsaydım bukadar uğraşırmıydım diye kendime soruyorum da açıkçası :D uğraşmazdım galiba ee buda senin farkın. eline sağlık hocam.

Cevap: txt kayıt ve okuma ile ilgili sorun...

alias aktar {

kod vs..

}

kısmını

Kod:

alias aktar {

  if $hget(toplist) { .hfree -sw toplist }

  var %x = 1,%t = $lines(dosya.txt)

  if !$hget(toplist) { hmake toplist }

  while (%x <= %t) {

    if ($read(kisi.txt,w,$+(*,$gettok($read(dosya.txt,%x),1,32),*)) { .hadd toplist $gettok($read(dosya.txt,%x),1,32) $gettok($read(dosya.txt,%x),2,32) }

    inc %x 1

  }

  msg #kanal $toplist

}

şeklinde değiştir

Cevap: txt kayıt ve okuma ile ilgili sorun...

hocam
if ($read(kisi.txt,w,$+(*,$gettok($read(dosya.txt,%x) ,1,32),*)) { .hadd toplist $gettok($read(dosya.txt,%x),1,32) $gettok($read(dosya.txt,%x),2,32) }

bu satırda hata alıyorum kendi başıma çözemedim birkezdaha yardımcı olurmusun sadece kisi.txt içerisinde bulunan isimleri top10 listesinde listelesin istiyorum yanlış anlaşılmıyım o yüzden tekrar belirteyim istedim

Cevap: txt kayıt ve okuma ile ilgili sorun...

Kod:

if ($read(kisi.txt,w,$+(*,$gettok($read(dosya.txt,%x) ,1,32),*))) { .hadd toplist $gettok($read(dosya.txt,%x),1,32) $gettok($read(dosya.txt,%x),2,32) }

1 tane parantez unutmuşum kapatmak için :)

Cevap: txt kayıt ve okuma ile ilgili sorun...

Allah razı olsun efendim çok teşekkür edeiyorum

Cevap: txt kayıt ve okuma ile ilgili sorun...

tekrar merhabalar.
şimdi şöyle anlatayım !yolla dedim diye düşünelim ben !yolla dediğim zaman ben nickleri bi komut ile alıp bu 10 kişiye herhangi bi msjı yollattırıyorum fakat aynı anda çok fazla msg yolladığım için irc buna izin vermiyor bunların arasına sorun yaşatmicak bi timer ekleyebilirmiyiz acaba? hem seri olacak hemde sıkıntı yaşatmicak hepsine yollicak nasıl yaparız efendim?
msg nick1 mesaj
msg nick2 mesaj
msg nick3 mesaj
msg nick4 mesaj
msg nick5 mesaj
msg nick6 mesaj
msg nick7 mesaj
msg nick8 mesaj
msg nick9 mesaj
msg nick10 mesaj