Forum: TCL Scriptler
29 Haziran 2016, 17:34
|
Cevaplar: 0
Görüntüleme: 1,742 Soz Botuna !sozekle komutu eklemek
set dosyayolu "sozler.txt"
bind pub - !sozekle sozler
proc sozler {n u h c a} {
global dosyayolu
if { $a != "" } {
set soz [open $dosyayolu a]
puts $soz $a
close $soz
|