Without coding for you, I would suggest:


Code:

Open(filename)

$line = Readline(...)





while each $line 

  select 

     case left($line, 15) = "License Set ID:"

        write $line to new file

     case left($line, 7) = "Status:"

        write $line to new file

  endselect
_________________________
Home page: http://www.kixhelp.com/hb/