Dear Dai 大:
我又來問問題了.

在 範例 7-1
set i 0
while {$i < 10} {
button .btn$i -text "按鈕$i" -command "puts $i"
pack .btn$i
incr i
}

請問為什麼 commnad 後面的 puts $i 一定要用 "" 括起來.
如果用 -command { puts $i } 會印出 10. 理由是什麼?
謝謝
Hunt

hi

這是因為Tcl代換規則，產生的特性，使用雙引號的話，在$i的值會在每一次迴圈中被代換成對應的值，但如果用大括號的話，$i的值就只會在按下按鈕時才會被代換成值，也就是說你在按按鈕時其實迴圈早就跑完了，所以你印出來的都是10.

有錯字：
第5行的while條件式會判斷讀案是否讀取完畢
讀案 => 檔案

已修正了，謝謝。

7.4(第二行最後少一個"{")
set sum 0
for {set i 1} {$i < = 100} {incr i}
incr sum $i
}
puts $sum

匿名的朋友 錯誤修正了，謝謝。

Dear Dai 大您好:
感謝您寫的文章,解說加上範例的操作,讓我很容易吸收,今天再練習 7-1 while 範例時,我將範例內容改成以下兩種,就無法運作,想請問是什麼原因造成,可以幫小弟解惑一下嗎?

原始檔如下 範例 7-1
set i 0
while {$i < 10} {
button .btn$i -text "按鈕$i" -command "puts $i"
pack .btn$i
incr i
}

*****
test1
*****
set i 0
while {$i < 10} {
button .btn$i -text "按鈕$i" -command "puts $i" pack .btn$i
incr i
}

*****
test2
*****
set i 0
while {$i < 10} {button .btn$i -text "按鈕$i" -command "puts $i" pack .btn$i incr i }

set i 0
while {$i < 10} {
button .btn$i -text "按鈕$i" -command [subst {
puts $i
pack .btn$i
}]
incr i
}

Dear Dai大 您好:
又來麻煩您了,因為第一次接觸tcl語法,所以我可能有表達不清楚的地方,因為看到while命令的述敍為
while test body我是否可以將語法以一行方式寫完變成右例形式像是 while {test}{body},第一個
大括號內容表示test,第二個大括號內容表示body實際寫完如下:

set i 0
while {$i < 10} {button .btn$i -text "按鈕$i" -command "puts $i" pack .btn$i incr i }

因為原始檔沒有錯是可以執行的,但我將程序改成一行後產生不能執行的狀態,不知原因發生在哪,是因為有迴圈所以需有一定架構,需寫成斷行才能順利產生還是其他問題所引發,這是讓我不解的地方,還請 Dai大 有空的時候幫我開釋一下,謝謝!

抱歉~我誤會你的意思了 ~

如果一行裡面要放多個敘述(命令)，只要每個敘述中間用「分號」隔起來就好了，例如:

set i 0
while {$i < 10} {button .btn$i -text "按鈕$i" -command "puts $i" ; pack .btn$i ; incr i }

Dear Dai大 您好:

謝謝您的回答,問題已解決,因為您的網頁寫得很讓人明瞭,所以我目前每天都會利用一些時間參考您的網頁逐章做一個學習,之後有問題時可能會不時發問,還請您不要覺得麻煩!^^.

ps:謝謝您提供這樣的環境讓大家能夠學習,感恩!

Dear Dai大 您好:
想請問一下 7-11的範例
set i 0
while {$i < 10} {
button .btn$i -text "按鈕$i" -command "puts $i"
pack .btn$i
incr i
}
我想改成 在command 做不只一件事 就舉例來說 按下 按鈕1 會puts 1
但我還想要說 一直累加 看我總共按了幾次按鈕 在按下某按鈕時 也可順便顯示出總共次數
這樣應該要怎麼寫?
我把它改成 command{} 就會有問題 拜託交一下 :)
best regard, Steve.

那就...改成類似這樣

proc foo {i} {
# 所有你要做的事寫在這
}

然後把button改成類似這樣

button .btn$i -text "按鈕$i" -command [list foo $i]

Dear dai大:
ㄜ 謝謝你的回應 不過我大概想做這種感覺
set i 0
set j 0

proc foo {i} {
# 所有你要做的事寫在這
puts "total: $j"
j++
}
#然後把button改成類似這樣
#button .btn$i -text "按鈕$i" -command [list foo $i]

while {$i < 10} {
button .btn$i -text "按鈕$i" -command [list foo $i; "puts $i"]
pack .btn$i
incr i
}
可是這樣有bug 最近才開始學tcl 不太懂要怎麼改?

我j++ 有改成incr j 了

那改成這試試


while {$i < 10} {
button .btn$i -text "按鈕$i" -command [subst {foo $i; "puts $i"}]
pack .btn$i
incr i
}

Dear Dai:
目前接觸不久tcl語法,想請教關於若是我有ijk等等變數,我希望當我i增加一個單位時,下一次為j增加一單位,再下一次為k增加一單位,
for {set i 0.2} {$i<=1} {set i [expr $i+0.2]} {
}
for {set j 0.2} {$i<=1} {set j [expr $j+0.1]} {
}
for {set k 0.2} {$i<=70} {set k [expr $k+5]} {
}
想請教您該如何修改,才能達到我需要的想法,不好意思打擾您了!!

