【文件属性】：
文件名称：控制结构--循环续-tcl脚本入门
文件大小：168KB
文件格式：PPT
更新时间：2021-04-25 00:10:25
tcl 脚本 入门
控制结构--循环（续）
while 循环
while { test_condition } {
body;
}
set x 0
while {$x<10} {
puts "x is $x"
incr x
}
在实际程序中，while 用到较多的地方是处理文件，
set fpIn [open $FileName r ]
while { [eof $fpIn ] != 1 } {
set CurLine [gets $fpIn ]
if { $CurLine == “” } {
continue
}
. . .
}