Lua 二进制串与Hex显示串的相互转换 lua ASCII转BCD数据

--二进制数据ASC打印
local function bin2hex(s)
    s=string.gsub(s,"(.)",function (x) return string.format("%02X ",string.byte(x)) end)
    return s
end
 
local h2b = {
    ["0"] = 0,
    ["1"] = 1,
    ["2"] = 2,
    ["3"] = 3,
    ["4"] = 4,
    ["5"] = 5,
    ["6"] = 6,
    ["7"] = 7,
    ["8"] = 8,
    ["9"] = 9,
    ["A"] = 10,
    ["B"] = 11,
    ["C"] = 12,
    ["D"] = 13,
    ["E"] = 14,
    ["F"] = 15
}
 
--ASC字符转二进制串
local function hex2bin( hexstr )
    local s = string.gsub(hexstr, "(.)(.)%s", function ( h, l )
         return string.char(h2b[h]*16+h2b[l])
    end)
    return s
end

转载于:https://my.oschina.net/SunLightJuly/blog/220844

分析函数hex2bin

1. "(.)(.)%s" 取字符串 ，如 "11 12 AB AF"，第一次取11，第二次取12·······，若字符串没空格，正则表达式改为"(.)(.)"
2. h2b[h]*16+h2b[l]  ，转 1字节BCD数据计算hex值，如"11"转为 0x11等于十进制数17
3. string.char(17)转成字符 "\x11"(BCD数据)

例 "11 12 AB AF"转换后就是二进制数据 "\x11\x12\xAB\xAF"

例 "31 41 61"转换后就是二进制数据 "\x31\x41\x61" ，等同于字符串"1Aa"

另外记录Air724模块用到的转换函数

来源：合宙lua库： utils.lua

--- 将Lua字符串转成HEX字符串，如"123abc"转为"313233616263"
-- @string str 输入字符串
-- @string[opt=""] separator 输出的16进制字符串分隔符
-- @return hexstring 16进制组成的串
-- @return len 输入的字符串长度
-- @usage
-- string.toHex("\1\2\3") -> "010203" 3
-- string.toHex("123abc") -> "313233616263" 6
-- string.toHex("123abc"," ") -> "31 32 33 61 62 63 " 6
function string.toHex(str, separator)
    return str:gsub('.', function(c)
        return string.format("%02X" .. (separator or ""), string.byte(c))
    end)
end

--- 将HEX字符串转成Lua字符串，如"313233616263"转为"123abc", 函数里加入了过滤分隔符，可以过滤掉大部分分隔符（可参见正则表达式中\s和\p的范围）。
-- @string hex,16进制组成的串
-- @return charstring,字符组成的串
-- @return len,输出字符串的长度
-- @usage
-- string.fromHex("010203")       ->  "\1\2\3"
-- string.fromHex("313233616263") ->  "123abc"
function string.fromHex(hex)
    return hex:gsub("[%s%p]", ""):gsub("%x%x", function(c)
        return string.char(tonumber(c, 16))
    end)
end

 tonumber(c, 16)就是转16进制数，例"31"  -> 0x31 = 49

string.char(49)  -> 字符‘1’

--- 返回字符串tonumber的转义字符串(用来支持超过31位整数的转换)
-- @string str 输入字符串
-- @return str 转换后的lua 二进制字符串
-- @return len 转换了多少个字符
-- @usage
-- string.toValue("123456") -> "\1\2\3\4\5\6"  6
-- string.toValue("123abc") -> "\1\2\3\a\b\c"  6
function string.toValue(str)
    return string.fromHex(str:gsub("%x", "0%1"))
end