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/)
-   -   Çözüldü txt satır okutma (https://www.ircforumlari.net/mirc-scripting-sorunlari/494891-txt-satir-okutma.html)

LineS 10 Temmuz 2012 21:44
txt satır okutma
 
selam arkadaslar bir kod yapmak ıstedım yapamadım

Alıntı:

alias vb {
var %l = 1
var %gg tokenize 32 $read(sistem\4.txt)
var %g $calc($numtok(%gg,32) - 2)
while %l <= %g { %gg
echo -a  $+ $rand(3,7) $*
inc %l
}
}

yapmak istediğim txt dosyasından rastgele bır satır secip okutmak okurken her kelimeyi farklı renkte okusun istedım ama olmadı yardım edermısınız

Toprak 10 Temmuz 2012 21:51
Cevap: txt satır okutma
 
Buyrun;

Kod:
alias oku {
  msg $active $+(CTRL+K Koyunuz,$rand(1,15),$read(sistem/4.txt))
}

LineS 10 Temmuz 2012 22:01
Cevap: txt satır okutma
 
$rand(3,7) $read(sistem\4.txt) gibi bende yapabilirdim satırdaki her kelimeyi demiştim sanırım dikkatinizden kactı

Toprak 10 Temmuz 2012 22:06
Cevap: txt satır okutma
 
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)))
}

angry1 10 Temmuz 2012 22:38
Cevap: txt satır okutma
 
merhaba arkadaslar txt adında bır konu bende tekrar exstra bır konu acmak istemedim

bir kode ihtıyacım var

dosyaadı.txt içerisinde isimler mevcut alt alta
ali*
*mehmet*
*hasan
gibi şimdi yapmak istediğimiz sey su mumkunse tabıkı
!ekle dediğimde
txt dosyasındakı isimleri /os SQLINE add txtdosyası yasaklı

seklınde ekleyecek yanı dosyada ne sekılde eklıyse wildcard kullanılmıs ahmet* ali?an *hasan* aynen dosyadakı halıyle SQLINE eklettirmek istıyorum


komut kullanımı / operserv SQLINE add nick sebeb

ilqilenırsenız sevınıırm

Med Cezir 10 Temmuz 2012 23:17
Cevap: txt satır okutma
 
!ekle komutu ile bota eklettireceksen
Kod:
on *:text:*:#kanal: {
  if $1 == !ekle {
      var %mdczr 1
      while %mdczr <= $lines(nickler.txt) {
        /.operserv sqline add $read(nickler.txt,%mdczr) Sebep
        inc %mdczr
      }
    }
}
!ekle komutu ile kendin eklemeyi yapacaksan
Kod:
on *:input:#kanal: {
  if $1 == !ekle {
      var %mdczr 1
      while %mdczr <= $lines(nickler.txt) {
        /.operserv sqline add $read(nickler.txt,%mdczr) Sebep
        inc %mdczr
      }
    }
}

CesuryureK 10 Temmuz 2012 23:20
Cevap: txt satır okutma
 
alias sekle { var %i = 1, %t = $lines(dosyaadi.txt) | while (%i <= %t) { operserv sqline add $read(dosyaadi.txt,%i) | inc %i } }

/sekle komutunu yaptığında dosyaadi.txt dosyasındaki nickleri sqline listesine otomatikmen ekler.

kheldor 07 Eylül 2012 19:20
Cevap: txt satır okutma
 
on *:text:*:#kanal: {
if $1 == !oku {
var %mdczr 1
while %mdczr <= $lines(topix.txt) {
/msg #btrg $read(topix.txt,%mdczr)
inc %mdczr
}
}
}


Arkadaşlar: !oku dediğimde topix.txt içinde eklenen son satırı okuyup kanala yansıtıcak. Ancak yukarıdaki kod ile !oku dediğimde
topix.txt icindeki tüm satırları pasteliyor. Ben sadece topix.txt içinde son eklenen satırı listeletmek istiyorum.

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- }
}

Topic eklemede sıkıntı şu !topic merhaba ben geldim nasılsınız.yazdığımda topix.txt içine sadece Merhaba kelimesini alıyor. ben geldim 2 ve 3 kelimeler topix.txt içinde çıkmamaktadır.

Haliyle !oku dediğimde tek satırı almaktadır.

Topic eklemek için topix.txt 'ye !topic mesajınız seklinde yazdırıyorum.
!oku dediğimde son eklenen !topic mesajını kanala yazsın istiyorum.
Saygılar.

Toprak 07 Eylül 2012 20:02
Cevap: txt satır okutma
 
Buyur;

Kod:
on *:text:*:#:{
  if $1 == !topic {
    if !$count($nick(#,$nick).pnick,@,&) { msg # 4Topic 2yazabilmek için 4@p olmanız 2gereklidir. | return }
    if !$2 { msg # Lütfen Topic Mesajı Belirtiniz. | return }
    if !$read(topic.txt,w,$2-) { write topic.txt $2- }
    topic # $2-
  }
  if $1 == !oku { var %g = 1 | while %g <= $lines(topic.txt) { msg # $read(topic.txt,%g) | inc %g } }
}

kheldor 07 Eylül 2012 20:09
Cevap: txt satır okutma
 
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.

Toprak 07 Eylül 2012 20:26
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)) } }

kheldor 07 Eylül 2012 20:48
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

Feragat 08 Eylül 2012 00:44
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)
}

kheldor 08 Eylül 2012 01:52
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.

aRmoR 12 Haziran 2022 12:36
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.

YouMyCure 13 Haziran 2022 16:09
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.

aRmoR 13 Haziran 2022 16:33
Cevap: txt satır okutma
 
Teşekkür ederim ilgi ve alakan için. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Aybarss 05 Mayıs 2025 16:22
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.

Comanche 08 Mayıs 2025 11:47
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 ?

XcLusive 08 Mayıs 2025 12:09
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.

Comanche 08 Mayıs 2025 12:44
Cevap: txt satır okutma
 
çok tşkler....


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk