Lưu 1 mảng khi viết script (Lưu dữ liệu)
Hello & Welcome to our community. Is this your first visit? Đăng Ký
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 7 của 7
  1. #1
    [S]-[A]-[N]-[G] sangpronhat's Avatar
    Ngày tham gia
    Apr 2008
    Đang ở
    HCM
    Bài viết
    546
    Thanks
    9
    Thanked 82 Times in 27 Posts

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

    Code của mạnh tuyên :
    Code:
    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
    Code:
    BAIHAT = {
    {"Just Dance",1},
    {"Don't Stop Till You Get Enough",2},
    }
    Giờ múm lưu nó lại file Ex.lua

    Code:
    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 :
    Code:
    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
    Code:
    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á
    Lần sửa cuối bởi sangpronhat, ngày 28-10-09 lúc 04:32 PM.
    Soure game mobile full Unity3d mới nhất cập nhật liên tục
    Có share 1 số source free cho anh em học tập
    Click ngay
    [Only registered and activated users can see links. ]

  2. #2
    Vi phạm quy định
    Ngày tham gia
    Apr 2007
    Đang ở
    ☼♥ ®€Žø In Dä Høü§€ ♥☼
    Bài viết
    958
    Thanks
    6
    Thanked 78 Times in 25 Posts

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

    Trích dẫn Gửi bởi sangpronhat [Only registered and activated users can see links. ]
    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 ....
    Khách viếng thăm hãy cùng Mr.Rezo™ xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #3
    JX-Group-Development ohishu's Avatar
    Ngày tham gia
    Aug 2009
    Đang ở
    TPHCM
    Bài viết
    337
    Thanks
    45
    Thanked 848 Times in 49 Posts

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

    Anh SangNhatPro Co Y!M K Cho Em Voi :o
    Phiêu bạc giang hồ tìm chốn dung thân !

  4. #4
    Thành Viên Tâm Huyết giangleloi's Avatar
    Ngày tham gia
    Mar 2008
    Đang ở
    Lâm Đồng
    Bài viết
    1,877
    Thanks
    38
    Thanked 394 Times in 136 Posts

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

    Cách này rất hay để lưu dữ liệu, array hiện nay áp dụng nhiều trong JX!
    Khách viếng thăm hãy cùng giangleloi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #5
    Moderator DNTmaster's Avatar
    Ngày tham gia
    Jun 2006
    Đang ở
    GameZone
    Bài viết
    932
    Thanks
    6
    Thanked 576 Times in 183 Posts

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

    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
    [Only registered and activated users can see links. ]

  6. #6
    Thành Viên Tâm Huyết giangleloi's Avatar
    Ngày tham gia
    Mar 2008
    Đang ở
    Lâm Đồng
    Bài viết
    1,877
    Thanks
    38
    Thanked 394 Times in 136 Posts

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

    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
    Khách viếng thăm hãy cùng giangleloi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #7
    Super Moderator thaihoa91's Avatar
    Ngày tham gia
    Apr 2008
    Bài viết
    12,110
    Thanks
    662
    Thanked 3,167 Times in 1,602 Posts

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

    Trích dẫn Gửi bởi giangleloi [Only registered and activated users can see links. ]
    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 ! ^__^
    Khách viếng thăm hãy cùng thaihoa91 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

Các Chủ đề tương tự

  1. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM
  2. Ai xem dùm mình cái Script này với
    Bởi jxonline94 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 09-06-11, 04:45 AM
  3. Script cắn cháo lạc bát !
    Bởi Mr.Rezo™ trong diễn đàn Scripts
    Trả lời: 15
    Bài viết cuối: 13-01-11, 02:00 AM
  4. Script kết hôn hàng Việt Nam của tui viết
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 13
    Bài viết cuối: 28-08-09, 10:36 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 03:56 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.