Gammon Forum

34172,"The Hitching Post","","Flail Smith Guild","This is the local tavern. There are round tables up near the front, with
the bar at the back just in front of a small kitchen. Hefty mugs are set on
the bar top, large enough to quench a powerful thirst. There is a space
clear for dancing at the center of the tavern.
",0,-1,34172,0,-1200,-21840,0,0,0,0,0,0,0,11812261,-1,11,1,,,,0,,0,0,0,1/3/2006 19:29:31,114,-1,1/3/2006 19:29:31,0

  local filename = utils.filepicker ("ObjectTbl File", "ObjectTbl.txt", "txt", { txt = "Text files", ["*"] = "All files" }, false)
  
  if not filename then
    return -- they cancelled
  end
  
  rooms = {}
  local num = 0
  for line in io.lines (filename) do
    num = num + 1
    line = string.gsub (line, '"', '')
    rooms[num] = utils.split (line, ",")
  end 

ODD
EVEN
EVEN
EVEN
ODD

299,"The Caemlyn Road",,,"A sudden narrowing in the highway weaves in and out between the brown
hills. Weary travelers are often seen plodding here along on their journeys
to Caemlyn, or part of the wagon groups commuting between Lugard, Caemlyn
and Whitebridge. A few rotten trees stand huddled in a copse, with a sign 
nailed on one showing how it can be used to ""block"" or ""clear"" ""the road"".
",0,-1,299,0,3840,-5520,0,0,0,0,0,0,0,32896,-1,11,1,,,,0,,0,0,0,,4,-1,,

3404,"Edge of the Mire",,,"More mud covers the ground as far as the eye can see. But to call it ""ground""
is to use the term loosely indeed; it is neither firm nor safe nor nourishing
nor least of all natural. There is an oppressive air of anxiety that hangs 
over the region. Progress south is impossible; the Mire is far too watery.
",0,-1,3404,0,-12240,16680,0,0,0,0,0,0,0,536870911,-1,11,1,,,,0,,0,0,0,,15,-1,,

3617,"Downward Tunnel",,,"The tunnel suddenly seems warm here in contrast to the slight chill of the
main cave, and its floor begins to slope downward as evidenced by the path
of free-falling water drops which land with a ""splatt"" which echoes dully
inside the tunnel.
",0,-1,3617,0,-22800,13320,0,0,0,0,0,0,0,8421504,-1,11,1,,,,0,,0,0,0,,15,-1,,

4013,"Old Road",,,"The road becomes rather monotonous as it trudges along in its unchanging path.
The trees of the Westwood stand off to the west of the road, offering some
relief from the dusty boredom of the road. ""Old Road"" the people of the area
call it. An apt name; it seems not to have changed in the memorable past.
",0,-1,4013,0,-19920,27960,0,0,0,0,0,0,0,32896,-1,11,1,,,,0,,0,0,0,,15,-1,,

function ParseCSV(str)
    local Ct, C, P, digit, V, S, Cc = lpeg.Ct, lpeg.C, lpeg.P, lpeg.digit, lpeg.V, lpeg.S, lpeg.Cc
    local grammar = P{  Ct( V("record")^1 ) ,
                    record = Ct(  V"Value" * (V"delim" * (V"Value" + Cc""))^0 * V"EOR") ,
                    Value = ( V"Date" + V"Digit" + V"String"),
                    delim = P(","),
                    EOR = P"\n" + P(-1),
                    Digit = C(P("-")^-1 * digit^1) / tonumber ,
                    String = P'"' * C(( P'""' + P'\"' + 1-P'"')^0) * P'"',
                    Date = C( digit^-4 * P"/" * digit^-2 * P"/" * digit^-4 *
                    P" " *
                    digit^-2 * P":" * digit^-2 * P":" * digit^-2 )
                    }
        return grammar:match(str)
end

--open and read file into a string Foo

AreasTbl = ParseCSV(Foo)
tprint(AreasTbl)

1:
  1=34172
  2="The Hitching Post"
  3=""
  4="Flail Smith Guild"
  5="This is the local tavern. There are round tables up near the front, with
the bar at the back just in front of a small kitchen. Hefty mugs are set on
the bar top, large enough to quench a powerful thirst. There is a space
clear for dancing at the center of the tavern.
"
  6=0
  7=-1
  8=34172
  9=0
  10=-1200
  11=-21840
  12=0
  13=0
  14=0
  15=0
  16=0
  17=0
  18=0
  19=11812261
  20=-1
  21=11
  22=1
  23=""
  24=""
  25=""
  26=0
  27=""
  28=0
  29=0
  30=0
  31="1/3/2006 19:29:31"
  32=114
  33=-1
  34="1/3/2006 19:29:31"
  35=0