tcl判断一个string是否包含另一个string

在TCL语言中，你可以使用内置的`string contains`或`regexp`命令来判断一个字符串是否包含另一个字符串。以下是两种方法：

1. 使用`string contains`：

   if { [string contains $str_to_check $substring] } {
       puts "字符串$str_to_check 包含 $substring"
   } else {
       puts "字符串$str_to_check 不包含 $substring"
   }

这个命令会检查 `$str_to_check` 是否包含 `$substring`，如果包含则返回 true，否则返回 false。

2. 使用正则表达式 `regexp`：

   if { ![regexp -nocase {} $substring $str_to_check] } {
       puts "字符串$str_to_check 包含 $substring"
   } else {
       puts "字符串$str_to_check 不包含 $substring"
   }

`-nocase` 参数表示忽略大小写匹配，如果不指定则会区分大小写。如果正则表达式找到匹配，则返回 false（因为我们需要非匹配），表示包含。