read .txt from folder cant make it workin'

[b_w_johan]

cant get it right...
i was trying to make a small script which reads from a folder "txt" and opens *.txt depending the command.
well i was puzzeling all the time and couldn't figure it out must be something very small and stupid...


this is what i try to make work now..


bot = "Guard"
AantUur = 1   -- aantal uren
hrs = 1000 * 60 * 60 * AantUur

function Main()
   SetTimer(hrs)
   StartTimer()
end

function OnTimer()
   SendRules(user)
end

function DataArrival(user, data)
   if (strsub(data,1,1)=="<") then
   data=strsub(data,1,strlen(data)-1)
   s,e,cmd = strfind(data,"%b<>%s+(%S+)")
end
end


if (cmd=="+rules") then
   SendRules(user)
end



function SendRules(user)
   readfrom("txt/rules.txt")
   local text = "\r\n"
   while 1 do
      line = read()
         if line == nil then
            break
         end
      text = text.."\r\n"..line
   end
   user:SendPM(bot,text.."|")
   readfrom()
end




this is what i started with:

bot = "Guard"
AantUur = 1   -- aantal uren
textfile = "txt/Rules.txt"
hrs = 1000 * 60 * 60 * AantUur


function Main()
   SetTimer(hrs)
   StartTimer()
end

function OnTimer()
   massMessageToAll()
end




if (cmd=="+rules") then
   SendUserRules(user)
end

function SendUserRules(user)
   readfrom("txt/Rules.txt")
   while 1 do
      line = read()
      if line == nil then break end
         SendToAll(bot, line)
      end
   readfrom()
end

function massMessageToAll()
local handle = openfile(textfile, "r")
   if (handle ~= nil) then
      local line = read(handle)
                  Temptimerfile = "\r\n"
      while line do
         Temptimerfile = Temptimerfile.."\r\n"..line
         line = read(handle)
      end
         SendPmToAll(bot, Temptimerfile)
      closefile(handle)
   end
end




but they wont work ...
(yes i picked the small box in ptokax to enable textfile support someone pointed me to that..)
so if you could help me i would be very happy ....


Thanx Johan Nolte

[Themaster]

maybe you need this

function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(bot, filecontents)
	end
end

[b_w_johan]

I can't get it working can you put all of the source in here ??
and tell me if it worked by you ?
cause i used that part but it isn't going to work..
grrrr

thx Johan

[Themaster]

Kos = "[RuLeR]"

Command = "+rules"

MasRules = "text/masrules.txt"
OpRules = "text/oprules.txt"
VipRules = "text/viprules.txt"
RegRules = "text/regrules.txt"

function Main() 
	frmHub:RegBot(Kos) 
end 

function DataArrival(ustring,dstring) 
	if strsub(dstring, 1, 1) == "<" then
		dstring=strsub(dstring,1,strlen(dstring)-1)
		local s,e,cmd = strfind(dstring,"%b<>%s+(%S+)")
	
		if cmd == Command then
			if ustring.iProfile == 0 then
				file = MasRules
				WhileRead(ustring,file)
			elseif ustring.bOperator then
				file = OpRules
				WhileRead(ustring,file)
			elseif ustring.iProfile == 2 then
				file = VipRules
				WhileRead(ustring,file)
			else
				file = RegRules
				WhileRead(ustring,file)
			end
		end 
	end
end

function WhileRead(ustring,file)
	readfrom(file)
	while 1 do 
		line = read() 
		if line == nil then
			break
		end 
		ustring:SendPM(Kos,line) 
	end
 	readfrom()
end

[b_w_johan]

Thank you very much now its working !
lol only change it a bit to show themevery 2 owrs in main ..

[Themaster]

np