积水20cm使用lua语言转成gb2312程序

以下是一个将UTF-8编码的字符串转换为GB2312编码的Lua程序示例：

-- 定义UTF-8到GB2312编码转换函数
function utf8ToGb2312(utf8Text)
    local gb2312Text = ""
    for i = 1, #utf8Text do
        local curByte = string.byte(utf8Text, i)
        local byteCount = 0
        local charCode = ""
        if curByte > 0 and curByte <= 127 then
            byteCount = 1
            charCode = curByte
        elseif curByte >= 192 and curByte < 223 then
            byteCount = 2
            local byte2 = string.byte(utf8Text, i + 1)
            charCode = (curByte - 192) * 64 + (byte2 - 128)
        elseif curByte >= 224 and curByte < 239 then
            byteCount = 3
            local byte2 = string.byte(utf8Text, i + 1)
            local byte3 = string.byte(utf8Text, i + 2)
            charCode = (curByte - 224) * 4096 + (byte2 - 128) * 64 + (byte3 - 128)
        end
        if byteCount > 0 then
            gb2312Text = gb2312Text .. string.char(charCode / 256, charCode % 256)
            i = i + byteCount - 1
        end
    end
    return gb2312Text
end

-- 测试转换函数
local utf8Text = "积水20cm"
local gb2312Text = utf8ToGb2312(utf8Text)
print(gb2312Text)

在这个程序中，我们定义了一个名为utf8ToGb2312的函数，它接受一个UTF-8编码的文本作为输入，并返回相应的GB2312编码文本。在函数内部，我们使用了字符串函数byte和char来进行字符编码的转换和拼接。在主程序中，我们测试了转换函数，并输出了转换后的结果。

请注意，由于GB2312编码是双字节编码，所以在转换时需要将每个字符的编码转化为两个字节。