语法:tcl语法速查
差别
这里会显示出您选择的修订版和当前版本之间的差别。
| 两侧同时换到之前的修订记录前一修订版后一修订版 | 前一修订版 | ||
| 语法:tcl语法速查 [2025/08/28 17:17] – [6.4 产生递进的二进制数] user01 | 语法:tcl语法速查 [2026/04/08 09:41] (当前版本) – [6.5 set_bits get_bits] user01 | ||
|---|---|---|---|
| 行 506: | 行 506: | ||
| </ | </ | ||
| - | ==== - com_number | + | ==== - set_bits get_bits ==== |
| <code tcl> | <code tcl> | ||
| 行 530: | 行 530: | ||
| default { set ret 0000 } | default { set ret 0000 } | ||
| } | } | ||
| - | # set ret [format " | ||
| return $ret | return $ret | ||
| } | } | ||
| 行 539: | 行 538: | ||
| for {set i 0} {$i< | for {set i 0} {$i< | ||
| set tmp [string range $hex_value $i $i] | set tmp [string range $hex_value $i $i] | ||
| - | #set bins [string cat $bins [format " | ||
| set tmp [h2b $tmp] | set tmp [h2b $tmp] | ||
| set bins " | set bins " | ||
| 行 558: | 行 556: | ||
| for {set i 0} {$i< | for {set i 0} {$i< | ||
| set tmp [string range $bins [expr 0+$i*4] [expr 3+$i*4]] | set tmp [string range $bins [expr 0+$i*4] [expr 3+$i*4]] | ||
| - | #set hexs [string cat $hexs [format " | ||
| set tmp [format " | set tmp [format " | ||
| set hexs " | set hexs " | ||
| 行 989: | 行 986: | ||
| </ | </ | ||
| + | 字符串方式直接创建dict | ||
| + | <code tcl> | ||
| + | set mydict { | ||
| + | a { | ||
| + | num1 {1} | ||
| + | num2 {2} | ||
| + | } | ||
| + | b { | ||
| + | num3 {3} | ||
| + | num4 {4} | ||
| + | } | ||
| + | } | ||
| + | set a [dict get $mydict a] | ||
| + | set num1 [dict get $a num1] | ||
| + | set num2 [dict get $a num2] | ||
| + | set b [dict get $mydict b] | ||
| + | set num3 [dict get $b num3] | ||
| + | set num4 [dict get $b num4] | ||
| + | |||
| + | </ | ||
| ==== - dict unset 删除某个key ==== | ==== - dict unset 删除某个key ==== | ||
语法/tcl语法速查.1756372638.txt.gz · 最后更改: 2025/08/28 17:17 由 user01