Splitting a massive string to print with

function printLog(log, fromLn, copies)
if open == true then
  error("Log must be ended before printing")
end


--printer setup

local side = nil
local sides = { 1 = "front", 2 = "back", 3 = "left", 4 = "right", 5 = "top", 6 = "bottom" }
local no = 1
for i = 1, 6 do
  if no == 1 then
   side = sides[no]
  elseif no == 2 then
   side = sides[no]
  elseif no == 3 then
   side = sides[no]
  elseif no == 4 then
   side = sides[no]
  elseif no == 5 then
   side = sides[no]
  elseif no == 6 then
   side = sides[no]
  else
   error("no printer found")
  end
end
local p = peripheral.wrap(side)
h = fs.open("log/"..log..".log", r)
local printstr = nil
for i = 1, fromLn do
  h.readLine()
end
printstr = h.readAll()
fs.close()
end

samdeman22, on 06 March 2013 - 10:12 AM said:

h = fs.open("log/"..log..".log", r)

h = fs.open("log/"..log..".log", "r")

h.close()

remiX, on 06 March 2013 - 05:52 PM said:

You can store the whole thing in a string and use an awesome function made by TheOriginalBit which splits it into a table with the desired length of each line. You can find it in his Extended Library api. Check it out at the programs section.

Lyqyd, on 06 March 2013 - 06:23 PM said:

remiX, on 06 March 2013 - 05:52 PM said:

You can store the whole thing in a string and use an awesome function made by TheOriginalBit which splits it into a table with the desired length of each line. You can find it in his Extended Library api. Check it out at the programs section.

If it is the same function I am thinking of, it was not written by him, but is actually an example function found in the PIL. The one I'm thinking of is the one that's been floating around the forums for quite some time.  I simply don't wish it to be misattributed if that is the case.

--The Log API 1.1
runningProgram = "test"
function openLog(name)
h = fs.open("logs/"..name..".log", "a")
end
function closeLog()
h.close()
end
--function setRunningProgram(name)
-- runningProgram = name
--end
function generateLog() --will create the Dir "log" in the root and create a .log file based on the running program (if if is not already there)
if not fs.exists("log") then
  fs.mkDir("log")
end

if runningProgram == nil then
  error("program not specified")
end
  h = fs.open("logs/"..runningProgram..".log", "a")
  h.writeLine("--- The "..runningProgram.." event log ---")
  h.writeLine(" ")
  h.close()
end
 
function addEntry(type, str)
local time = os.time()
local day = os.day()
h.writeLine("["..day.."]".."["..time.."]".."["..type.."] | #"..str)
end
function startLog()
open = true
local time = os.time()
local day = os.day()
openLog()
h.writeLine("["..day.."]".."["..time.."] | #STARTING LOG")
end
function endLog()
open = false
local time = os.time()
local day = os.day()
h.writeLine("["..day.."]".."["..time.."] | #ENDING LOG")

end
function setPrinterSide(side)
printside = side
end
function printLog(log, fromLn, copies)
if open == true then
  error("Log must be ended before printing")
end
end

remiX, on 06 March 2013 - 05:52 PM said:

You can store the whole thing in a string and use an awesome function made by TheOriginalBit which splits it into a table with the desired length of each line. You can find it in his Extended Library api. Check it out at the programs section.

-- a function you cant access ;P
local function round(num idp)
  local mult = 10 ^ (idp or 0)
  return (math.floor(num * mult + 0.5) / mult)
end
function printLog(log, side, fromLn, toLn)
  if open == true then
    error("Log must be ended before printing")
  end
  if not fs.exists( "logs/"..log..".log") then
    error("Log does not exist")
  end
 
  h = fs.open("logs/"..log..".log", "r")
  page = {}
  while h.readLine() ~= nil do
    local ln = h.readLine()
    table.insert(page, ln)
  end
 
  p = peripheral.wrap(side)
  local paper = p.getPaperLevel()
  local ink = p.getInkLevel()
  local w, h = p.getPageSize()
 
  local doc = {}
  for i = fromLn, toLn do
    table.insert(doc, page[i])
  end
 
  local length = 0
  for i = 0, #doc do
    length = length + doc[i]
  end
 
  local size = w*h
  local pages = round(length/size, 0)
  if pages > paper then
    error("not enough paper")
  end
  if pages > ink then
    error("not enough ink")
  end
 
  for i = 0, #doc do
    p.write(doc[i])
  end
 
end

-- a function you cant access ;P
local function round(num, idp)
  local mult = 10 ^ (idp or 0)
  return (math.floor(num * mult + 0.5) / mult)
end
function printLog(log, side, fromLn, toLn)
  if open == true then
    error("Log must be ended before printing")
  end
  if not fs.exists( "logs/"..log..".log") then
    error("Log does not exist")
  end
 
  h = fs.open("logs/"..log..".log", "r")
  page = {}
  while h.readLine() ~= nil do
    local ln = h.readLine()
    table.insert(page, ln)
  end
 
  p = peripheral.wrap(side)
  p.newPage()
  local paper = p.getPaperLevel()
  local ink = p.getInkLevel()
  local w, h = p.getPageSize()
 
  local doc = {}
  for i = fromLn, toLn do
    table.insert(doc, page[i])
  end
 
  local length = 0
  for i = 0, #doc do
    length = length + #doc[i]
  end
 
  local size = w*h
  local pages = round(length/size, 0)
  if pages > paper then
    error("not enough paper")
  end
  if pages > ink then
    error("not enough ink")
  end
  for i = 0, pages do
  p.newPage()
  p.setPageTitle(log.." page:"..i)
    for indx = 0, size do
	  p.write(doc[indx])
    end
  p.endPage()
  end
 
end

for i = 0, #doc do
  length = length + #doc[i]
end

faubiguy, on 30 March 2013 - 08:31 AM said:

You're starting the loop

for i = 0, #doc do
  length = length + #doc[i]
end

at 0 instead of 1.
if there isn't a value at doc[0], it can't get the length of it.

  if open == true then
    error("Log must be ended before printing")
  end
  if not fs.exists( "logs/"..log..".log") then
    error("Log does not exist")
  end

  h = fs.open("logs/"..log..".log", "r")

  for i = 0, pages do
  p.newPage()
  p.setPageTitle(log.." page:"..i)
    for indx = 0, size do
		  p.write(doc[indx])
    end
  p.endPage()
  end

remiX, on 31 March 2013 - 11:13 AM said:

Yes.. doc table doesn't have a 0 index