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

akkaya · 22 Haziran 2009, 01:22

Arkadaşlar aşağıdaki kod bir txt dosyasını ilk cümleden itibaren sırayla okutmaya yarıyor.

buna sadece istediğmiz bir satırı okutacak şekilde veya bir html kod belgesinde ki iki html kodu arasında mevcut olan anlamlı bir kelimeyi okutma işlevini nasıl ayarlayabiliriz. örneğin:
18. satırda mevcut olan <tdalign="center" height="75" colspan="2">
75 değerini okutmak istiyorum. bilgisi olan arkadaşlar yardım ederse çok sevinirim.

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

 
set oku "dosya.txt"
set kanal "#yardım"
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]}
putserv "PRIVMSG $kanal :$kuraltext"
}
catch {close $kuralfile}    
}
}

SaW · 22 Haziran 2009, 01:56

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

Arkadaşlar aşağıdaki kod bir txt dosyasını ilk cümleden itibaren sırayla okutmaya yarıyor.

buna sadece istediğmiz bir satırı okutacak şekilde veya bir html kod belgesinde ki iki html kodu arasında mevcut olan anlamlı bir kelimeyi okutma işlevini nasıl ayarlayabiliriz. örneğin:
18. satırda mevcut olan <tdalign="center" height="75" colspan="2">
75 değerini okutmak istiyorum. bilgisi olan arkadaşlar yardım ederse çok sevinirim.

Bu tarz durumlarda çoğunlukla regexp kullanırız, daha basit ifadeler için ise string match komutunu kullanırız, bazen de her ikisini iç içe kullandığımız da olur. Eğer okutacağımız satır numarası belliyse daha farklı bir yöntem de izlenebilir. Yani hangisi daha çok işe yarayacaksa o esnada o kullanılır. O yüzden genel olarak "şuraya şunu yazarak okutursun" demek olmaz. Somut bir örnek olsa burada şunu kullanabilirsin diyebiliriz. Yapman gereken başka tcl'leri inceleyerek nerede nasıl yapıldığını görmen. Verdiğin örneği ise şu şekilde yaptırabilirsin.

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

 
set oku "dosya.txt"
set kanal "#yardım"
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
 if {[info exists deger]} {
  putserv "PRIVMSG $kanal :$deger"
}
}
catch {close $kuralfile}    
}
}

akkaya · 22 Haziran 2009, 20:28

örnek için çok teşekkürler, bu kodu geliştirmek için havadurumu.tcl sini de inceledim fakat bu konu beni iyice aşmaya başladı. aynı dosyadaki ikinci bir kelimeyi daha getireyim dedim fakat hiç bir şekilde olmadı çok acemiyim. irc script ile de uğraştım fakat bu regex işi çok derin bir boyut ki altından kalkamayacağım. irc scriptde örneklerin çok anlatımların fazla olması istediğimi forumda kolaylıkla bulmam beni fazla uğraştırmıyordu..

Alıntı:

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]} {
putserv "PRIVMSG $kanal 1.ölçü:$dger2 2.ölçü:$dgr2"
}
}
catch {close $kuralfile}
}
}

BuCaLI · 22 Haziran 2009, 20:33

1.ölçü:$dger2 demişsin fakat $dger2 diye bi şey yok ortada orda hata vermiş ve msg yi yollamamış olabilir.

akkaya · 22 Haziran 2009, 20:42

Alıntı:

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]} {
putserv "PRIVMSG $kanal 1.ölçü:$deger 2.ölçü:$dgr2"
}
}
catch {close $kuralfile}
}
}

pardon bir kaç şey denemiştim de o bölüm öyle kalmış asıl bu koddur çalışmıyor çalışsaydı buna göre kodu devam ettirecektim

BuCaLI · 22 Haziran 2009, 20:56

if {[info exists deger]} {
putserv "PRIVMSG $kanal 1.ölçü:$deger 2.ölçü:$dgr2"
}

bölümüne göre $deger değişkenide varken göstermek istiyosun. Acaba aynı dosyada $deger içinde bi satır mevcutmu. yoksa sadece $dgr2 mevcutsa o kısmı komple silip sadece ;

putserv "PRIVMSG $kanal 2.ölçü:$dgr2"

şeklinde kullanarak dene. [info exists deger] gibi bi kullanımında zaten ne işe yaradığını anladığını düşünerek her iki değişken içinde ayrı koşullarla msg yollatabilirsin.

akkaya · 22 Haziran 2009, 22:35

ilginiz için teşekkür ederim. 1 satırı güzel okuyor herhangi ikinci değeri okutma da sıkıntı var havadurumu.tcl si üzerinde kafa yorup deneyeyim. nebilimben arkadaşımızın verdiği kod çalışıyor.

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.

akkaya · 23 Haziran 2009, 18:22

vermiş olduğunuz örnekle epey bir yol katettim bir yerde takıldım. sanırım bu sorunda çok basit ama bulamadım. Benzer metinlerde sıkıntı var mesla ahmet kelimesini okumak istediğimiz zaman vermiş olunan örnek 183 sayısını da görebiliyor.

<td class="td1">44</td>
<td>ahmet</td>
<td>183</td>

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

regexp -- {<td>(.*?)</td>} $kuraltext - deger

bunu tcl içerisinde yazmam halinde metin içerisinde buna benzerlik gösteren başka bir kelimeyi getiriyor. 1. satırdaki nin sonuna bir bağlantı eklemeliyim ki 2 satıra bağllantı kurabileyim. yani

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

regexp -- {<td.class=\"td1\">44</td>     <td>(.*?)</td>} $kuraltext - deger

iki satırı birleştirebilen bir sihirli kelime lazım bu üstteki boşluğa.

akkaya · 01 Temmuz 2009, 15:39

arkadaşlar varmı bunu yapabilecek

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
txt satır okutma	LineS	mIRC Scripting Sorunları	16	13 Haziran 2022 16:33
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
Okutma Tcl Değişiklik Yardım	KnOuCK	Eggdrop, NeoStats, BNC	2	29 Aralık 2007 16:16

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

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.