Hi Dai

是否可以在linux console下使用對話框?
譬如執行tcl script檔時會先要求輸入使用者名稱, 然後在screen print "Hi Terry"

對話框是不行的，但是可以用gets命令，由console裡請使用者輸入資料
ex.

puts -nonewline "請輸入姓名:"
gets stdin name
puts $name

Linux Console 上的對話框可以考慮使用 Dialog

不好意思
我又來問問題了

我想做類似oo可以呼叫的傳遞參數
裡面傳進去的參數並不是拿來當值用
而是繼續當參數使用
但我想拿到 當參數使用後的值
這有解嗎？

例：
proc prarameter {abc def} {
set $abc{$def} 1
puts "$abc{$def}= $abc{$def}的值"
﹂==>我要 1這個值
}
但我要怎麼取到這個1的值呢？

經高人指點 解出來了
用eval指令去解決

eval "set $abc\($def\) 1"
eval "puts \" $abc\($def\) = \$$abc\($def\) \""

Hi Dai,
請問如何使用ttk:notebook 的方法,讓serial console的訊息秀出來,
就像是ezdit 左下框框的顯示那樣?
我是有好幾個tcl檔案,勾選到的button要依序顯示出來,
但一直都沒有成功,請dai幫忙指引,謝謝

Hi shawn.chen

看起來你要的功能是，傳陣列及索引到程序裡，

請參考下面的程式


proc test {arrName key} {
upvar $arrName arr2
set arr2($key) 1
puts "arr2($key)=$arr2($key)"
}

array set arr [list dai 1 ccu 2 jky 3]

test arr dai

Hi 幾米

ttk::notebook只能用來管裡切換頁面的功能，他本身並不具備有console的功能，也就是說你可能需要用text先自己寫console(包含輸入輸出的功能)，然後再把你用text寫出來的console嵌到notebook的頁籤裡。

另外 "我是有好幾個tcl檔案,勾選到的button要依序顯示出來" 這個...我抓不太到你想要表達的功能，要請你多描述一點。

thanks for dai,
1.那怎麼把log導到一個text(包含輸入輸出的功能),然後再把text寫出來的console嵌到notebook的頁籤裡?我真的不懂@@
2.我使用一些checkbutton,跑不同的script,如何跑完一個接著一個後,consol訊息仍然會顯在notebook的頁籤裡,就像ezdit一樣。

Hi 幾米

notebook的用法這邊的教學文件有
32.TK - 分頁框 (notebook)
http://blog.got7.org/2010/01/32tk-notebook.html

text的用法請參考
http://www.tcl.tk/man/tcl8.5/TkCmd/text.htm
#以下例子 建立名為 .t 的視窗元建text , 印出Hello
pack [text .t]
.t insert end "Hello"

要嵌到notebook裡只要把它加到notebook裡就好了
pack [ttk::notebook .nb]
text .nb.t
.nb add .nb.t -text "page 1"

如果你要顯示的是script執行的log,可以把印字的部分寫在scipt裡,這樣執行時就能看到了

如果是要console的功能
請參考ezdit的source code
採用tkcon這個套件,這部份我還沒看懂 orz

hi 幾米

1.

Tcl/Tk裡沒有功能可以像linux命令的「>」一樣把puts的結果「導入」text widget(我也沒看過其它的程式有這樣的功能)，而是必需要使用text widget的insert命令才可以把文字「插進文字方塊(text)」，像這樣:

ttk::notebook .nb
pack .nb -expand 1 -fill both

text .nb.t
.nb.t insert end "你要插進文字方塊的文字"

.nb add .nb.t -text "Console"

2.

幾米....我真的不太懂要怎麼用checkbutton跑script?? 是指勾選到某一個checkbutton後就自動執行對應的某個script嗎?

Dai大,
因為剛碰Tcl,所以很多都不懂!
能在Google大神的協助下,找到Dai大的教學,真是太開心了!
所以就照著教學的程式一步一步學,可是到了2.5.1的問安程式時,出現問題了!
視窗有秀出來,文字也像你敘述的都出現了,可是當我輸入變數的值(name)後,在"執行"的視窗內並沒有出現任何反應, why?就好像是button內的 -command 沒有執行puts的動作
我是在window的OS上run.麻煩你解惑一下

