Tcl Satır okutma Yardım - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SaW · 23 Haziran 2009, 01:02

Aslında burada mantık hatası yapıyorsun. Farkındaysan bunu while döngüsü içerisinde almaya çalışıyorsun. Farklı satırlar olduğu için her defasında farklı bir satırı görecektir döngü. O yüzden aynı mesaj içerisinde her ikisini birden veremiyor. Burada yapabileceğin farklı yöntemler var. Mesela kanal mesajını döngü dışına çıkarmak bir çözümdür. ve ya döngü içerisinde iki mesaj verdirebilirsin v.s. v.s.

akkaya Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set oku "dosya.txt"
set kanal "#bilgi"
bind pub - !kural pub:kuralmsg
proc pub:kuralmsg { nick host hand chan text} {
global oku kanal
if {[file exists $oku]} {
set kuralfile [open $oku r]
while {![eof $kuralfile]} {
catch {set kuraltext [gets $kuralfile]}
regexp -- {<tdalign=\"center\".height=\"(.*?)\".colspan=\"2  \ ">} $kuraltext - deger
regexp -- {+.colspan=\"(.*?)\".class=\"thd\">} $kuraltext - dgr2
if {[info exists deger] && [info exists dgr2]} {
putserv "PRIVMSG $kanal 1.ölçü:$deger 2.ölçü:$dgr2"
}
}
catch {close $kuralfile} 
}
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set oku "dosya.txt"
 set kanal "#bilgi"
 bind pub - !kural pub:kuralmsg
 proc pub:kuralmsg { nick host hand chan text} {
 global oku kanal
 if {[file exists $oku]} {
 set kuralfile [open $oku r]
 while {![eof $kuralfile]} {
 catch {set kuraltext [gets $kuralfile]}
 regexp -- {<tdalign=\"center\".height=\"(.*?)\".colspan=\"2  \ ">} $kuraltext - deger
 regexp -- {+.colspan=\"(.*?)\".class=\"thd\">} $kuraltext - dgr2
 }
putserv "PRIVMSG $kanal 1.ölçü:$deger 2.ölçü:$dgr2"
 }
 catch {close $kuralfile} 
 }
 }

örnekler çoğaltılabilir. işine geleni kullanırsın.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çözüldü txt satır okutma	LineS	mIRC Scripting Sorunları	20	08 Mayıs 2025 12:44
hostaki webdeki dosyayı satır satır okuyup satır numarasıyla göstermek	hAte	PHP	0	11 Kasım 2014 05:06
Txt belgesini okutma (yardım)	ciah	mIRC Scripting Sorunları	10	14 Temmuz 2013 16:53
Bota satır okutma	muratt_aziz	mIRC Scripting Sorunları	3	02 Mayıs 2009 01:21
Reklamları Txt den Okutma Yardım	eXchanGe	mIRC Scripting Sorunları	7	07 Kasım 2005 22:07

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.