tcl脚本while的问题

IC_GUZZLE · 发表于 2021-4-10 11:58:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

while {[gets $rfile line] != -1} {
if {regexp $line match [design_name]}
{
puts $wfile $line
}
}

求助大侠们，这个语句哪儿有错呢。我每次跑都说我while那里有问题，要么报 extra characters after close-brace，我把右括号换行就报args: should be "while test command" while executing .....我搞不懂了。求大侠们相助。

IC_GUZZLE · 发表于 2021-4-10 14:23:00

已解决，while后面的 }{之间要有空格隔开 } {

489315174 · 发表于 2021-4-10 14:28:42

if 最后面加上\

IC_GUZZLE · 发表于 2021-4-10 18:43:15

489315174 发表于 2021-4-10 14:28
if 最后面加上\

我写的时候写在一行的，但是实在不知道哪儿错了就改来改去了，这里的确是错的，要么缩回去要么加换行符

[求助] tcl脚本while的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

站长推荐 /1