TCL学习笔记(Tcl_Tk入门经典(第2版))

流程控制

if 命令

if {$x<0}{

   '''
} elseif {$x == 0} {
    ...
} elseif {$x == 1} {
   ...
} else {
  ...
}

注意:每一个左大括号都必须在它的的前一个单词的同一行,因为换行符就是命令分隔符。

 

循环命令:while、for、each

set b {}
set i [expr {[llength $a] - 1}]
while {$i >= 0}{
    lappend b {lindex $a $i}
    incr i -1
}
set b {}
for {set i [expr {[llength $s] - 1 }]} {$i >= 0} {incr i -1} {
    lappend b [lindex $a $i]
}

foreach 命令遍历一个列表中的所有元素。下面这段脚本实现了倒转列表的一个实现方式。

set b {}
foreach i $a {
    set b [linsert $b 0 $i]
}

 

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页