LUA读取TXT文件读取完删除或者自动换到最后一行
我想要一个自动输入TXT文件,读取完第一条自动删除。我哪里弄错的吗?-适用屏幕参数SCREEN_RESOLUTION="640x1136";SCREEN_COLOR_BI...
我想要一个自动输入TXT文件,读取完第一条自动删除。我哪里弄错的吗?
- 适用屏幕参数
SCREEN_RESOLUTION="640x1136";
SCREEN_COLOR_BITS=32;
-- 主入口
function main()
local filePath = "/var/touchelf/123.txt"
function readFile(file)
assert(file,"file open failed")
local fileTab = {}
local line = file:read()
while line do
print("get line",line)
table.insert(fileTab,line)
line = file:read()
end
return fileTab
end
function writeFile(file,fileTab)
assert(file,"file open failed")
for i,line in ipairs(fileTab) do
print("write ",line)
file:write(line)
file:write("\n")
end
end
function main()
print("start")
local fileRead = io.open(filePath)
if fileRead then
local tab = readFile(fileRead)
fileRead:close()
table.remove(tab,1)
local fileWrite = io.open(filePath,"w")
if fileWrite then
writeFile(fileWrite,tab)
fileWrite:close()
end
end
end
main()
我看别人写的是这个 但是我导入进去什么都没有。。。 展开
- 适用屏幕参数
SCREEN_RESOLUTION="640x1136";
SCREEN_COLOR_BITS=32;
-- 主入口
function main()
local filePath = "/var/touchelf/123.txt"
function readFile(file)
assert(file,"file open failed")
local fileTab = {}
local line = file:read()
while line do
print("get line",line)
table.insert(fileTab,line)
line = file:read()
end
return fileTab
end
function writeFile(file,fileTab)
assert(file,"file open failed")
for i,line in ipairs(fileTab) do
print("write ",line)
file:write(line)
file:write("\n")
end
end
function main()
print("start")
local fileRead = io.open(filePath)
if fileRead then
local tab = readFile(fileRead)
fileRead:close()
table.remove(tab,1)
local fileWrite = io.open(filePath,"w")
if fileWrite then
writeFile(fileWrite,tab)
fileWrite:close()
end
end
end
main()
我看别人写的是这个 但是我导入进去什么都没有。。。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询