tcl yardım arkadaşlar bi tcl dosyası oluşturup 40 adet txt dosyasını komut ile bu tcl ye okutmak istiyorum yardımcı olur musunuz?aşağıdaki buluduğum kodlar doğru mu veya eklenecek değişecek kodlar var mı? set oku "x.txt" set kanal "#kanal" 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} } } - proc fread {dosya kime} { if {![file exists $dosya]} { putlog "$dosya adinda bir belge bulunamadi" return } set cikti [open $dosya r] set satir [split [read $cikti] \n] catch {close $cikti} set say 0 foreach satir $satir { if {$satir != ""} { puthelp "PRIVMSG $kime :$satir" incr say } } if {$say == 0} { puthelp "PRIVMSG $kime :Mevcut dosya icinde bilgi bulunamadi" return } else { puthelp "PRIVMSG $kime :Liste sonu!" } } - bind pub - !kural kural proc kural {nick uhost hand chan text} { fread scripts/kural.txt $chan } |
Cevap: tcl yardım Toplam 1 Eklenti bulunuyor. veya aşağıdaki şiir.txt olarak yolladığım tcl dosyasını 40 txt dosya okuyacak ve örneğin !oku1 dediğimde 1 nolu txt dosyayı !oku2 dediğimde 2 inci txt yani !okudosyanumarası şekilde düzenleme yapabilecek arkadaşlarımız var mı? |
Cevap: tcl yardım txt uzantılı dosyaların bulunduğu klasorün ismini yaz , kanal adını gir Kullanacağın komut : !oku(numara) Örn :!oku1 , !oku2 PHP- Kodu: |
Cevap: tcl yardım Toplam 1 Eklenti bulunuyor. çok teşekkür ederim rasclon kardeşim --IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:53 -->-> Daha önceki mesaj 20:43 -- [20:54]¿j¿ 10Giriş: 10hikayeci 10( Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ) [20:54]15,15. &2 Mode: 4 ChanServ Mode Değiştirdi:4 +h hikayeci [20:54] <04iBRaHiM> !oku1 dediğimde okumuyor rasclon kardeşim acaba bi yerde hatalı bişey mi yaptım tcl yi bu şekilde uyarladım. |
Cevap: tcl yardım Alıntı:
Bu yukarda verdiğini yaptım ama hatalar aldım aldığım hatalar aşşağıda Not: botu ./eggdrop -nm dosya.conf şeklinde çalıştırdım ve aşşağıdaki mesajlar çıktı. Kod: [19:51] Tcl error [okut]: invalid command name "strlwr" |
Cevap: tcl yardım strlwr ; string tolower Komutunun Kısaltılmışı Olarak , Alltools.tcl İle Kullanılabilir. Alltools.tcl Eggdrop İle Birlikte Gelen, Öntanımlı Scriptlerden Biridir. Ya Yukarıda Kullanmaya Çalıştığınız, Koddaki Tüm strlwr'ları string tolower Olarak Değişmeli Yada Bu Scriptten Evvel Yüklenecek Şekilde, .conf'ta Daha Üst Satırdan Alltools.tcl'yi: source scripts/alltools.tcl Yüklemesini Sağlamalısınız. Not: Eğer Bota Kendinizi Tanıtmışsanız, Bot Bir ...user "Kullanıcı" Dosyası Halihazırda Oluşturmuşsa, Botu -m İle Başlatmanızın Bir Anlamı/Etkisi Yoktur. -m Kullanıcı Dosyası Oluşturmak İçin İlk Kurulumda İş Gören Bir -Seçenektir. |
Cevap: tcl yardım Arkadaşın dediği gibi strlwr kullanımı conf dosyanızda eğer alltools.tcl source edilmişse çalışacaktır. Eğer alltools.tcl source edilmemişse veya silinmiş elinizde bulunmuyorsa Şu komutu : Kod: set txt [lsort [strlwr [glob $::klasor/*.txt]]] Kod: set txt [lsort [string tolower [glob $::klasor/*.txt]]] |
Cevap: tcl yardım botun conf dosyası Alıntı:
Alıntı:
Alıntı:
[22:02] <iBRaHiM> !okut [22:02] <iBRaHiM> !oku [22:02] hikayeci joined #eggdrop. [22:02] <iBRaHiM> !oku1 [22:02] <iBRaHiM> !okut1 |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:37. |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net