Lưu 1 mảng khi viết script (Lưu dữ liệu)

[sangpronhat]

Code của mạnh tuyên :

function TaoBang(tTable, sTableName, sTab)  
    sTab = sTab or "";  
    sTmp = ""  
    sTmp = sTmp..sTab..sTableName.."={"  
 
    local tStart = 0  
    for key, value in tTable do  
  
        if tStart == 1 then  
            sTmp = sTmp..",\r\n"  
 
        else  
            sTmp = sTmp.."\r\n"  
            tStart = 1  
        end  
        local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);  
        if(type(value) == "table") then  
            sTmp = sTmp..TaoBang(value, sKey, sTab.."\t");  
        else  
            local sValue = (type(value) == "string") and format("%q",value) or tostring(value);  
            sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue 
        end  
 
    end 
    sTmp = sTmp.."\r\n"..sTab.."}"  
    --Msg2Player(sTmp)
    return sTmp
  
end  
 
 
function SaveData(file, string)  
local f,e = openfile( file, "w+" )  
if f then  
    write(f,string) 
    closefile(f)  
    return 1 
else  
    local _,_,path = strfind(file, "(.+[/_\\]).+$")  
    if path ~= nil then execute("mkdir ".."\""..gsub(path, "/", "\\").."\"") end  
    f,e = openfile( file, "w+" )  
    if f then  
        write(f,string)  
        closefile(f) 
        return 2  
    else  
        return 0  
        end 
    end  
end

Code này hơi dài và khó hiểu tôi đã viết lại bằng một đoạn dễ hiễu hơn nhưng tôi sẽ để mọi người tự mò

Vì trong quá trính truy xuất các thông tin của mảng chỉ lưu lại khi server đang khởi động còn nếu tắt mở lại server thì dữ liệu mảng mất sạch do đó cần lưu lại thành 1 file khác để dữ liệu có thể giữ lâu dài

Cách xài
Chép vô file script có mảng cần lưu dữ liệu

VD:
Tôi có mảng

BAIHAT = {
{"Just Dance",1},
{"Don't Stop Till You Get Enough",2},
}

Giờ múm lưu nó lại file Ex.lua

Ex=TaoBang(BAIHAT,"BAIHAT","")  
   SaveData("script/ex.lua",Ex)

Ngay tức khắc thư mục script sẽ có ngay 1 file mới ghi lại mảng đó
Cấu trúc :

Bieng=TaoBang(Mảng : Table,Tên mảng : string,"")
SaveData(script file : string,bien)

Cách khai báo khi sử dụng file đã lưu
Đầu file

BAIHAT={} --Khai báo tên mãng trước
Include("\\Script\\Ex.lua") --Lấy dữ liệu

Như vậy là ta có thể lưu trử dữ liệu và truy xuất dễ dàng hơn so với dùng file .txt
Chúc các bạn viết dc nhiều script hay

Hiện tại đã code ra nhiệm vụ phong kỳ thiên bảo khố và sơn thận miếu
Thiên hạ đệ nhất bang và chục cái event nhỏ mà làm biếng share quá

[Mr.Rezo™]

Hiện tại đã code ra nhiệm vụ phong kỳ thiên bảo khố và sơn thận miếu
Thiên hạ đệ nhất bang và chục cái event nhỏ mà làm biếng share quá

Bài viết chất lượng ... nhưng vẫn không chấp nhận kiểu ăn nói này ....

[ohishu]

Anh SangNhatPro Co Y!M K Cho Em Voi :o

[giangleloi]

Cách này rất hay để lưu dữ liệu, array hiện nay áp dụng nhiều trong JX!

[DNTmaster]

Bác ơi, jx thì toàn là xài table ko ah chứ ko phải array trong pascal đâu nhầm rồi cách làm này cũng hay nhưng thấy đoạn đó là của bác Tuyên thì phải nhỉ
cấu trúc lưu mảng vào file output cũng nhiều cách lưu nữa đó chỉ là 1 cách lưu thôi.
Ví dụ như viết dè vào, chèn, thêm,.... nhiều lắm chi tiết thì wa bài của HươngPhiêuBạt ấy

[giangleloi]

tui không biết nữa, chắc tui sai tại nhầm với Pascal, giờ điên đầu luôn => giờ chuyển qua chơi nhạc

[thaihoa91]

tui không biết nữa, chắc tui sai tại nhầm với Pascal, giờ điên đầu luôn => giờ chuyển qua chơi nhạc

Anh có nghe wa bài Thần thoại do em Remix rùi ! ^__^