【tcl脚本】改变输出字符格式需求：
原list输出格式
0x00 0x50 0x01 0x03 0x04 0x02 0x21 0x57 0x01 0x00 0x05 0x0B 0x03 0x13 0x00 0x01要求list输出格式为
list21 is : 04030150
list22 is : 01572102
list23 is : 030b0500
list24 is : 00010013
list20 is : 04030150 01572102 030b0500 00010013
思路
1. 去除0x⽅式显⽰；
2. 四字节连成⼀个string，string再转化成list;
3.不够四字节前⾯补零。
代码
#!/usr/bin/env tclsh
set mReply {0x00 0x50 0x01 0x03 0x04 0x02 0x21 0x57 0x01 0x00 0x05 0x0B 0x03 0x13 0x00 0x01}
set len [llength $mReply]
for {set i 1} {$i<=[expr $len-1]} {incr i} {
set mBit [format "%02x" [lindex $mReply $i]]
set mReply [lreplace $mReply $i $i $mBit]
}
set lenTemp [expr {$len-1}]
while {1} {
set lenFlag [expr {$lenTemp%4}]
if {$lenFlag!=0} {
set mReply [linsert $mReply end 00]
incr len
set lenTemp [expr {$len-1}]
} else {
break;
}
}
set flag 0
for {set j 1} {$j<=[expr {$len-1}]} {set j [expr {$j+4}]} {
incr flag
for {set k 0} {$k<=3} {incr k} {
set list2$flag [list [append var$flag [lindex $mReply [expr {$flag*4-$k}]]]]
}
}
puts "list21 is : $list21"
puts "list22 is : $list22"
puts "list23 is : $list23"
puts "list24 is : $list24"
set list20 [concat $list21 $list22 $list23 $list24]
字符串截取不改变原字符串
puts "list20 is : $list20"
不得不感叹，tcl对于处理字符串和list来说真的是太⽅便了！继续加油！

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。