HI 伊凡,

你感覺沒有任何反應是因為，puts 的功能是把 文字串 輸出到 「console」 也就是「命令提示字元」

所以你會感覺不到任何反應~

你可以在命令提示字元，用類似下面的命令執行程式 就會出現看到puts的輸出

C:\> tclsh.exe 2.5.1.tcl (假設你的程式放在c:\，然後確定你的tcl直譯器有在系統的PATH搜尋路徑裡)

祝你成功

這console是不是在IDE的介面下才會出現呢?puts的功能不是就是在命令提示後輸出字串嗎?(教學檔範例一), 所以不是應該在windows的命令提示視窗中就應該出現程式結果嗎?
我沒有安裝ezdit!但是後來我有試出來,但是我有點無法理解....XD,我把我試出來的過程說明如下:
我的console要跳出來,要先進入windows的命令提示(star-->run-->Key in :cmd)
然後先Key in : wish --> console的window才會出現
再 Key in : wish XXX.tcl-->視窗出現 -->把name的變數值輸入後, 再按"Say Hello"的button
這時候console還是不會出現文字,要把視窗關掉,"XXX你好"才會出現!
不好意思,因為我不是資工出身的,所以很多不了解,如果可以的話可以麻煩你幫我釐清一下怎麼回事嗎?
謝謝你的幫忙^^

Hi 伊凡,

是這樣的 ~ 在Windows下wish有自己的console，所以如果你用wish來啟動xxx.tcl

所有在xxx.tcl裡用puts輸出的內容都會跑到wish自己的console而不是windows的「命令提示指元」

在這樣的情況下 你可以在程式的開頭加一行

console show

這樣wish內建的console就會馬上反應出puts執行的結果

若你想要把puts的結果顯示在「命令提示字元上」 就需要用tclsh來執行程式

在這種情況下，你只要有用到Tk的功能(圖形介面)就需要在程式的開頭加上一行

package require Tk

然後再用下面的方式 啟動程式

C:\> tclsh xxx.tcl

Dai大,
太感謝你了~~~~兩種方法都成功了!!

不過我想再繼續發問,希望你不會嫌煩!因為只有問,才能越清楚明白

希望我可以繼續站在巨人肩膀上學習~~~^^

1.就我從Dai大你的教學檔一開始的認知, tclsh或wish都是一個程式,用來執行程式編輯者編輯出的程式(.txt檔),而tclsh應該主要就是文字處理, 而wish應該就是用來處理圖形的(因為在教學檔第一章,我check過error message,看起來好像就是tclsh讀不懂button這個命令). 我的理解是不是正確的呢?

2.既然如此,那wish不就是"圖形介面"了嗎?那又跟Tk有什麼不同?是不是tclsh要用到圖形的功能(Tk),就必須先執行"package require Tk"這個命令,而wish要看到類似命令提示字元的視窗(console),就必須下"console show"這個命令?
簡單的說其實tclsh和wish就是兩個軟體,但是tclsh要有圖形的功能就得另外下命令,而wish想要有類似命令提示字元的視窗,也是要另外下命令.

真的很不好意思,我提了這兩個問題也許根本在問題上就有錯誤,希望你可以指正一下!真的很謝謝你熱心的回答我的問題, 我對Tcl真的還滿有興趣的,雖然剛起步,也沒辦法馬上感受到它得好處,不果我想我會再繼續學習下去的!可能就要再繼續麻煩你囉^^

Dai 大
感謝你熱心幫忙!真是太感謝你了!站在巨人肩膀上學習真是幸福^^
另外我還是有些問題想請教....希望可以指點迷津
1.tclsh & wish的差異是什麼?
2. Tk & wish又是怎麼回事?看起來都是圖形介面
3.是不是如果要用tclsh又有圖形介面就必須把Tk給啟動?(命令提示字元就是windows本身的)
4.是不是如果要用wish又有命令提示字元就必須把console給啟動?(當然這個console是wish自己獨立出來的)
如果我上面的問題有點奇怪或是牛頭不對馬嘴,麻煩你指正一下!
我現在對Tcl滿有興趣的,雖然還無法感受到他的好處,但是我會持續學下去的,所以可能就要繼續麻煩Dai大囉^^, Thanks a lot!!

