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