两个存lua档函数，非原创

btxdex

应该是查理猫写的，也可能是另外的大大写的，反正是原来的修罗补丁里面的存档函数。总之，很强大，很有效，很好用。

1. function SaveTableContent(file, obj)  --不包含物品数据的存档数据类型判断
   
2.       local szType = type(obj);          --判断对象类型
   
3.      -- print(szType);         --输出
   
4.       if szType == "number" then  --如果类型是数字
   
5.             file:write(obj);  --直接写入
   
6.       elseif szType == "string" then  --如果类型是字符串
   
7.             file:write(string.format("%s", obj)); --以字符串形式写入
   
8.       elseif szType == "table" then  --如果类型是表格
   
9.             --把table的内容格式化写入文件
   
10.             --file:write("{\n");
    
11.                 file:write("{"); --首先写入一个{
    
12.             for i, v in pairs(obj) do  --逐个元素判断
    
13.                   --file:write("[");  --起始加上[
    
14.                   --SaveTableContent(file, i);--写入下标值
    
15.                   --file:write("]=\n");  --写入]并换行
    
16.                   SaveTableContent(file, v);
    
17.                   --file:write(", \n"); --每写完一个表格数据换行
    
18.                         file:write(",");
    
19.              end
    
20.             --file:write("\n");  --写入最后一个表格数据的时候换行
    
21.       else
    
22.       error("can't serialize a "..szType);
    
23.       end
    
24. end
    
25. function SaveTableContent2(file, obj)  --针对物品数据的判断
    
26.       local szType = type(obj);          --判断对象类型
    
27.      -- print(szType);         --输出
    
28.       if szType == "number" then  --如果类型是数字
    
29.             file:write(obj);  --直接写入
    
30.       elseif szType == "string" then  --如果类型是字符串
    
31.             file:write(string.format("%s", obj)); --以字符串形式写入
    
32.       elseif szType == "table" then  --如果类型是表格
    
33. 
    
34.                 file:write("{"); --首先写入一个{
    
35.             for i, v in pairs(obj) do  --逐个元素判断
    
36. 
    
37.                   SaveTableContent2(file, v);
    
38. 
    
39.                         file:write(",");
    
40.              end
    
41.                 file:write("}");--每维完成后加一个}
    
42. 
    
43.       else
    
44.       error("can't serialize a "..szType);
    
45.       end
    
46. end

复制代码

用这个保存数据再dofile很犀利。

cbws

回复 btxdex 的帖子

顶起来！早知道就不去掉实战系统了。。。。。。

nino

赞，叩谢一个