Lua汉字转拼音：首字母区间的码表映射

local EDGES = {
    {45217, "A"}, {45253, "B"}, {45761, "C"}, {46318, "D"},
    {46826, "E"}, {47010, "F"}, {47297, "G"}, {47614, "H"},
    {48119, "J"}, {49062, "K"}, {49324, "L"}, {49896, "M"},
    {50371, "N"}, {50614, "P"}, {50622, "Q"}, {50906, "R"},
    {51387, "S"}, {51446, "T"}, {52218, "W"}, {52698, "X"},
    {52980, "Y"}, {53689, "Z"}
}
local function firstLetter(hz)
    local code = hz:byte(1) * 256 + hz:byte(2)
    local letter = "#"
    for _, e in ipairs(EDGES) do
        if code >= e[1] then letter = e[2] end
    end
    return letter
end

local function abbr(s)
    local out, i = {}, 1
    while i <= #s do
        if s:byte(i) >= 128 then
            out[#out + 1] = firstLetter(s:sub(i, i + 1))
            i = i + 2
        else
            i = i + 1
        end
    end
    return table.concat(out)
end
local p = getplayerbyname("py01")
sendmsg(p, 1, "缩写 " .. abbr("张明"))