十六进制转二进制tcl函数

breezedancing · 发表于 2019-12-27 11:15:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

由于工作用到将十六进制数据文件转换为二进制数据文件，便编写了一个tcl函数，用法如下：hex2bin hexfilename binfilename datawidth(默认32位)
经测试好用，现将程序分享给大家，欢迎指正，共同进步

breezedancing · 发表于 2019-12-27 11:48:30

为取消数据位宽限制，将函数优化如下：
#proc hex2bin {inf outf {bit 32}} {
proc hex2bin {inf outf} {
  set maptbl {f 1111 e 1110 d 1101 c 1100 \
            b 1011 a 1010 9 1001 8 1000 \
            7 0111 6 0110 5 0101 4 0100 \
            3 0011 2 0010 1 0001 0 0000}

  if [catch {open "./$inf" r} res1] {
puts "Can't open ./$inf for read: $res1";
  } else {
if [catch {open "./$outf" w+} res2] {
puts "Can't open ./$outf for write: $res2";
}
set hexstr [gets $res1];
while {![eof $res1]} {
#    puts $res2 [format %0${bit}b [scan $hexstr %x]];
   puts $res2 [string map $maptbl $hexstr];
   set hexstr [gets $res1];
}
  }
  close $res1;
  flush $res2;
  close $res2;
}

dcircuit · 发表于 2019-12-27 19:35:23

xuexi yixia

ysxwonder · 发表于 2020-1-2 17:45:08

简明扼要

[原创] 十六进制转二进制tcl函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

站长推荐 /2