Управление Текстовыми Файлами, срочно нужно!

function ChatArrival(tUser,sData)
sData=sData:sub(string.len(tUser.sNick)+4,-2)
local _,_,sCmd,sArg=string.find(sData,"^[+!/](%S+)(.*)$")
if sCmd and sArg then
if sCmd=="changetxt" then
local _,_,hFile=string.find(sArg,"^%s+(%S+)")
if hFile then
local file=io.open("texts\\"..hFile,"w")
if file then
local _,_,sText=string.find(sArg,"^%s+%S+%s+(.*)")
if sText then
file:write(tostring(sText))
end
file:flush()
file:close()
Core.SendToUser(tUser,"*** Операция выполнена")
else
Core.SendToUser(tUser,"*** Не найден файл: 'texts\\"..hFile.."'")
end
else
Core.SendToUser(tUser,"*** Не указано название файла. Используйте команду: +changetxt [имя_файла] [текст]. Например так: +changetxt test.txt Hello world!")
end
return true
elseif sCmd=="addtxt" then
local _,_,hFile=string.find(sArg,"^%s+(%S+)")
if hFile then
local file=io.open("texts\\"..hFile,"a+")
if file then
local _,_,sText=string.find(sArg,"^%s+%S+%s+(.*)")
if sText then
file:write(tostring(sText))
end
file:flush()
file:close()
Core.SendToUser(tUser,"*** Операция выполнена")
else
Core.SendToUser(tUser,"*** Не найден файл: 'texts\\"..hFile.."'")
end
else
Core.SendToUser(tUser,"*** Не указано название файла. Используйте команду: +addtxt [имя_файла] [текст]. Например так: +addtxt test.txt Hello world!")
end
return true
elseif sCmd=="deletetxt" then
local _,_,hFile=string.find(sArg,"^%s+(%S+)")
if hFile then
os.execute("del texts\\"..hFile)
Core.SendToUser(tUser,"*** Операция выполнена")
else
Core.SendToUser(tUser,"*** Не указано название файла. Используйте команду: +deletetxt [имя_файла]. Например так: +deletetxt test.txt")
end
return true
end
end
end

string.gsub(Core.GetPtokaXPath(),"/","\\").."\\texts\\"