home *** CD-ROM | disk | FTP | other *** search
/ PC Master 1997 July & August / PCM97.iso / UTIL.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1998-06-23  |  1.2 KB  |  44 lines
  1. on startMovie
  2.   global nm, dscr, inst, rn, xfile, Path
  3.   set nm to []
  4.   set dscr to []
  5.   set inst to []
  6.   set rn to []
  7.   set Path to []
  8.   set xfile to []
  9.   puppetSprite(17, 1)
  10.   puppetSprite(18, 1)
  11.   puppetSprite(19, 1)
  12.   set the visible of sprite 21 to 0
  13.   set iold to the itemDelimiter
  14.   set the itemDelimiter to ";"
  15.   set fp to new(xtra("fileio"))
  16.   openFile(fp, "utildat.csv", 1)
  17.   set txt to readLine(fp)
  18.   set txt to chars(txt, 1, length(txt) - 1)
  19.   add(nm, item 1 of txt)
  20.   add(dscr, item 4 of txt)
  21.   add(inst, item 2 of txt)
  22.   add(rn, item 3 of txt)
  23.   add(Path, item 5 of txt)
  24.   add(xfile, item 6 of txt)
  25.   set cat to item 1 of txt & RETURN
  26.   repeat while txt > EMPTY
  27.     set txt to readLine(fp)
  28.     set txt to chars(txt, 2, length(txt) - 1)
  29.     add(nm, item 1 of txt)
  30.     add(dscr, item 4 of txt)
  31.     add(inst, item 2 of txt)
  32.     add(rn, item 3 of txt)
  33.     add(Path, item 5 of txt)
  34.     add(xfile, item 6 of txt)
  35.     set cat to cat & item 1 of txt & RETURN
  36.   end repeat
  37.   set the text of member "list" to chars(cat, 1, length(cat) - 1)
  38.   set the text of member "descr" to EMPTY
  39.   set the text of member "details" to EMPTY
  40.   closeFile(fp)
  41.   set fp to 0
  42.   set the itemDelimiter to iold
  43. end
  44.