不好意思，我在設定變數名稱過程中，設定了清單名稱list$c，c的內容執會改變
然而在取出清單內容時，如 : lrange $list$c 0 3，當c = 3
卻無法讀到真正lsit3的內容，想請問Dai大大，有沒有其他種命名的方式:D

改用陣列就好了，像這樣:

set l(3) [list a b c]
set i 3
lrange $l($i) 0 2

試著做以下..
puts -nonewline "請輸入姓名:"
gets stdin name
puts $name

tclsh 執行結果:
畫面一直沒反應,直到key 123 後,
畫面顯示如下,
123
請輸入姓名123

請教,有哪個地方疏忽了嗎?
謝謝!!

Dear Dai~請問如下列兩行程式，若使用puts我該如何輸出Hello呢?thanks.
set aaa "123"
set bbb_$aaa "Hello"

這樣就可以了

puts [set bbb_$aaa]

Dai~我了解，不過想再請問一下，若此種變數(Ex:bbb_$aaa)的設定方式若想使用於下列程式碼，我又該如何宣告-values和-textvariable的部分呢?讓combobox可以抓到正確的值，thanks.
proc run {w opt}
set ::ws_latest_$opt "linux34"
set ::ws_list_$opt [exec ypcat hosts | awk {/\t/ {print $2}} | grep linux | sort -u]
...
ttk::combobox $w.f1.ws.box -width 12 -state readonly -values ?::ws_list_$opt? -textvariable ?$::ws_latest_$opt?
...
}
run $w "ant"

像這樣:

-values [set ::ws_list_$opt] -textvariable ::ws_latest_$opt

感謝dai, 讓我能加快學習的腳步, 萬分感謝!!

Dear Dai
想使用grep來作條件式判斷同一個檔案內要過濾的字串如下:
case 1.
assign bist_in_c10[0] = bist_in_a00[0]
case 2.
//assifn_fix assign bist_in_c10[0] = bist_in_a00[0]
上述有兩點case，分別為case 1 & case 2，
只想要過濾case 1.是否存在此內容，而非case 2.，
請問要如何grep "assign "不要同時都出現case 1 & case 2的內容，
得到最後的結果assign bist_in_c10[0] = bist_in_a00[0]
謝謝

Hi 版主,
我是初學者, 我想請問一個問題請你指導一下.
我的code如下
set x(Dir) "$windowsr/bin"
這x變數的路徑會在程式執行完畢CREATE出來還是什麼時間點
因為我執行完畢時去windows下找bin這個資料夾去找不到, 所以請你教導一下 謝謝

Dear Dai:
我是初學者，最近想用Tcl/tk寫tool，但以下的程式會出現以下錯誤，但看似有執行成功我要的結果
找了很久不曉得這個錯誤應該如何修正

package require Tk
console show
entry .txtIPMI -textvariable ::ip
button .exec -text "Execute" -command {
set cmd {D:\utility\windows_ipmitool\ipmitool}
exec $cmd -H $::ip -U admin -P admin mc info
#cd D:\utility\windows_ipmitool
#set var [ipmitool -H $::ip -U admin -P admin]
#exec {*}$var sdr list
}
pack .txtIPMI .exec


錯誤：
0 [main] ipmitool 7988 tty_list::allocate: No tty allocated
while executing
"exec $cmd -H $::ip -U admin -P admin mc info"
invoked from within
".exec invoke"
("uplevel" body line 1)
invoked from within
"uplevel #0 [list $w invoke]"
(procedure "tk::ButtonUp" line 24)
invoked from within
"tk::ButtonUp .exec"
(command bound to event)

問一個簡單的變數問題，我要如何這樣使用？

code:
set i 0
set date$i 123
puts $date$i

error:
can't read "date": no such variable
while executing
"puts $date$i"

補充一下，沒有用到array的原因是因為我外面還需要一個array，但似乎tcl沒辦法data($i)($j)，這樣使用。

要改成 puts [set date$i]
array的話要改成 :
set day "date${i}"
puts [set ${day}($j)]

卡恩的問題看可不可以改成:
catch {exec $cmd -H $::ip -U admin -P admin mc info}