Dear Dai:
目前剛接觸TCL語法不久,想請教您一些問題,由於我的目標式由ijk影響並輸出,假設我有ijk等變數,我希望當i增加一個值之後,下一次為j增加一個單位值,再下一次為k增加一個單位值,依序反覆此動作,想請叫我應該如何修改可以得到上述我需要的變動,感謝您的指導
for {set i 0} {$i < 1} {incr 0.1} {
}
for {set j 0} {$j < 1} {incr 0.1} {
}
for {set k 30} {$j < 70} {incr 5} {
}

不知道有沒有錯錯意，你是想要這樣嗎??

for {set i 0} {$i < 1} {incr 0.1} {
for {set j $i} {$j < 1} {incr 0.1} {
for {set k $j} {$j < 70} {incr 5} {

}
}
}

Dear dai:
感謝您的解答,你的回覆讓我了解其更多的應用,不過我目前的疑惑為另外一個意思,其初始i,j,k這三個變數可以讓我輸出不同值,各有各的參數範圍,故我希望先條動i看出並輸出值,輸出的目標式我已經寫好,下一步為調動j的值再輸出,再下一步為調動k以後的值並輸出,依序反覆的動作可以使我在我所調動的i,j,k之下得到我的輸出值,一個i,j,k值增加的循環,不過希望是以i先增加之後換j再之後換k一直循環到我設的邊界,想請教這在tcl是可以做到的嗎
感謝您的不吝指導,by Bravo.

Dear dai:
感謝您的回覆使我了解到其更多的應用,上述使我了解到額外的應用,但我原意為,其原先有i,j,k三個變數,其每個變數增加時都會影響到其結果, step1.先看i增加一個單位時的結果, step2.當i增加一單位之後換j增加一單位得到其結果, step3.當i和j增加一單位候k增加一單位並得到結果,i>j>k>i>j>k>.....循環到我的上限,想請教老師tcl語法是否可以做到此效果,感謝您的不吝指導 by Bravo.

抱歉!! 有點看不懂你的問題...請問有例子可以說明? 或是實際的問題?

但由你的結果來看 i > j > k > i ....

像是需要用 負量的增量 讓 i j k 一直變小??

是這樣嗎
set i 0
set j 0
set k 30
set ind 0
puts "init:\ti=$i j=$j k=$k"
while {$i<1 || $j<1 || $k<70} {
switch [expr $ind%3] {
"0" {
if {$i<1} {
set i [expr $i+0.1]
puts -nonewline "change i:\t"
puts "i=$i j=$j k=$k"
}
}
"1" {
if {$j<1} {
set j [expr $j+0.1]
puts -nonewline "change j:\t"
puts "i=$i j=$j k=$k"
}
}
"2" {
if {$k<70} {
incr k 5
puts -nonewline "change k:\t"
puts "i=$i j=$j k=$k"
}
}
}
incr ind
}

Dear dai:
老師不好意思 一直都口語話描述好我的問題,目前有三個變數再變動都會影響到我的輸出值,其三個變數我定義為i,j and k,
i的範圍為0~1, j範圍為0~1 ,k範圍為30~70,其各個值都會有不同的輸出值,我希望能將他一次輸出我想要的,
例如:原始值為 i=0, j=0, k=30 ,i跟j的增加量為0.1& k增加量為5,
故下次參數組合為 i=0.1, j=0 ,k=30 (i增加0.1)
再下次參數組合為 i=0.1, j=0.1,k=30 (j增加0.1)
再下次參數組合為 i=0.1, j=0.1,k=35 (k增加5)
再下次參數組合為 i=0.2 ,j=0.1,k=35 (i增加0.1)
........................................

依序是我之前提到i j k 這些變數的循環,目前還沒辦法正確的將其想法以迴圈的方式寫出來,再煩請您指導
感謝匿名的不吝指導, 目前正在測試, 謝謝

了解了，請試試下面的程式:

set cut 0
set vars [list 0 0 30]
set incrs [list 0.1 0.1 5]

while {1} {
lset vars $cut [expr [lindex $vars $cut] + [lindex $incrs $cut]]
set cut [expr [incr cut] %3]
lassign $vars i j k
puts [format "i = %.1f , j = %.1f , k = %d" $i $j $k]
if {$k >= 70} {break}
}

Dear dai :
感謝您的解答, 正在測試其結果

Dai大大你好，我想請問說呀，在foreach指令中，
我想先設定一個清單，然後在將這個清單內的成員一個個依序取出來
ex：
set list [list 1 2 3 4 5]
foreach abc {$list} {
puts $abc
}
但這樣的方式是行不通的= =
我想請問Dai大大說，是不是只能用for迴圈來完成類似這樣的操作
謝謝你:D

哈哈 Dai大大，拍謝拍謝
我看到你上面打的教學了XD
謝謝你:D

DAI你好

最近寫一個回圈可是之後用spawn就無法回到for 回圈
可以請你執導一下嗎
for {set i 1} {$i < 10} {incr i} {
.......
.......
.......
spawn plink $host -ssh
expect "login:" {send "admin\r"}
expect "password:" {send "admin\r exit\r"}
}

不好意思，expect我沒有在用，要看有沒有熱心人士幫忙回答了!!

謝謝

留言好像有問題= =?

修正了，謝謝~