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

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

- - Çözüldü txt satır okutma (https://www.ircforumlari.net/mirc-scripting-sorunlari/494891-txt-satir-okutma.html)

Cevap: txt satır okutma

Alıntı:

kheldor Nickli Üyeden Alıntı (Mesaj 1041210246)

Ghost tsk ederım ancak. topic.txt icindeki tum msjları kanala yansıtıyor. Sadece topic.txt içindeki son eklenen satırı yazsın istiyorum. Teşekkürler.

Örnek:

!topic 7 eylül günü sonucları a nicki online b yok
!topic 8 eylül toplantı kararlastırılacak.

!oku dediğimde son eklediğim satır 8 eylül toplantı kararlastırılacak yazsın kanala.

Buyur;

Kod:

on *:text:*:#:{ if $1 == !oku { msg # $read(topic.txt,$lines(topic.txt)) } }

Cevap: txt satır okutma

Sanırım bir yerde hata yaptım. Kodu ekledım. Ancak 1 satır cıkartıyor. yani

!topic merhaba nasılsınız benım adım hakan
!topic selam hava cok guzel bugun

seklinde eklediğim mesaj

!oku dediğimde son mesaj olan selam hava cok guzel bugun e ait sadece

SELAM cıkmakta mesajın devamı yok.

[20:57:16] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> !topic merhaba nasılsınız benım adım hakan
[20:57:16] * BiTTuRK Topici Değişerek 'merhaba nasılsınız benım adım hakan Yaptı'
[20:57:22] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> !topic selam hava cok guzel bugun
[20:57:22] * BiTTuRK Topici Değişerek 'selam hava cok guzel bugun Yaptı'
[20:57:23] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> !oku
[20:57:23] <@BiTTuRK> selam

Ek olarak:

on *:TEXT:*!topic*:#:{
if !$count($nick(#,$nick).pnick,@,&) { msg # 4Topic 2yazabilmek için 4@p olmanız 2gereklidir. | return }
if $1 == !topic { write topix.txt $2
topic $chan $2 $3- }
}

Şeklinde !topic mesaj1 mesaj2 mesaj3 seklinde yazdığımda
örnek:

[21:12:42] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> !topic show tv adını feriha emir hello - atv hd huzur arch - atv dvb predator54
[21:12:42] * BiTTuRK Topici Değişerek 'show tv adını feriha emir hello - atv hd huzur arch - atv dvb predator54 Yaptı'

topic.txt icine sadece show yazıyor mesajın geri kalanı yok :(

Özetle yazıcak olursam:

!topic mesaj seklinde yazdığım verilerin tamamının topic.txt icine yazılması ve !oku dediğimde topic.txt icine yazılan en son mesajın kanala yansıtılması hepsi bu. Yardımların için şimdiden çok teşekkür ederim.
Saygılarımla

Cevap: txt satır okutma

Kod:

on *:TEXT:*!topic*:#:{

  if !$count($nick(#,$nick).pnick,@,&) { msg # 4Topic 2yazabilmek için 4@p olmanız 2gereklidir. | return }

  if $1 == !topic { write topix.txt $2- }

/topic $chan $2- }
 
 
 

on *:text:!oku*:#kanal {

  var %bir = 1 | %iki = $lines(topix.txt)  

  while %bir <= %iki {

    inc %bir | set %sonsatir $calc(%bir - 1)

  }

  /msg $chan $read(topix.txt,%sonsatir) 

}

Cevap: txt satır okutma

Allah razi olsun. evet istediğim kod bu ve sorunsuz çalıştı. Yardımları geçen tüm arkadaşlara teşekkürlerimle.

Cevap: txt satır okutma

Peki @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] usta son eklenen 10 satırı listelemek isteseydik nasıl yapabilirdik.

Cevap: txt satır okutma

Kullanım: !oku sayı

Kod:

on *:text:*:#: {

  if $regex($1,/^[!.](oku)$/Si) {

    var %a = 1 

 while %a <= $iif(!$2,10,$2) { msg # $read(dosya.txt,$calc($lines(dosya.txt) - %a)) | inc %a }

  }

}

Alıntı:

aRofLex Nickli Üyeden Alıntı (Mesaj 1042690734)

Peki @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] usta son eklenen 10 satırı listelemek isteseydik nasıl yapabilirdik.

Cevap: txt satır okutma

Teşekkür ederim ilgi ve alakan için. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: txt satır okutma

!topic Komutu Sadece İlk Kelimeyi Yazıyor — ÇÖZÜM

Sorunun sebebi şu satırda: write topix.txt $2

$2 sadece ikinci kelimeyi alır. Senin ihtiyacın tüm mesajı almaktır. Bunun için $2- kullanman gerekiyor.

on :TEXT:!topic:#:{
if (!$count($nick(#,$nick).pnick,@,&)) {
msg # 4Topic 2yazabilmek için 4@p olmanız 2gereklidir.
return
}
write topix.txt $2-
topic $chan $2-
}
!oku Sadece Son Satırı Okusun —
ÇÖZÜM:Senin verdiğin kod tüm satırları döngüyle okuyor. Sadece son satırı okumak için $read fonksiyonunu aşağıdaki gibi kullanman yeterli:
on *:TEXT:!oku:#:{
var %sonSatir = $read(topix.txt, $lines(topix.txt))
msg # %sonSatir
}

Bu kod:
• topix.txt dosyasındaki satır sayısını öğrenir: $lines(topix.txt)
• Bu satıra karşılık gelen içeriği okur: $read(topix.txt, o satır)
• Kanalda mesaj olarak yollar..
Her iki kod birbirine uyumludur. Artık !topic ile ne yazarsan yaz, tamamı topix.txt’ye eklenir ve !oku ile son satır düzgün şekilde çağrılır.

Cevap: txt satır okutma

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041165450)

Sanırım istedigin kod bu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

alias oku {

  msg $active $regsubex($read(sistem/4.txt),/(^| )(.)/g,\1 $+(Ctrl+K,$rand(1,15))) 

}

Bu codeyi kullandığımda kelimelerin baş harfleri çıkmıyor. Nedeni nedir acaba ?

Cevap: txt satır okutma

Kod:

alias oku { msg $active $regsubex($read(dosya.txt),/(^|[[:space:]])(.)/g,$+($chr(3),$rand(1,99)) \2) }

mirc 6,35 kullanıyosan 1,99 kısmını 1,15 olarak değiştir. son sürüm kullanıyosan kalsın.