#需要需要设置文件及路径
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"