ファイル書込み

ファイル書込みのサンプルです。
このサンプルには、ファイル読込み・ファイル読込みエラーのコードも含まれています。

-- FileReadWrite FileRW.lua
-- ファイル名：FileTest.txt
 
while not Keys.newPress.Start do
 
	Controls.read ()
	startDrawing()
 
	screen.print(SCREEN_UP, 8 * 4, 0, "*** File Read Write TEST ***")
 
 	screen.print(SCREEN_UP,  8 * 14 ,60, "X") -- File save　X
	screen.print(SCREEN_UP,  8 * 12 ,80, "Y") -- File save　Y
	screen.print(SCREEN_UP,  8 * 16 ,80, "A") -- File save　A
 	screen.print(SCREEN_UP,  8 * 14 ,100, "B") -- File load
 
	screen.print(SCREEN_UP,  8 * 8 ,140, "Start Click Exit")
 
	-- File load
	if Keys.newPress.B or Keys.held.B then
	 	screen.print(SCREEN_UP, 8 * 14 ,100, "B",Color.new(15,0,0 ))
 
 
		f = io.open("FileTest.txt","r")
		if f then
			-- ファイルが正常に読み込めた場合
                        i = 0
			for line in f:lines() do
				i = i + 1
				screen.print(SCREEN_DOWN, 0, 8 * i , line)
			end
			io.close(f)
		else
			-- ファイルが正常に読み込めなかった場合
			screen.print(SCREEN_DOWN, 0, 8 * 1, "File not Found")
       		end
	end	
 
	-- File save X
	if Keys.newPress.X or Keys.held.X then
		screen.print(SCREEN_UP,  8 * 14 ,60, "X",Color.new(16,0,0 ))
 
		f = io.open("FileTest.txt","w")
		f:write("File Write Test X\n")
		f:write("Key X Button\n")
		io.close(f)
		screen.print(SCREEN_DOWN, 0 , 0, "X FileTest.txt SAVE.")
 
	end
 
	-- File save Y
	if Keys.newPress.Y or Keys.held.Y then
		screen.print(SCREEN_UP,  8 * 12 ,80, "Y",Color.new(16,0,0 ))
 
		f = io.open("FileTest.txt","w")
		f:write("File Write Test Y\n")
		f:write("Key Y Button\n")
		io.close(f)
		screen.print(SCREEN_DOWN, 0 , 0, "Y FileTest.txt SAVE.")
 
	end
 
	-- File save A
	if Keys.newPress.A or Keys.held.A then
		screen.print(SCREEN_UP,  8 * 16 ,80, "A",Color.new(16,0,0 ))
 
		f = io.open("FileTest.txt","w")
		f:write("File Write Test A\n")
		f:write("Key A Button\n")
		io.close(f)
		screen.print(SCREEN_DOWN, 0 , 0, "A FileTest.txt SAVE.")
 
	end
 
	stopDrawing()
 
end
 

実行結果

画面イメージ　　　　　　　　　　　　　　　　　　　Bボタンでファイルリード（ない場合）　　　　　　　Aボタンでファイル書き込み　　　　　　　　　　　　Bボタンでファイル読込
"　" "　" "　"