实现BIN文件数据读取的TCL脚本分析

#需要需要设置文件及路径
set openfile "C://Program Files//JTAGNET//RunBin//s2k000071v1.jtg//eeprom.bin";

#打开文件
set fl [open $openfile]
puts "open file : $openfile"

#配置文件数据读入格式
fconfigure $fl -encoding binary -translation binary

#查询文件长度
set length [file size $openfile]
puts "file size : $length"

#移动文件指针
seek $fl 0

#读数据
#读入2个ASCII码字符，如：0X31，0X32，
set data [read $fl 2]
#字符显示为“12”
puts $data

#将data字符串“12”转换为4个16进制数据var1=0X33，0X31，0X33，0X32
binary scan $data H4 var1

#将16进制数据格式化为字符串
set var $var1;
set value1 [format "0x%s" $var]
puts $value1

#显示数据在文件的地址及数据内容
set add [expr {0 / 4}]
puts "地址 = $add 数据 = $value1"