如何检查字符串是否为空

Question

我需要检查一个字符串（输入框中的用户输入）是否为空，并在按下 "Play" 按钮后根据该条件执行一些操作。 这是我的脚本：

entry .eInput -width 50 -relief sunken -justify center -textvariable Input
button .bAction  -text "Play" -width 30 -height 5 -activebackground green -font "-12" 

bind .bAction <1> {
 if {$Input ne ""}
  { puts "string is not empty"}
 else { puts "string is empty"}
                  }

但是当我按下 "Play" 按钮时，出现以下错误：

wrong # args: no script following "$Input ne """ argument
wrong # args: no script following "$Input ne """ argument
    while executing
"if {$Input ne ""}"
    (command bound to event)

知道如何解决吗？

Answer 1

问题是您没有向 if

传递足够的参数

if {$Input ne ""}

无效。在 Tcl 命令中以换行符结尾。

尝试使用

if {$Input ne ""} then {
    puts "string is not empty"
} else {
    puts "string is empty"
}