lua載入csv檔案

文章**

---- author: my name
-- date: 2013-12-16 18:52:11
-- csv解析  
--   
-- 去掉字串左空白  
local function trim_left(s)  
return string.gsub(s, "^%s+", "");  
end  
-- 去掉字串右空白  
local function trim_right(s)  
return string.gsub(s, "%s+$", "");  
end  
-- 解析一行  
local function parseline(line)  
local ret = {};  
local s = line .. ",";  -- 新增逗號,保證能得到最後乙個字段  
while (s ~= "") do  
--print(0,s);  
local v = "";  
local tl = true;  
local tr = true;  
while(s ~= "" and string.find(s, "^,") == nil) do  
--print(1,s);  
if(string.find(s, "^\"")) then  
local _,_,vx,vz = string.find(s, "^\"(.-)\"(.*)");  
--print(2,vx,vz);  
if(vx == nil) then  
return nil;  -- 不完整的一行  
end  
-- 引號開頭的不去空白  
if(v == "") then  
tl = false;  
end  
v = v..vx;  
s = vz;  
--print(3,v,s);  
while(string.find(s, "^\"")) do  
local _,_,vx,vz = string.find(s, "^\"(.-)\"(.*)");  
--print(4,vx,vz);  
if(vx == nil) then  
return nil;  
end  
v = v.."\""..vx;  
s = vz;  
--print(5,v,s);  
end  
tr = true;  
else  
local _,_,vx,vz = string.find(s, "^(.-)([,\"].*)");  
--print(6,vx,vz);  
if(vx~=nil) then  
v = v..vx;  
s = vz;  
else  
v = v..s;  
s = "";  
end  
--print(7,v,s);  
tr = false;  
end  
end  
if(tl) then v = trim_left(v); end  
if(tr) then v = trim_right(v); end  
ret[table.getn(ret)+1] = v;  
--print(8,"ret["..table.getn(ret).."]=".."\""..v.."\"");  
if(string.find(s, "^,")) then  
s = string.gsub(s,"^,", "");  
end  
end  
return ret;  
end  
--解析csv檔案的每一行  
local function getrowcontent(file)  
local content;  
local check = false  
local count = 0  
while true do  
local t = file:read()  
if not t then  if count==0 then check = true end  break end  
if not content then  
content = t  
else  
content = content..t  
end  
local i = 1  
while true do  
local index = string.find(t, "\"", i)  
if not index then break end  
i = index + 1  
count = count + 1  
end  
if count % 2 == 0 then check = true break end  
end  
if not check then  assert(1~=1) end  
return content  
end  
--解析csv檔案  
function loadcsv(filename)  
local ret = {};  
local file = io.open(filename, "r")  
assert(file)  
local content = {}  
while true do  
local line = getrowcontent(file)  
if not line then break end  
table.insert(content, line)  
end  
for k,v in pairs(content) do  
ret[table.getn(ret)+1] = parseline(v);  
end  
file:close()  
return ret  
end  
function csv2lua(filename, filepath, desfilepath )
local t = loadcsv(filepath);
if t then
t = luautil.serialize(filename,t);
endif t then
luautil.writefile(t, desfilepath) 
endend--test  
--local t= loadcsv("csvtesttxt.csv")  
--for k,v in pairs(t) do  
--  local tt = v  
--  local s = ""  
--  for i,j in pairs(tt) do  
--      s = string.format("%s,%s",s,j)  
--  end  
--  print ("",s)  
--end

文章**

lua讀取CSV檔案

沒什麼難度，就是snsi轉utf 8的時候必須是utf 8無bom格式的不然會出錯，在eclipse上是看不出什麼錯誤的，但在andstudio上會發現多乙個 的符號。廢話不多說直接上 function string.getcsvfile filepath filepath是你csv的路徑 loca...

lua載入dll檔案套路

在做遊戲的時候，經常會要使用dll來封裝庫給lua來使用。本文將用於說明如何來通過lua來載入dll。在loadlib.c檔案中的127lines static void ll load lua state l,const char path static lua cfunction ll sym ...

修改lua的檔案載入器，自定義lua檔案載入

1.require會搜尋目錄載入檔案 2.require會判斷是否檔案已經載入避免重複載入同一檔案。require使用的路徑和普通我們看到的路徑還有些區別，我們一般見到的路徑都是乙個目錄列表。require的路徑是乙個模式列表，每乙個模式指明一種由虛檔名 require的引數 轉成實檔名的方法。更明...