第一次发帖。
纠结了3天后终于迎来了完美结局。
于是忍不住将研究成果发布出来了。
使用逐字符解析CSV，与目前网络上所流传的逐段解析CSV数据的效率几乎无差别。
（具体细节效率未测试，但3W字符的文本，逐段解析与逐字符解析，均只用时0.11秒）
而逐字符解析CSV的别的好处是，其写法极其精简，代码结构也极其清晰。
代码在下方。
============================================
调用方式：
local csvData = LoadCSV("./workpath/csvFileName.csv")
完成调用后，用这个循环语句来输出所有数据
for k,v in pairs(csvData) do
for k2,v2 in pairs(v) do
print(k,k2,v2)
end
end
内部所有CSV数据，可以通过指定X和Y来获得。
即csvData[Y][X]代表在CSV表格中，位于横行第X个，纵行第Y个的数据。
============================================
function LoadCSV(filePath)
-- Load File
local file = assert(io.open(filePath, 'r'))
local content = file:read("*all")
file:close()
-- Read Word One By One
local c = content -- content
local p = 0 -- content check pos
local w = "" -- content check word
local w_next = "" -- content check word(next one)
local x = 1 -- content table x
local y = 1 -- content table y
local opt = {} -- output table
opt[y] = {}
opt[y][x] = ""
local in_quote = false -- quote mode
while true do
p = p + 1
w = string.sub(c,p ,p )
w_next = string.sub(c,p+1,p+1)
if w == ',' then
if in_quote then
opt[y][x] = opt[y][x]..w
else
x = x + 1
opt[y][x] = ""
end
elseif w == '"' then
if in_quote then
if w_next == '"' then
opt[y][x] = opt[y][x]..w
p = p + 1
else
in_quote = false
end
else
in_quote = true
end
elseif w == '\n' then
if in_quote then
opt[y][x] = opt[y][x]..w
else
y = y + 1
x = 1
opt[y] = {}
opt[y][x] = ""
end
elseif w == "" or w == nil then
opt[y][x] = nil
break
else
opt[y][x] = opt[y][x]..w
end
end
-- Return Table
return opt
end

原来是csv，为啥要解析。用excel直接看不就好了。

顶一个（外链在某种情况下是允许的....度娘调皮..），如果直接发出来的话就可以加精哈哈

然而等到现在…

感谢分享，正好需要

非常好用，以前找到的方式都是用gsub正则切逗号，有个严重缺陷是表里有空值就GG。
楼主这个还兼顾了文本格式带逗号的形式。
但也有个小小的bug，csv末尾要补充一个","或者"\n"，不然不能正确解析最后一行，其他的暂时没发现，玩着再看吧

楼主这个还兼顾了文本格式带逗号的形式。
但也有个小小的bug，csv末尾要补充一个","或者"\n"，不然不能正确解析最后一行，其他的暂时没发现，如何解决呢？？？ 谁把修复的发出来研究下。

又是践行拿来主义的时候了，感谢楼主，好人桃花不断。