【数据存储】CSV 配置表解析：Excel 导出到 Lua 结构的完整流程

local function parseCSV(text)
    local rows, row, field, inQuote = {}, {}, "", false
    local i, n = 1, #text
    while i <= n do
        local c = text:sub(i, i)
        if inQuote then
            if c == &#039;"' then
                if text:sub(i + 1, i + 1) == '"&#039; then
                    field = field .. &#039;"'; i = i + 1     -- 转义的引号
                else
                    inQuote = false
                end
            else field = field .. c end
        elseif c == '"&#039; then inQuote = true
        elseif c == "," then row[#row + 1] = field; field = ""
        elseif c == "\n" then
            row[#row + 1] = field; rows[#rows + 1] = row
            row, field = {}, ""
        else field = field .. c end
        i = i + 1
    end
    if field ~= "" or #row > 0 then row[#row + 1] = field; rows[#rows + 1] = row end
    return rows
end

local rows = parseCSV(fileText)
local head = rows[1]
local items = {}
for r = 2, #rows do
    local item = {}
    for c = 1, #head do item[head[c]] = rows[r][c] end
    items[tonumber(item.id) or item.id] = item
end

local errs = {}
if seen[item.id] then
    errs[#errs + 1] = ("行%d: id 重复 %s"):format(r, tostring(item.id))
end
if not tonumber(item.price) then
    errs[#errs + 1] = ("行%d: price 非数字 %s"):format(r, tostring(item.price))
end
if #errs > 0 then
    release_print("CSV 校验失败 " .. #errs .. " 条")
    for _, e in ipairs(errs) do release_print(e) end
    return false
end