The Lua code is easy to understand, see it below.
-- open memos for read
f,n = io.open("db:/MemoDB", "r")
text = "";
-- fetch all registers
for i = 0,n-1,1 do
f:openrec(i) -- open register
line = f:read("*l") -- read first line of register
if(line == "sd-vt") then -- if is a correct file that I need
s = f:read("*a") -- read all content of memo register
text = text .. s
end
end
f:close()
gui.control{type="field", lines=11, columns=30, text=text}
gui.main()
Source code from here: http://code.google.com/p/code4funfiles/source/browse/trunk/palm-sdvt/tests/read_memo.lua?r=10
0 comentários:
Postar um comentário