RosettaCodeData/Task/Write-entire-file/Lingo/write-entire-file.lingo
2023-07-01 13:44:08 -04:00

20 lines
550 B
Text

----------------------------------------
-- Saves string as file
-- @param {string} tFile
-- @param {string} tString
-- @return {bool} success
----------------------------------------
on writeFile (tFile, tString)
fp = xtra("fileIO").new()
fp.openFile(tFile, 2)
err = fp.status()
if not (err) then fp.delete()
else if (err and not (err = -37)) then return false
fp.createFile(tFile)
if fp.status() then return false
fp.openFile(tFile, 2)
if fp.status() then return false
fp.writeString(tString)
fp.closeFile()
return true
end