求知 文章 文库 Lib 视频 iPerson 课程 认证 咨询 工具 讲座 Model Center   Code  
会员   
要资料
 
 
 

Tcl 教程
Tcl环境设置
Tcl特殊变量
Tcl基本语法
Tcl命令
Tcl数据类型
Tcl变量
Tcl运算符
Tcl决策
Tcl循环
Tcl数组
Tcl字符串
Tcl列表
Tcl字典
Tcl过程
Tcl包
Tcl命名空间
Tcl文件I/O
Tcl错误处理
Tcl内置函数
Tcl正则表达式
 
 

TCL字典
1040 次浏览
32次  

词典是用于值映射到键的布置。常规字典的语法如下所示。

dict set dictname key value
# or
dict create dictname key1 value1 key2 value2 .. keyn valuen

用于创建字典的一些例子如下所示。

#!/usr/bin/tclsh
dict set colours colour1 red 
puts $colours
dict set colours colour2 green
puts $colours set colours [dict create colour1 "black" colour2 "white"]
puts $colours

当执行上面的代码,产生以下结果:

colour1 red
colour1 red colour2 green
colour1 black colour2 white

字典的大小

用于获取字典的大小语法如下所示。

[dict size dictname]

用于打印的尺寸一个例子如下所示。

#!/usr/bin/tclsh
set colours [dict create colour1 "black" colour2 "white"]
puts [dict size $colours]

当执行上面的代码,产生以下结果:

2

字典迭代

打印键和字典的值一个简单的字典迭代如下图所示。

#!/usr/bin/tclsh
set colours [dict create colour1 "black" colour2 "white"]
foreach item [dict keys $colours] {
set value [dict get $colours $item]
puts $value
}

当执行上面的代码,产生以下结果:

black
white

字典的键值

字典键检索值的语法如下所示。

[dict get $dictname $keyname]

用于键检索值的示例如下面给出。

#!/usr/bin/tclsh
set colours [dict create colour1 "black" colour2 "white"]
set value [dict get $colours colour1]
puts $value

当执行上面的代码,产生以下结果:

black

字典中的所有键

用于检索在字典的所有键的语法如下所示。

[dict keys $dictname]

用于打印所有的键一个例子如下所示。

#!/usr/bin/tclsh
set colours [dict create colour1 "black" colour2 "white"]
set keys [dict keys $colours]
puts $keys

当执行上面的代码,产生以下结果:

colour1 colour2

字典中的所有值

用于检索在字典中的所有值的语法如下所示。

[dict values $dictname]

用于打印的所有值一个例子如下所示。

#!/usr/bin/tclsh
set colours [dict create colour1 "black" colour2 "white"]
set values [dict values $colours]
puts $values

当执行上面的代码,产生以下结果:

black white

关键存在于字典

检查一个键是否存在于字典的语法如下所示。

[dict values $dictname]

用于检查一个键是否存在于字典的一个例子如下所示。

#!/usr/bin/tclsh
set colours [dict create colour1 "black" 
colour2 "white"]
set result [dict exists $colours colour1]
puts $result

当执行上面的代码,产生以下结果:

1

您可以捐助,支持我们的公益事业。

1元 10元 50元





认证码: 验证码,看不清楚?请点击刷新验证码 必填



1040 次浏览
32次
 捐助