Tekil Mesaj gösterimi
Alt 22 Haziran 2009, 01:22   #1
Çevrimdışı
akkaya
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tcl Satır okutma Yardım




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


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan sohbet odaları